“另类方法”求实体的AcDbObjectId值

newer

我们对 <图元名: -24dbf0> 实体名很眼熟了，那么通过实体名能求出该实体的AcDbObjectId值吗

我们看看这个实体的ID值是多少，看下面图



ID是 -2415600，

那实体名里面的数字 <图元名: -24dbf0>   -24dbf0

是16进制的，我们把它转换成十进制，看看结果

1. 
   
2. 命令: (xd::math:hex2dec "-24dbf0")
   
3. -2415600
   

复制代码

看出来了，实体名里面的数字转换成10进制就是对象的ID值。

下面写个测试工具，大家可以找个实体测试下

1. (defun c:tt ()
   
2.   (if (setq e (car (entsel)))
   
3.     (progn
   
4.       (setq str (xd::var:tostring e))
   
5.       (xdrx_prompt "\n实体名是:" str)
   
6.       (setq num        (xdrx_string_regexps "(?<=: ).*(?=>)" str)
   
7.             num        (car num)
   
8.       )
   
9.       (xdrx_prompt "\n数字是:" num)
   
10.       (xdrx_prompt
    
11.         "\n转换成10进制是:"
    
12.         (setq num (xd::math:hex2dec num))
    
13.       )
    
14.       (xdrx_prompt
    
15.         "\n对象的AcDbObjectId为:"
    
16.         (setq id (vla-get-objectid (vlax-ename->vla-object e)))
    
17.       )
    
18.       (if (= num id)
    
19.         (xdrx_prompt
    
20.           "\n所以实体名中的数字转换成10进制等于该实体的AcDbObjectId值."
    
21.         )
    
22.       )
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )
    

(defun c:tt ()<br />   (if (setq e (car (entsel)))<br />     (progn<br />       (setq str (xd::var:tostring e))<br />       (xdrx_prompt "\n实体名是:" str)<br />       (setq num        (xdrx_string_regexps "(?<=: ).*(?=>)" str)<br />             num        (car num)<br />       )<br />       (xdrx_prompt "\n数字是:" num)<br />       (xdrx_prompt<br />         "\n转换成10进制是:"<br />         (setq num (xd::math:hex2dec num))<br />       )<br />       (xdrx_prompt<br />         "\n对象的AcDbObjectId为:"<br />         (setq id (vla-get-objectid (vlax-ename->vla-object e)))<br />       )<br />       (if (= num id)<br />         (xdrx_prompt<br />           "\n所以实体名中的数字转换成10进制等于该实体的AcDbObjectId值."<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

xd::math:hex2dec 函数见： http://bbs.xdcad.net/thread-711205-1-1.html

下面是通过这个方法获得的ID的函数：

1. (defun _id (e)
   
2.   (setq str (xd::var:tostring e))
   
3.   (setq        num (xdrx_string_regexps "(?<=: ).*(?=>)" str)
   
4.         num (car num)
   
5.   )
   
6.   (xd::math:hex2dec num)
   
7. )
   

(defun _id (e)<br />   (setq str (xd::var:tostring e))<br />   (setq        num (xdrx_string_regexps "(?<=: ).*(?=>)" str)<br />         num (car num)<br />   )<br />   (xd::math:hex2dec num)<br /> )<br />

或者

1. (defun _id (e)
   
2.   (setq str (vl-princ-to-string e))
   
3.   (setq        num (xd::string:regexps "(-)?[0-9a-f]+" str "")
   
4.         num (car num)
   
5.   )
   
6.   (xd::math:hex2dec num)
   
7. )
   

(defun _id (e)<br />   (setq str (vl-princ-to-string e))<br />   (setq        num (xd::string:regexps "(-)?[0-9a-f]+" str "")<br />         num (car num)<br />   )<br />   (xd::math:hex2dec num)<br /> )<br />

q3_2006

id为什么是负值??

liunian0524

感谢版主分享