[求助]：vba如何和acad交互啊？

bzy777

我想在acad的命令行中输入数据，然后在vba中处理，可是使用getpoint函数总是得到var的变量，如果用ctsr强迫转换为字符串，总是提示类型不符合，这是怎么回事啊？

雪山飞狐(lzh)

getpoint获取的是Double型的数组，当然无法转换为字符串
如果要获取字符串用GetString

sbzqby

谢谢斑竹！

bzy777

再次请教，其实我想做一个程序，功能是由命令行输入点的三维坐标，然后在该坐标上画一个小圆，并在旁边标注上该点的高程，程序无限循环，如果直接输入回车，那么程序退出。我用的是acad2002，我想这中间必然涉及到，数组到字符的转换，另外，我发现定义的数组类型好像不能和getpoint函数符合，请高手指教!

雪山飞狐(lzh)

不必转换，getpoint可以接受“X,Y,Z”格式的输入，它会自动转换为数组的
ＶＢ不能对数组直接赋值，你只能这样
dim pnt
pnt=ThisDrawing.Utility.GetPoint

bzy777

我的程序我试过了，可以运行，不过在最后总会弹出窗口说类型不匹配，请教这是为什么？
Sub Exampl()
    ' This example adds a line in model space
    Dim circleObj As AcadCircle
    Dim textObj As AcadText
    Dim height As Double
    Dim textString As String
    Dim px(0 To 2) As Double
    Dim radius As Double
    Dim x As String
    radius = 0.2
    height = 0.5
    Dim returnPnt
    returnPnt = 1
    Do While returnPnt <> 0
  ' Return a point using a prompt
    returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
     Set circleObj = ThisDrawing.ModelSpace.AddCircle(returnPnt, radius)
       x = CDbl(returnPnt(2))
      textString = x
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, returnPnt, height)
Loop
   
End Sub
程序的功能我和上面说的一样，请高手修改一下，谢谢了

ntchjie

我的土方法，呵呵，高手见笑。
On Error Resume Next
Me.Hide
radius = 0.2
height = 0.5
Dim returnPnt
returnPnt = 1
Dim k As Integer
k = 0
Do While k = 0
' Return a point using a prompt
    returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
    If Err.Number = -2145320928 Then Exit Do
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(returnPnt, radius)
    x = CDbl(returnPnt(2))
    textString = x
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, returnPnt, height)
Loop

雪山飞狐(lzh)

Sub tt()
On Error GoTo ErrHandle
Dim circleObj As AcadCircle
Dim textObj As AcadText
Dim height As Double
Dim radius As Double
radius = 0.2
height = 0.5
Dim returnPnt
Do While 1
returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
Set circleObj = ThisDrawing.ModelSpace.AddCircle(returnPnt, radius)
Set textObj = ThisDrawing.ModelSpace.AddText(returnPnt(2), returnPnt, height)
Loop
ErrHandle:
End Sub

bzy777

感谢感谢，在麻烦两位告诉我一下，程序中控制转向的原理是什么，好吗？
我直接在程序运行时敲回车，那么会产生什么样的变量变化呢？
另外，两位的程序中都有对错误的描述，这是不是说，程序把错误发生的原因告诉解释文件，由它在调用已编号的错误描述呢？

zjb0115

谢谢，非常感谢，支持

zhangxiaoyu1982

如果想改变画的图的点的属性来改变图，是不是的用LISP啊？

winabcd

看到一个好东东，对我的用处很大，谢谢楼上各位。

ytjddd

解决了小弟的燃眉之急，先谢谢了

秦林

以上各楼主讨论真好!!!使人收益不少