neteasy 发表于 2013-1-23 13:31:59

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

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

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

本帖最后由 万里天 于 2013-1-23 17:01 编辑

    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:13

谢谢回答！！！！
页: [1]
查看完整版本: vba中屏幕选择函数，如何实现选择一个图元后自动结束选择。