将"块b2"按照"块b1"模样改造

自贡黄明儒

1. ;;格式刷MA的改进，当选择块时,执行Maa效果
   
2. 
   
3. ;;1 将"块b2"按照"块b1"模样改造，从此"块b1"有两个名字，"块b1"和"块b2"
   
4. (defun maa (NAME OLDNAME / E0 E1)
   
5.   (setq e1 (TBLOBJNAME "block" name))
   
6.   (setq e0 (TBLOBJNAME "block" oldname))
   
7.   ;;重新定义e1
   
8.   (entmake (entget e1))
   
9.   (while (setq e0 (entnext e0))
   
10.     (entmake (entget e0))
    
11.   )
    
12.   (entmake '((0 . "ENDBLK")))
    
13. ;;;  ;;更新显示
    
14. ;;;  (setq        s (ssget "X"
    
15. ;;;                 (list '(0 . "INSERT")
    
16. ;;;                       '(100 . "AcDbBlockReference")
    
17. ;;;                       (cons 2 name)
    
18. ;;;                 )
    
19. ;;;          )
    
20. ;;;  )
    
21. ;;;  (repeat (setq n (sslength s))
    
22. ;;;    (entupd (ssname s (setq n (1- N))))
    
23. ;;;  )
    
24. )
    
25. 
    
26. (defun C:maa (/ NAME OLDNAME)
    
27.   (setq oldname (cdr (assoc 2 (entget (car (entsel "\n 源块"))))))
    
28.   (setq name (cdr (assoc 2 (entget (car (entsel "\n 被改变的块"))))))
    
29.   (maa oldname name)
    
30.   (princ)
    
31. )
    
32. 
    
33. ;;2 如果只是将"块b2"按照"块b1"模样改造，"块b2"还是"块b2"，慢简单一些
    
34. (defun C:maa1 (/ EN OLDNAME)
    
35.   (setq oldname (cdr (assoc 2 (entget (car (entsel "\n 源块"))))))
    
36.   (setq en (entget (car (entsel "\n 被改变的块"))))
    
37.   (entmod (subst (cons 2 oldname)(assoc 2 en)en))
    
38.   (princ)
    
39. )
    

;;格式刷MA的改进，当选择块时,执行Maa效果<br /> <br /> ;;1 将"块b2"按照"块b1"模样改造，从此"块b1"有两个名字，"块b1"和"块b2"<br /> (defun maa (NAME OLDNAME / E0 E1)<br />   (setq e1 (TBLOBJNAME "block" name))<br />   (setq e0 (TBLOBJNAME "block" oldname))<br />   ;;重新定义e1<br />   (entmake (entget e1))<br />   (while (setq e0 (entnext e0))<br />     (entmake (entget e0))<br />   )<br />   (entmake '((0 . "ENDBLK")))<br /> ;;;  ;;更新显示<br /> ;;;  (setq        s (ssget "X"<br /> ;;;                 (list '(0 . "INSERT")<br /> ;;;                       '(100 . "AcDbBlockReference")<br /> ;;;                       (cons 2 name)<br /> ;;;                 )<br /> ;;;          )<br /> ;;;  )<br /> ;;;  (repeat (setq n (sslength s))<br /> ;;;    (entupd (ssname s (setq n (1- N))))<br /> ;;;  ) <br /> )<br /> <br /> (defun C:maa (/ NAME OLDNAME)<br />   (setq oldname (cdr (assoc 2 (entget (car (entsel "\n 源块"))))))<br />   (setq name (cdr (assoc 2 (entget (car (entsel "\n 被改变的块"))))))<br />   (maa oldname name)<br />   (princ)<br /> )<br /> <br /> ;;2 如果只是将"块b2"按照"块b1"模样改造，"块b2"还是"块b2"，慢简单一些<br /> (defun C:maa1 (/ EN OLDNAME)<br />   (setq oldname (cdr (assoc 2 (entget (car (entsel "\n 源块"))))))<br />   (setq en (entget (car (entsel "\n 被改变的块"))))<br />   (entmod (subst (cons 2 oldname)(assoc 2 en)en))<br />   (princ)<br /> )<br />

vladimirputin

非常不错的代码，谢谢楼主分享啊。

asbubble

感谢黄大师分享，学习一下

海盗曹

感谢黄大师分享，学习一下

guosheyang

感谢黄大师共享！

lxl217114

感谢黄大师共享！

没有昵称呀

感谢黄大师共享！

myhomer

感谢黄大师共享！

hzyhzjjzh

感谢黄大师共享

wzb233

感谢大师分享知识~！

白色微風1991

感謝黃大師共享！

tanshun_ysjkd

感谢大师分享知识~！