图块合并成匿名块

Lispboy

函数：  XD::Pickset:Grip 见：
http://bbs.xdcad.net/thread-671301-1-1.html

1. ;|
   
2. 图块合并成匿名块
   
3. |;
   
4. (defun c:XDTB_BlkRefUnion ( / e pt ss)
   
5.   (prompt "\n选择合并的图块<退出>:")
   
6.   (if (and
   
7.         (setq ss (ssget '((0 . "INSERT"))))
   
8.         (setq pt (getpoint "\n新的插入点<退出>:"))
   
9.       )
   
10.     (progn
    
11.       (XD::Begin)
    
12.       (setq e (xdrx_block_make ss pt t))
    
13.       (XD::End)
    
14.       (XD::Pickset:Grip (list (entlast)))
    
15.       (prompt (strcat "\n成功合并了" (itoa (sslength ss)) "个块到" e))
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )
    
20. 
    

;|<br /> 图块合并成匿名块<br /> |;<br /> (defun c:XDTB_BlkRefUnion ( / e pt ss)<br />   (prompt "\n选择合并的图块<退出>:")<br />   (if (and<br />         (setq ss (ssget '((0 . "INSERT"))))<br />         (setq pt (getpoint "\n新的插入点<退出>:"))<br />       )<br />     (progn<br />       (XD::Begin)<br />       (setq e (xdrx_block_make ss pt t))<br />       (XD::End)<br />       (XD::Pickset:Grip (list (entlast)))<br />       (prompt (strcat "\n成功合并了" (itoa (sslength ss)) "个块到" e))<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

写诗天涯

感觉比较有用，谢谢楼主的

chucklehead

学习学习，谢谢

hero07249

要是有不进入块 直接把元素加进去就好了

yoyoho

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

yanchao316

回的人少，我来小顶一下

renyonghua2014

实用，谢谢楼主。

pedromaxkang

這個功能蠻實用的,學習學習