[VBA程序]：怎么在vba中发送一个画线line命令，然后让操作者在cad窗口自行画线？

god

在vba中控制acad，如果我想在vba中发送一个画线line命令，然后让操作者在cad窗口自行画线？
可以怎么做，我只知道可以用sendkeys、sendcommand发送字符"line "。有没有使acad窗口命令提示符后不出现"line"字样，而是出现自己定义的字符串，如"画直线"之类的。

雪山飞狐(lzh)

那就用VBA编一个和Line命令功能类似的程序

god

要做也可以做出来，不过麻烦了点，

自由的鱼

最初由 god 发布
[B]要做也可以做出来，不过麻烦了点， [/B]

是麻烦了些，为什么要这样做？

god

我也不想麻烦啊。比如我想提示操作者在acad中采用pline画公路线路中线，如果只提示“画公路线路中线”就好了，但实际上是“画公路线路中线”然后是“pline”，感觉上不太好，如果没有好办法，也就将就了。

雪山飞狐(lzh)

应该很简单，试试下面的测试代码
Sub Test()
On Error GoTo ErrHandle
Dim pFrom, pTo
pFrom = ThisDrawing.Utility.GetPoint(, vbCr & "请输入第一点：")
Do While 1
pTo = ThisDrawing.Utility.GetPoint(pFrom, vbCr & "请输入下一点：")
ThisDrawing.ModelSpace.AddLine pFrom, pTo
pFrom = ThisDrawing.Utility.GetPoint(pTo, vbCr & "请输入下一点：")
ThisDrawing.ModelSpace.AddLine pTo, pFrom
Loop
ErrHandle:
End Sub

小美菜

斑竹这个应该改一下:
Sub Test()
On Error GoTo ErrHandle
Dim pFrom, pTo
pFrom = ThisDrawing.Utility.GetPoint(, vbCr & "请输入第一点：")
Do While 1
pTo = ThisDrawing.Utility.GetPoint(pFrom, vbCr & "请输入下一点：")
ThisDrawing.ModelSpace.AddLine pFrom, pTo
pFrom = pTo
Loop
ErrHandle:
End Sub

god

两位大师都是高手，菜鸟觉得麻烦的事，高手都当作是小菜。

看来只能自编代码才能解决这个问题了。
不过这种用法还是第一次见到 ，Do While 1，感觉像是死循环，怎么跳出do循环的？

雪山飞狐(lzh)

On Error GoTo ErrHandle
遇到错误。。。
利用错误机制

god

^OOO^，高啊，实在是高。