社区 › VB › 关于 AcadPoint 的赋值

fanny_6 发表于 2008-7-16 22:53:00

关于 AcadPoint 的赋值

dim a as AcadPoint;a(1)=0 为什么会报错，如何改？
不用 dim a（2）as double！
谢谢

wylong 发表于 2008-7-16 23:37:00

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 发表于 2008-7-17 12:48:00

Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
这样不是在CAD上画了一个点了吗？不画是否可以？

wylong 发表于 2008-7-17 13:29:00

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

查看完整版本: 关于 AcadPoint 的赋值