vba中屏幕选择函数，如何实现选择一个图元后自动结束选择。

neteasy · 发表于 2013-1-23 13:31:00

SelectOnScreen函数，我想选择一个图元后自动结束选择，如何写？谢谢！！！

万里天 · 发表于 2013-1-23 17:00:00

Dim Ent As AcadEntity
Dim 拾取点 As Variant
Do
      AppActivate ThisDrawing.Application.Caption    '切换到CAD绘图
      ThisDrawing.Utility.GetEntity Ent, 拾取点, vbCr & "请选择基线: "
      If Err Then Exit Do
      If Ent.ObjectName  "" Then Exit Do
Loop

neteasy · 发表于 2013-1-25 16:54:00

谢谢回答！！！！

vba中屏幕选择函数，如何实现选择一个图元后自动结束选择。

发表回复

精选推荐