实体列表

marting

1. (defun c:myentget+ (/ ent elst)
   
2.   (if (and (setq ent (car (entsel "\nSelect entity to list.")))
   
3.            (setq elst (entget ent '("*")))
   
4.       )
   
5.     (progn
   
6.       (textscr)
   
7.       (princ "\n>>>------>  ")
   
8.       (princ (vlax-ename->vla-object ent))
   
9.       (mapcar 'print elst)
   
10.       (mapcar
    
11.         '(lambda (x / slst)
    
12.            (if (and (assoc x elst)
    
13.                     (setq slst (entget (cdr (assoc x elst))))
    
14.                )
    
15.              (progn
    
16.                (prompt (strcat "\n\n*******  Dump DXF "
    
17.                                (itoa x)
    
18.                                " listing  *********"
    
19.                        )
    
20.                )
    
21.                (foreach n slst (print n))
    
22.              )
    
23.            )
    
24.          )
    
25.         '(330 340)
    
26.       )                                       
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    
31. 
    

(defun c:myentget+ (/ ent elst)<br />   (if (and (setq ent (car (entsel "\nSelect entity to list.")))<br />            (setq elst (entget ent '("*")))<br />       )<br />     (progn<br />       (textscr)<br />       (princ "\n>>>------>  ")<br />       (princ (vlax-ename->vla-object ent))<br />       (mapcar 'print elst)<br />       (mapcar<br />         '(lambda (x / slst)<br />            (if (and (assoc x elst)<br />                     (setq slst (entget (cdr (assoc x elst))))<br />                )<br />              (progn<br />                (prompt (strcat "\n\n*******  Dump DXF "<br />                                (itoa x)<br />                                " listing  *********"<br />                        )<br />                )<br />                (foreach n slst (print n))<br />              )<br />            )<br />          )<br />         '(330 340)<br />       )                                        <br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

命令: MYENTGET+

Select entity to list.
>>>------>  #<VLA-OBJECT IAcadLine 16f8443c>
(-1 . <图元名: -24ac58>)
(0 . "LINE")
(330 . <图元名: -24c308>)
(5 . "1B5")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "0")
(100 . "AcDbLine")
(10 2705.35 931.767 0.0)
(11 3087.48 1341.89 0.0)
(210 0.0 0.0 1.0)

*******  Dump DXF 330 listing  *********
(-1 . <图元名: -24c308>)
(0 . "BLOCK_RECORD")
(330 . <图元名: -24c3f8>)
(5 . "1F")
(100 . "AcDbSymbolTableRecord")
(100 . "AcDbBlockTableRecord")
(2 . "*Model_Space")
(360 . <图元名: -24c300>)
(340 . <图元名: -24c2f0>)
(70 . 0)
(280 . 1)
(281 . 0)

占卜者

正需要，支持楼主大人了！

kqqt6236

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