聚合实体到无名快中

XDSoft

[sell=2]

1. (defun c:XDTB_BLKAno( / na ss)
   
2.    (xdrx_prompt "\n选取制作匿名块的实体<退出>:")
   
3.    (if (setq ss (ssget))
   
4.      (progn
   
5.         (setq na (xdrx_block_make ss (xd::geom:get9pt ss 5) t))
   
6.         (setq na (xdrx_getpropertyvalue na "blocktablerecord"))
   
7.         (xdrx_prompt "\n选择的实体成功的聚合到块" (car na) "中.")
   
8.      )
   
9.    )
   
10.    (princ)
    
11. )
    

(defun c:XDTB_BLKAno( / na ss)<br />    (xdrx_prompt "\n选取制作匿名块的实体<退出>:")<br />    (if (setq ss (ssget))<br />      (progn<br />         (setq na (xdrx_block_make ss (xd::geom:get9pt ss 5) t))<br />         (setq na (xdrx_getpropertyvalue na "blocktablerecord"))<br />         (xdrx_prompt "\n选择的实体成功的聚合到块" (car na) "中.")<br />      )<br />    )<br />    (princ)<br /> )<br />

[/sell]