[LISP函数]：图块操作函数,比重新定义图块速度更快!

eachy

2. [FONT=courier new];;图块操作
   
3. ;;构造图块选择集
   
4. (defun regen_all_blk (e / blk lst)
   
5.     (setq blk (last (last e)))
   
6.     (setq lst (assoc 2 (entget blk)))
   
7.     (setq ss (ssget "x" (list lst)))
   
8. )
   
9. ;;删除块内子实体并自动更新图中所有块(重新定义块!)
   
10. (defun del_blk_subobj (/ tf e)
    
11.   (xdrx_begin)
    
12.   (setq TF T)
    
13.   (while TF
    
14.     (if        (> (length (setq e (nentsel))) 2)
    
15.       (progn
    
16.         (xdrx_entity_delete (car e))
    
17.         (xdrx_object_regen (regen_all_blk e))
    
18.       )
    
19.       (progn
    
20.         (princ "\n\t所选实体非块，用CAD命令直接修改!")
    
21.         (setq tf nil)
    
22.       )
    
23.     )
    
24.   )
    
25.   (xdrx_end)
    
26.   (princ)
    
27. )
    
28. ;;修改块中某一子实体至指定层(颜色随层)并自动更新图中引用块
    
29. (defun mod_blk_subobj (/ tf e lay)
    
30.   (xdrx_begin)
    
31.   (setq TF T)
    
32.   (while TF
    
33.     (if        (> (length (setq e (nentsel))) 2)
    
34.       (progn
    
35.         (setq lay (getstring "\n修改至图层: "))
    
36.         (xdrx_setenttodb (car e))
    
37.         (xdrx_modent 8 lay 62 0)
    
38.         (xdrx_object_regen (regen_all_blk e))
    
39.       )
    
40.       (progn
    
41.         (princ "\n\t所选实体非块，用CAD命令直接修改!")
    
42.         (setq tf nil)
    
43.       )
    
44.     )
    
45.   )
    
46.   (xdrx_end)
    
47.   (princ)
    
48. )
    
49. ;;重新生成选择集,比如有时圆显示为折线的时候,regen显
    
50. ;;的速度慢,用下面一行试试
    
51. (defun regen_ss        (/ ss)
    
52.   (xdrx_object_regen (ssget))
    
53. )[/FONT]

[FONT=courier new];;图块操作<br /> ;;构造图块选择集<br /> (defun regen_all_blk (e / blk lst)<br />     (setq blk (last (last e)))<br />     (setq lst (assoc 2 (entget blk)))<br />     (setq ss (ssget "x" (list lst)))<br /> )<br /> ;;删除块内子实体并自动更新图中所有块(重新定义块!)<br /> (defun del_blk_subobj (/ tf e)<br />   (xdrx_begin)<br />   (setq TF T)<br />   (while TF<br />     (if        (> (length (setq e (nentsel))) 2)<br />       (progn<br />         (xdrx_entity_delete (car e))<br />         (xdrx_object_regen (regen_all_blk e))<br />       )<br />       (progn<br />         (princ "\n\t所选实体非块，用CAD命令直接修改!")<br />         (setq tf nil)<br />       )<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br /> ;;修改块中某一子实体至指定层(颜色随层)并自动更新图中引用块<br /> (defun mod_blk_subobj (/ tf e lay)<br />   (xdrx_begin)<br />   (setq TF T)<br />   (while TF<br />     (if        (> (length (setq e (nentsel))) 2)<br />       (progn<br />         (setq lay (getstring "\n修改至图层: "))<br />         (xdrx_setenttodb (car e))<br />         (xdrx_modent 8 lay 62 0)<br />         (xdrx_object_regen (regen_all_blk e))<br />       )<br />       (progn<br />         (princ "\n\t所选实体非块，用CAD命令直接修改!")<br />         (setq tf nil)<br />       )<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br /> ;;重新生成选择集,比如有时圆显示为折线的时候,regen显<br /> ;;的速度慢,用下面一行试试<br /> (defun regen_ss        (/ ss)<br />   (xdrx_object_regen (ssget))<br /> )[/FONT]

li809

谢谢了,好用的东西

ysx810210

试试这个
http://p4.xdcad.net/forum/showthread.php?s=&threadid=436917

guyonggood

好贴必顶  谢谢楼主

kqqt6236

学习一下。