ZWCAD VBA设置线条颜色

Question

我需要在ZWCAD中使用VBA为线条设置不同的颜色。

在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