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

关于 AcadPoint 的赋值

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

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

<p><strong>AcadPoint是对象，不是数据类型，当然这样赋值（</strong><font color="#f70909">a(1)=0</font>）是会出错的！！</p><pre class="Code">Sub Example_AddPoint()
    ' 该示例在模型空间中创建一个点。
    <font color="#ff0000">Dim pointObj As <font style="BACKGROUND-COLOR: #3399ff;">AcadPoint</font></font>
    Dim location(0 To 2) As Double
   
    ' 定义点的位置
    location(0) = 5#: location(1) = 5#: location(2) = 0#
   
    ' 创建点
    <font color="#ff0000">Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)</font>
    ZoomAll
   
End Sub</pre>

fanny_6 发表于 2008-7-17 12:48:00

<p><font color="#ff0000">Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)</font></p><p>这样不是在CAD上画了一个点了吗？不画是否可以？</p>

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

不可以，这样的话<font color="#ff0000">pointObj是空值</font>
页: [1]
查看完整版本: 关于 AcadPoint 的赋值