Пишу на VB6: ksDocument2D.ksLineSeg 10, 20, 30, 40, 1 'Контур
где 1- тип линии "основная". Как программно поменять её на
тип линии "Красная утолщённая номер 2" из библиотеки Компаса
ShaftLibStyle.lcs?
IStyles.AddStyleFromLibrary - Добавить стиль из библиотеки.
Борис Николаевич, а поподробней можно?
Вот так, с наскока, конечно не сработало...
Куда что прописывать?
IStyles.AddStyleFromLibrary ShaftLibStyle.lcs, 2
ksDocument2D.ksLineSeg 0, -Lu, D2u / 2, -Lu
Примера у меня нет, функция должна вернуть указатель на стиль, у него есть "Идентификатор стиля в API" и другие, какой подсовывать, разберетесь методом научного тыка. Путь к библиотеки возможно нужно указывать полный.
IStyles:=IApplication.LibraryStyles;
IStyle:=IStyles.AddStyleFromLibrary('ShaftLibStyle.lcs',2,True);
ksDocument2D.ksLineSeg(10,20,30,40,IStyle.ApiStyleId);
IStyle.ApiStyleId - Идентификатор стиля в API
Спасибо.