（XD::VLA:ObjectID）获取对象的OBJECTID

marting

1. (defun XD::VLA:ObjectID (obj / doc)
   
2.   (if (= (type obj) 'ENAME)
   
3.     (setq obj (vlax-ename->vla-object obj))
   
4.   )
   
5.   (if
   
6.     (vlax-method-applicable-p
   
7.       (vla-get-utility (setq doc (vla-get-activedocument (vlax-get-acad-object))))
   
8.       'getobjectidstring
   
9.     )
   
10.      (vla-getobjectidstring (vla-get-utility doc) obj :vlax-false)
    
11.      (itoa (vla-get-objectid obj))
    
12.   )
    
13. )
    
14. 
    

(defun XD::VLA:ObjectID (obj / doc)<br />   (if (= (type obj) 'ENAME)<br />     (setq obj (vlax-ename->vla-object obj))<br />   )<br />   (if<br />     (vlax-method-applicable-p<br />       (vla-get-utility (setq doc (vla-get-activedocument (vlax-get-acad-object))))<br />       'getobjectidstring<br />     )<br />      (vla-getobjectidstring (vla-get-utility doc) obj :vlax-false)<br />      (itoa (vla-get-objectid obj))<br />   )<br /> )<br /> <br />

命令: (XD::VLA:OBJECTID (entlast))
"140700245055696"

434939575

请问老大这个怎样通过这个ID号选取这个图形。谢谢分享.

sh_h

谢谢大师分享！！！

marting

434939575 发表于 2018-3-16 08:45

ID是图形打开后，临时的，所以拿它获取图形实体也多大用，你如果需要保存到外部文件，以后打开对应的实体，可以用句柄，然后用 handent 函数获取实体。

434939575

marting 发表于 2018-3-16 10:14

谢谢。那就这个:id号没有多大用途啊.

marting

434939575 发表于 2018-3-16 10:22

有时候也有用了啊，比如只在当前图中执行某个需要，用ID吧把实体标识出来，用来排序什么的
从ID到对象，可以用vla-objectidtoobject


VL关于OBJECTID方面的函数有：

vla-get-objectid
vla-getobjectidstring
vla-objectidtoobject

434939575

marting 发表于 2018-3-16 10:28

谢谢大师耐心指点。