关于 AcadPoint 的赋值

fanny_6

dim a as AcadPoint;a(1)=0 为什么会报错，如何改？

不用 dim a（2）as double！

谢谢

wylong

AcadPoint是对象，不是数据类型，当然这样赋值（a(1)=0）是会出错的！！

Sub Example_AddPoint()
    ' 该示例在模型空间中创建一个点。
    Dim pointObj As AcadPoint
    Dim location(0 To 2) As Double
    
    ' 定义点的位置
    location(0) = 5#: location(1) = 5#: location(2) = 0#
    
    ' 创建点
    Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
    ZoomAll
    
End Sub

fanny_6

Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)

这样不是在CAD上画了一个点了吗？不画是否可以？

wylong

不可以，这样的话pointObj是空值