等答案无聊写一个图块替换

vormittag

图块替换需要那么长的代码么? 我这里有个简单点的，能保留原有块的大小、方向，只是属性块的属性没有考虑。

2. 
   
3. (defun rpblock(ename blockname / ell)
   
4.    (setq ell (entget ename))
   
5.    (setq ell (subst (cons 2 blockname) (assoc 2 ell) ell))
   
6.    (entmod ell)
   
7.    (entupd ename)
   
8. )
   
9. (defun c:kth( / ss i tename blockname ename)
   
10.     (setq ss    (ssget '((0 . "INSERT")))
    
11.           i     0
    
12.         );setq
    
13.         (if ss
    
14.                 (progn
    
15.                         (princ "\n请选择块:")
    
16.                         (while (/= "INSERT" (cdr (assoc 0 (entget (setq tename (car (entsel)))))))
    
17.                                    (princ "\n请选择块:")
    
18.                         )
    
19.                         (setq blockname (cdr (assoc 2 (entget tename))))
    
20.                         (repeat (sslength ss)
    
21.                                         (setq ename (ssname ss i) i (+ 1 i))
    
22.                                         (rpblock ename blockname)
    
23.                         )
    
24.                 )
    
25.         )
    
26.         (princ)
    
27. )

<br /> (defun rpblock(ename blockname / ell)<br />    (setq ell (entget ename))<br />    (setq ell (subst (cons 2 blockname) (assoc 2 ell) ell))<br />    (entmod ell)<br />    (entupd ename)<br /> )<br /> (defun c:kth( / ss i tename blockname ename)<br />     (setq ss    (ssget '((0 . "INSERT"))) <br />           i     0<br />         );setq<br />         (if ss<br />                 (progn<br />                         (princ "\n请选择块:")<br />                         (while (/= "INSERT" (cdr (assoc 0 (entget (setq tename (car (entsel)))))))<br />                                    (princ "\n请选择块:")<br />                         )<br />                         (setq blockname (cdr (assoc 2 (entget tename))))<br />                         (repeat (sslength ss)<br />                                         (setq ename (ssname ss i) i (+ 1 i))<br />                                         (rpblock ename blockname)<br />                         )<br />                 )<br />         )<br />         (princ)<br /> )

yjr111

vormittag 发表于 2012-6-15 16:29
图块替换需要那么长的代码么? 我这里有个简单点的，能保留原有块的大小、方向，只是属性块的属性没有考虑。

用下面附件试试看有没有区别？

Gu_xl

yjr111 发表于 2012-6-15 17:23
用下面附件试试看有没有区别？

一般来说，一个程序的核心处理代码，都不会很长！但是为了能处理所有能遇到的各种情况，错误处理代码要比核心处理代码长很多，甚至数十倍都不止！程序设计的难点也在于此！

fdb2007

yjr111 发表于 2012-2-21 17:57
看来这个需要的人还是蛮多的，现在把源码传上来吧

感谢分享，下载学习了

mp3_2004

感谢版主大师的分享

ucuc2003

yjr111 发表于 2012-2-22 16:45
highflybird、ZZXXQQ、G版、飞版、C版、曹版等等才是大师，我仅仅是玩玩花拳绣腿而已，so，别叫我大师了[em ...

你现在已经很厉害了，支持严老大！哈哈

ucuc2003

Gu_xl 发表于 2012-6-19 18:52
一般来说，一个程序的核心处理代码，都不会很长！但是为了能处理所有能遇到的各种情况，错误处理代码要比 ...

G版点评说的很对

asd19400

06cad，全图替换有问题，不是出错，而是点全图替换的时候闪的厉害

烟盒迷唇

如果替换后的块能保持原有块的方向和角度就更好了

涛涛_1048

要是能把DCL归并到LISP程序里就好了。