[求助]：编了一个程序但是没有达到自己的预期效果请指正

露水2

预期效果：图中的圆被框选后被树块（块名字为1）自动替代，并自动根据圆的大小改变块的大小，并删除原来的圆。
我自己编的：不会根据圆的大小改变数块的大小，也不会删除原来的圆，也不会自动更新，只能框选择以后点enter键不松开一个一个的更新。
请指正！
下面是我的lsp

2. (defun c:test()
   
3.   (setvar "cmdecho" 0)
   
4. (setq ss (ssget '((0 . "CIRCLE")))
   
5.        i 0)
   
6. (repeat (sslength ss)
   
7.    (setq en (ssname ss i)
   
8.          en_data (entget en))
   
9.    (command "ucs" "w" en)
   
10.    (setq cen (cdr (assoc 10 en_data)))
    
11.    (command "insert" "1" cen "1" "1" "0")
    
12.   (setq i (+ 1 i))
    
13. )
    
14. )

(defun c:test()<br />   (setvar "cmdecho" 0)<br /> (setq ss (ssget '((0 . "CIRCLE")))<br />        i 0)<br /> (repeat (sslength ss)<br />    (setq en (ssname ss i)<br />          en_data (entget en))<br />    (command "ucs" "w" en)<br />    (setq cen (cdr (assoc 10 en_data)))<br />    (command "insert" "1" cen "1" "1" "0")<br />   (setq i (+ 1 i))<br /> )<br /> )

eachy

1 用园的半径作为图块的比例
2 (command ".ucs" "w" en) 此行可以去掉（前提是你在WCS下使用程序)
3 有些树的图块都含有属性，不知道插入的时候是不是提示属性，如果有的话，最后的插入语句作相应修改

WHGF

用圆的内接矩形与块的外接矩形做比例因子，调整块的大小，OK！

zxq0220

试一下：

2. 
   
3. (defun c:test()
   
4. (setvar "cmdecho" 0)
   
5. (setq ss (ssget '((0 . "CIRCLE")))
   
6.        i 0)
   
7. (command ".undo" "be")
   
8. (repeat (sslength ss)
   
9.   (setq en (ssname ss i) i (1+ i)
   
10.         en_data (entget en))
    
11.   (setq cen (cdr (assoc 10 en_data)))
    
12.   (setq r (cdr (assoc 40 en_data)))
    
13.   (command ".insert" "1" cen r r "0" ".erase" en "")
    
14. )
    
15. (command ".undo" "e")
    
16. (princ)
    
17. )
    

<br /> (defun c:test()<br /> (setvar "cmdecho" 0)<br /> (setq ss (ssget '((0 . "CIRCLE")))<br />        i 0)<br /> (command ".undo" "be")<br /> (repeat (sslength ss)<br />   (setq en (ssname ss i) i (1+ i)<br />         en_data (entget en))<br />   (setq cen (cdr (assoc 10 en_data)))<br />   (setq r (cdr (assoc 40 en_data)))<br />   (command ".insert" "1" cen r r "0" ".erase" en "")<br /> )<br /> (command ".undo" "e")<br /> (princ)<br /> )<br />

露水2

谢谢大家的思路
按这个思路以后那不是想替换什么就替换什么啊！
4楼的程序把

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test()
   
5. (setvar "cmdecho" 0)
   
6. (setq ss (ssget '((0 . "CIRCLE")))
   
7.        i 0)
   
8. (command ".undo" "be")
   
9. (repeat (sslength ss)
   
10.   (setq en (ssname ss i) i (1+ i)
    
11.         en_data (entget en))
    
12.   (setq cen (cdr (assoc 10 en_data)))
    
13.   (setq r (cdr (assoc 40 en_data)))
    
14.   (command ".insert" "1" cen (* 2 r) (* 2 r) "0" ".erase" en "") ;将r改成(* 2 r)就是完美的我要的lsp
    
15. )
    
16. (command ".undo" "e")
    
17. (princ)
    
18. )
    
19.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:test()<br /> (setvar "cmdecho" 0)<br /> (setq ss (ssget '((0 . "CIRCLE")))<br />        i 0)<br /> (command ".undo" "be")<br /> (repeat (sslength ss)<br />   (setq en (ssname ss i) i (1+ i)<br />         en_data (entget en))<br />   (setq cen (cdr (assoc 10 en_data)))<br />   (setq r (cdr (assoc 40 en_data)))<br />   (command ".insert" "1" cen (* 2 r) (* 2 r) "0" ".erase" en "") ;将r改成(* 2 r)就是完美的我要的lsp<br /> )<br /> (command ".undo" "e")<br /> (princ)<br /> )<br />   [/FONT]<br />

eachy

erase 放到 repeat 外面

露水2

还想问一下(command ".undo" "be")和(command ".undo" "e")
所起的作用
假如将erase放在外面就不能删除原来的圆了。

eachy

2. 
   
3. (defun c:test (/ ss i en el r cen sl)
   
4.   (setvar "cmdecho" 0)
   
5.   (if (setq ss (ssget '((0 . "CIRCLE"))))
   
6.     (progn
   
7.       (command ".undo" "be")
   
8.       (setq sl (sslength ss)
   
9.             i  -1
   
10.       )
    
11.       (repeat sl
    
12.         (setq en  (ssname ss (setq i (1+ i)))
    
13.               el  (entget en)
    
14.               cen (cdr (assoc 10 en_data))
    
15.               r          (cdr (assoc 40 en_data))
    
16.         )
    
17.         (command ".insert"
    
18.                  "1"
    
19.                  cen
    
20.                  (* 2. r)
    
21.                  (* 2. r)
    
22.                  "0"
    
23.         ) ;_开业改为 entmake 来插入块，效率更高
    
24.       )
    
25.       (command ".erase" ss "")
    
26.       (command ".undo" "e")
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )

<br /> (defun c:test (/ ss i en el r cen sl)<br />   (setvar "cmdecho" 0)<br />   (if (setq ss (ssget '((0 . "CIRCLE"))))<br />     (progn<br />       (command ".undo" "be")<br />       (setq sl (sslength ss)<br />             i  -1<br />       )<br />       (repeat sl<br />         (setq en  (ssname ss (setq i (1+ i)))<br />               el  (entget en)<br />               cen (cdr (assoc 10 en_data))<br />               r          (cdr (assoc 40 en_data))<br />         )<br />         (command ".insert"<br />                  "1"<br />                  cen<br />                  (* 2. r)<br />                  (* 2. r)<br />                  "0"<br />         ) ;_开业改为 entmake 来插入块，效率更高<br />       )<br />       (command ".erase" ss "")<br />       (command ".undo" "e")<br />     )<br />   )<br />   (princ)<br /> )

zxq0220

最初由 露水2 发布
[B]还想问一下(command ".undo" "be")和(command ".undo" "e")
所起的作用
假如将erase放在外面就不能删除原来的圆了。 [/B]

1、在(command ".undo" "be")和(command ".undo" "e")之间执行的所有COMMAND命令可以用单个字母U一步退回到命令执行前。
2、将ERASE放到REPEAT外面可以提高程序运行效率，如斑竹写的程序。

又：斑竹的程序有误，EN_DATA应改为EL。

sincereheart

如果能把这个程序改成可以在任意对象之间进行替换的话就更实用了。等代楼主的佳音！