В общем вот таким методом получал всегда например список типов линий чертежа
(vlax-for item (vla-get-Linetypes
(vla-get-activedocument (vlax-get-acad-object))
)
(setq Line_Type_name_list
(cons (vla-get-name item)
Line_Type_name_list
)
)
)
Потом находил текущий тип линии
(setq Line_Type (getvar "CELTYPE"))
И находил позицию текущего в общем списке
(vl-position Line_Type Line_Type_name_list)
И работало это без проблем. А тут пользователь скидывает чертёж где это не работает. Оказалось в базе чертежа записано заглавными BYLAYER BYBLOCK, а (getvar "CELTYPE") возвращает ByLayer и ByBlock
Я конечно стал теперь текущий брать от туда же как и список всех, и теперь норм.
(setq Line_Type (vla-get-name (vla-get-ActiveLinetype acdoc)))
Но вопрос остался, это глюк AutoCAD, или нормальная ситуация?
