获得对象的OBJECTID字符串

marting

1. (defun XD::Object:IDStr (obj)
   
2.   (if (= (type obj) 'ENAME)
   
3.     (setq obj (vlax-ename->vla-object obj))
   
4.   )
   
5.   (or *util*
   
6.       (setq *util* (vla-get-Utility
   
7.                      (vla-get-ActiveDocument (vlax-get-acad-object))
   
8.                    )
   
9.       )
   
10.   )
    
11.   (if (vlax-method-applicable-p *util* 'GetObjectIdString)
    
12.     (vla-GetObjectIdString *util* obj :vlax-false)
    
13.     (itoa (vla-get-ObjectId obj))
    
14.   )
    
15. )
    

(defun XD::Object:IDStr (obj)<br />   (if (= (type obj) 'ENAME)<br />     (setq obj (vlax-ename->vla-object obj))<br />   )<br />   (or *util*<br />       (setq *util* (vla-get-Utility<br />                      (vla-get-ActiveDocument (vlax-get-acad-object))<br />                    )<br />       )<br />   )<br />   (if (vlax-method-applicable-p *util* 'GetObjectIdString)<br />     (vla-GetObjectIdString *util* obj :vlax-false)<br />     (itoa (vla-get-ObjectId obj))<br />   )<br /> )<br />

命令: (xd::object:idstr o)
"2223643506960"

yufeng37

楼主真是大神啊，太厉害了！

凝思

啥也不说了，感谢楼主分享哇！

土真空

可以用于字段提取物体，很有用，谢谢！

土真空

可以用于字段提取物体，很有用，谢谢！

土真空

初来乍到，楼主大神，受小仙一拜！

土真空

My God! D 豆赚得好快！一下打死七个！