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

CXB

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

mccad

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

CXB

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

使用 Do While Err.Number <> -2147467259