关于 AcadPoint 的赋值

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

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 的赋值

发表回复

精选推荐