vba 在cad中划点，如何将画出的点的颜色变成绿色

来源：百度知道 编辑：UC知道 时间：2024/06/25 17:57:24
哪位高手帮帮忙，我用vba 在autocad中画了点，如何使我画的点的颜色变成绿色？给代码，急~~~谢谢了

Sub tt()
Dim pnt(2) As Double
Dim p As AcadPoint
Set p = ThisDrawing.ModelSpace.AddPoint(pnt)
p.color = acGreen
End Sub

'不过一般的做法是先建一个绿色的图层，然后p.layer="mylayer"