[LISP程序]：lisp中如何获得如何获得xref中的实体？

lxf-ysy

cad2002中可以用xref 或block中的实体
做trim和extend的边界，lisp中如何获得如何获得xref中的实体？

XDSoft

最初由 lxf-ysy 发布
[B]cad2002中可以用xref 或block中的实体
做trim和extend的边界，lisp中如何获得如何获得xref中的实体？ [/B]

用函数 nentsel 选取实体，可以获得块中的子实体

测试（一个园和线组成的块，点选直线）：

2. 
   
3. [FONT=courier new]
   
4. 选择对象:
   
5. 命令: (setq a (nentsel))
   
6. 
   
7. 选择对象: (<图元名: 40184e70> (23783.5 9249.88 0.0) ((1.0 0.0 0.0) (0.0 1.0
   
8. 0.0) (0.0 0.0 1.0) (0.0 0.0 0.0)) (<图元名: 40184e80>))
   
9. 
   
10. 命令: !a
    
11. (<图元名: 40184e70> (23783.5 9249.88 0.0) ((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0
    
12. 1.0) (0.0 0.0 0.0)) (<图元名: 40184e80>))
    
13. 
    
14. 命令: (entlast)
    
15. <图元名: 40184e80>
    
16. 
    
17. 命令: (entget (car a))
    
18. ((-1 . <图元名: 40184e70>) (0 . "LINE") (330 . <图元名: 40184e58>) (5 . "96")
    
19. (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbLine") (10 28201.1 4070.53
    
20. 0.0) (11 19591.2 14023.9 0.0) (210 0.0 0.0 1.0))
    
21. [/FONT]

<br /> [FONT=courier new]<br /> 选择对象:<br /> 命令: (setq a (nentsel))<br /> <br /> 选择对象: (<图元名: 40184e70> (23783.5 9249.88 0.0) ((1.0 0.0 0.0) (0.0 1.0 <br /> 0.0) (0.0 0.0 1.0) (0.0 0.0 0.0)) (<图元名: 40184e80>))<br /> <br /> 命令: !a<br /> (<图元名: 40184e70> (23783.5 9249.88 0.0) ((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 <br /> 1.0) (0.0 0.0 0.0)) (<图元名: 40184e80>))<br /> <br /> 命令: (entlast)<br /> <图元名: 40184e80><br /> <br /> 命令: (entget (car a))<br /> ((-1 . <图元名: 40184e70>) (0 . "LINE") (330 . <图元名: 40184e58>) (5 . "96") <br /> (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbLine") (10 28201.1 4070.53 <br /> 0.0) (11 19591.2 14023.9 0.0) (210 0.0 0.0 1.0))<br /> [/FONT]

lxf-ysy

多谢xd  让我又学会一个新命令