VB编程在AutoCAD绘图空间创建点

VB编程在AutoCAD中创建图形，利用Add方法，在AutoCAD模型空间ModelSpace中创建二维或三维图形对象，也可在图纸空见或块中创建对象。

利用AddPoint方法可以创建一个点对象，应用该方法时需要给出点的X、Y、Z坐标。

通过系统变量PDMODE来控制点的显示方式，通过系统变量PDSIZE控制点的大小，修改系统变量值后，通过图形重生成来更新屏幕显示，下面代码创建一个点并修改其外形显示。

Private Sub Command1_Click()
    Dim pointobj As AcadPoint
    Dim location(0 To 2) As Double
    location(0) = 10#: location(1) = 10#: location(2) = 0#
    Set pointobj = acadapp.ActiveDocument.ModelSpace.AddPoint(location)
    acadapp.ActiveDocument.SetVariable "PDMODE", 35
    acadapp.ActiveDocument.SetVariable "PDSIZE", 5
    ZoomAll
End Sub