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之间存在一些差异。例如常量名称以zcBlue之类的'z'开头，而在AutoCAD中我们有acBlue

Answer 2

您可以通过索引号使用颜色

AN.color = 5

代替zcBlue

正如您在 https://www.engram9.info/autocad-2006-vba/changing-an-objects-color.html

中所见