CXB 发表于 2005-3-7 19:04:00

[求助]VBA临时捕捉问题?

VBA进行取点时（thisdrawing.Utility.GetPoint)，无法使用临时捕捉，有什么解决方法。

mccad 发表于 2005-3-7 21:07:00

你自己有没有试过。如果试过请贴出你的代码。

CXB 发表于 2005-3-8 20:07:00

On Error Resume Next
Dim line1 As AcadLine
Dim firstPoint As Variant
Dim bpt1 As Variant: bpt2 As Variant: bpt3 As Variant
firstPoint = ThisDrawing.Utility.GetPoint(, vbCrLf & "请插入")
bpt1 = firstPoint
bpt2 = ThisDrawing.Utility.GetPoint(bpt1, "请插入")
Set line1 = ThisDrawing.ModelSpace.AddLine(bpt1, bpt2)
Err.Clear
Do While Err.Number = 0
                       bpt3 = ThisDrawing.Utility.GetPoint(bpt2, "请插入")
                       Set line1 = ThisDrawing.ModelSpace.AddLine(bpt2, bpt3)
                       bpt2 = bpt3
Loop
程序为连续画线,通过右键结束.
在画线过程中,一旦点击对象捕捉工具条,使用临时捕捉,程序就会跳出.
错误为"未知命令".

my_computer 发表于 2005-3-9 18:10:00

使用 Do While Err.Number-2147467259
页: [1]
查看完整版本: [求助]VBA临时捕捉问题?