ZWCAD VBA Set Line Color

Question

Мне нужно установить разные цвета для линий, используя VBA в ZWCAD.

В AUTOCAD я использовал эту команду:

Set AN = ACAD.ActiveDocument.ModelSpace.AddLightWeightPolyline(p1)
AN.color = acBlue

Каковы эквивалентные команды для ZWCAD?

Спасибо

Answer 1

Попробуйте это:

Set AN = ThisDrawing.ModelSpace.AddLightWeightPolyline(p1)
AN.color = zcBlue

Есть некоторые различия между AutoCAD и ZWCAD.например, имена констант начинаются с 'z', например zcBlue, тогда как в AutoCAD у нас есть acBlue