使用 Handent 全面查看Dwg内部所有对象

st788796

Dwg 中对象可以分为可见对象（能够呈现在屏幕上的）和非可见对象（比如词典、表等等），一般查询实体用 ssget + 遍历，还有  tblxxxx dictxxx 两类函数，还有些就需要使用 ActiveX 方法，对各个集合进行遍历。
下面介绍一种更直接的方法，可以无一遗漏的查看各种对象。对 DWG 而言，句柄(Handle) 是恒久不变，而且使用一个十六进制字符串来表示。函数  handent 可以将这个字符串转换为acad对象（如果该对象存在）
在论坛上随便找了一个十进制转换为十六进制的函数
http://bbs.xdcad.net/forum.php?m ... E%C1%F9%BD%F8%D6%C6
用下面方法就可以看到本 dwg 中所有对象，顺便说一句，自定义实体都要重写 dxfOut

2. (defun c:tt (/ e i)
   
3.   (setq i 0)
   
4.   (repeat 100000
   
5.     (if        (setq e (handent (TBC:DEC2HEX i)))
   
6.       (progn
   
7.         (princ "\n-------------------------------------\n")
   
8.         (princ (entget e))
   
9.       )
   
10.     )
    
11.     (setq i (1+ i))
    
12.   )
    
13.   (princ)
    
14. )

(defun c:tt (/ e i)<br />   (setq i 0)<br />   (repeat 100000<br />     (if        (setq e (handent (TBC:DEC2HEX i)))<br />       (progn<br />         (princ "\n-------------------------------------\n")<br />         (princ (entget e))<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )

以上只是一种方法，这样你就可以分析出来任何插件隐藏在 dwg 中 “秘密”！ good luckey！

yangjian001

可以无一遗漏的查看各种对象

/db_自贡黄明儒_

不彻底呀 ，何不将TBC:DEC2HEX发上来？

st788796

/db_自贡黄明儒_ 发表于 2017-7-26 09:14

2. 
   
3. (defun TBC:DEC2HEX (dec / tmp x y n hex)
   
4.   (if dec
   
5.     (if        (= 0 dec)
   
6.       (setq hex "0")
   
7.       (progn (setq hex ""
   
8.                    x   dec
   
9.                    n   16
   
10. 
    
11.              )
    
12.              (while (< 0 x)
    
13.                (setq y         (rem x n)
    
14.                      x         (/ x n)
    
15.                      tmp (if (> y 9)
    
16.                            (chr (+ y 55))
    
17.                            (chr (+ y 48))
    
18.                          )
    
19.                      hex (strcat tmp hex)
    
20.                )
    
21.              )
    
22.       )
    
23.     )
    
24.   )
    
25.   hex
    
26. )

<br /> (defun TBC:DEC2HEX (dec / tmp x y n hex)<br />   (if dec<br />     (if        (= 0 dec)<br />       (setq hex "0")<br />       (progn (setq hex ""<br />                    x   dec<br />                    n   16<br /> <br />              )<br />              (while (< 0 x)<br />                (setq y         (rem x n)<br />                      x         (/ x n)<br />                      tmp (if (> y 9)<br />                            (chr (+ y 55))<br />                            (chr (+ y 48))<br />                          )<br />                      hex (strcat tmp hex)<br />                )<br />              )<br />       )<br />     )<br />   )<br />   hex<br /> )

/db_自贡黄明儒_

重点是dxfOut,怎么弄？

st788796

/db_自贡黄明儒_ 发表于 2017-7-26 10:13

dxfOut 就是 acad 的命令

tengteb

st788796 发表于 2017-7-26 09:24

看到我的函数了

/db_自贡黄明儒_

tengteb 发表于 2017-7-26 16:54

你写得不错，多分享一点吧。