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

Answer 2

您可以按索引号使用颜色

AN.color = 5

代替zcBlue

正如您可以在https://www.engram9.info/autocad-2006-vba/changing-an-objects-color.html中找到的