一个弱弱的问题 已知一个对象的handle如何直接得到这个对象呢

eagledance

不需要遍历所有的对象 而是直接得到 有这样的函数么

王咣生

(handent handle)返回实体名.

efan2000

文档对象的HandleToObject方法是通过句柄返回一个对象，而ObjectIDToObject方法是通过对象的ID号返回一个对象。

eagledance

谢谢各位老大指点

dchlmz

已知实体的Handle，如何实现在CAD图中选中该实体？？

雪山飞狐_lzh

lisp可以，vba不行

dchlmz

版主给个方法行不？

 

雪山飞狐_lzh

lisp代码

2. (defun c:test()
3. (setq ss (ssadd) oldusers1 (getvar "users1"))
4. (vla-RunMacro (vlax-get-acad-object) "SelectByHandle")
5. (setq obj (handent (getvar "users1")))
6. (ssadd obj ss)
7. (setvar "users1" oldusers1)
8. (sssetfirst nil ss)
9. )

(defun c:test() (setq ss (ssadd) oldusers1 (getvar "users1")) (vla-RunMacro (vlax-get-acad-object) "SelectByHandle") (setq obj (handent (getvar "users1"))) (ssadd obj ss) (setvar "users1" oldusers1) (sssetfirst nil ss) )

VBA代码

2. Sub SelectByHandle()
3.     Dim ent As AcadEntity, pnt
4.     ThisDrawing.Utility.GetEntity ent, pnt
5.     ThisDrawing.SetVariable "users1", ent.Handle
6. End Sub

Sub SelectByHandle()     Dim ent As AcadEntity, pnt     ThisDrawing.Utility.GetEntity ent, pnt     ThisDrawing.SetVariable "users1", ent.Handle End Sub

dchlmz

如何在VBA中加载Lisp 程序？