GetEntity 设置捕捉交点

张火火、 · 发表于 2017-3-7 15:15:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

Sub 提取块标高()

Dim blockvalue As Variant
Dim Height  As Double
Dim Ent As AcadEntity  '选择集对象
Dim nub As Double

Open "D:\2017标高提取.txt" For Output As #1
   Print #1, "增强属性height："
   nub = 1
Do
On Error Resume Next
   ThisDrawing.Utility.GetEntity Ent, Pnt, "第" & nub & "属性块"
nub = nub + 1
  LOOP

请教一下， vba 使用 GetEntity  方法时如何设置捕捉交点为圆心！！谢谢！！

Lisphk · 发表于 2017-3-7 16:59:09

就是通过设置系统变量OSMODE=4吧

张火火、 · 发表于 2017-3-7 17:44:41

Lisphk 发表于 2017-3-7 16:59

不行，getpoint 可以。getentity捕捉不了！

Lisphk · 发表于 2017-3-7 17:51:54

张火火、发表于 2017-3-7 17:44

选择实体什么时候可以捕捉了？
VBA的GetEntity不就相当于LISP的entsel ?

你选择完实体后想进一步得到特征点，自己在计算啊，用OSNAP什么的

张火火、 · 发表于 2017-3-7 19:33:39

Lisphk 发表于 2017-3-7 17:51

是这个么个道理！绕进去了！！谢谢！！

账号		自动登录	找回密码
密码			立即注册

[求助] GetEntity 设置捕捉交点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。