[LISP程序]：变量改变了，怎么办呀？

舞步

2. ---------------------------------
   
3. (defun c:zs3(/ a b c d ts n index na ent tmp tmp2)
   
4. 
   
5. (progn
   
6.         (while (null (setq ent (entsel "\nPick Source entity: "))))
   
7.         (setq tmp (cdr (assoc 39 (entget (car ent)))))
   
8.         (setq tmp2(cdr (assoc 43 (entget (car ent))))))
   
9.   (setq a (ssget))
   
10.   (setq n (sslength a))
    
11.   (setq index 0)
    
12. 
    
13.   (repeat n
    
14.       (setq na (ssname a index))
    
15.       (setq b (entget na))
    
16.       (setq c (assoc 0. b))
    
17.       (setq d (cdr c)
    
18.       (if (= d "LINE")       (command "pedit" na "y" "w" tmp2 "")  (COMMAND "CHANGE" na "" "p" "th" tmp ""))
    
19.       (if (= d "LWPOLYLINE") (command "pedit" na "w" tmp2  "")  (COMMAND "CHANGE" na "" "p" "th" tmp ""))
    
20.       (setq index (+ 1 index))   
    
21.   )
    
22. )

---------------------------------<br /> (defun c:zs3(/ a b c d ts n index na ent tmp tmp2)<br /> <br /> (progn<br />         (while (null (setq ent (entsel "\nPick Source entity: "))))<br />         (setq tmp (cdr (assoc 39 (entget (car ent)))))<br />         (setq tmp2(cdr (assoc 43 (entget (car ent))))))<br />   (setq a (ssget))<br />   (setq n (sslength a))<br />   (setq index 0)<br /> <br />   (repeat n<br />       (setq na (ssname a index))<br />       (setq b (entget na))<br />       (setq c (assoc 0. b))<br />       (setq d (cdr c)<br />       (if (= d "LINE")       (command "pedit" na "y" "w" tmp2 "")  (COMMAND "CHANGE" na "" "p" "th" tmp ""))<br />       (if (= d "LWPOLYLINE") (command "pedit" na "w" tmp2  "")  (COMMAND "CHANGE" na "" "p" "th" tmp ""))<br />       (setq index (+ 1 index))    <br />   )<br /> )

直线pedit改变成pline线，变量na也改变，change语句无法改变na，因为原na已没有了,如何选择新生成的na呀。
该程序是提取物体宽高，功能与matchprop相似,但选择集中的line线的名改变，使程序无法进行，请高手指点。

lijiao

提取LINE的有关数据后，删除LINE，再根据LINE的数据，生成需要的PLINE。

舞步

但一旦，undo的时候会有很多步的。

mmmm

先Change
再Pedit

舞步

先Change再Pedit，试过，不太好使。同样原因（名改变了）。

cy956

归到一个问题：将某实体以后生成的实体归入选择集。
这个问题已经提过几次了，你搜搜以前的帖子可能会
看到更多。

2. 
   
3. 
   
4. 
   
5. (Defun get-ss( e / ss ep) ;;;取在实体e后生成的所有实体选择集
   
6.   (setq ss (ssadd) ep e)
   
7.   (if (not ep) (setq ep (entnext)))
   
8.   (while (/= (setq ep (entnext ep)) nil)
   
9.     (ssadd ep ss)
   
10.   )
    
11.   ss
    
12. )
    
13. (Defun get-ss1( e / ss ep en ty) ;;;取在实体e后生成的所有实体选择集, nil=全选,不包括子实体
    
14.   (setq ss (ssadd) ep e)
    
15.   (if (not ep) (setq ep (entnext)))
    
16.   (while (/= (setq ep (entnext ep)) nil)
    
17.     (setq en(entget ep)ty(dxf 0 en))
    
18.     (if (not (member TY '("VERTEX" "SEQEND")))
    
19.       (ssadd ep ss)
    
20.     )
    
21.   )
    
22.   ss
    
23. )
    
24. 
    
25. 
    

<br /> <br /> <br /> (Defun get-ss( e / ss ep) ;;;取在实体e后生成的所有实体选择集<br />   (setq ss (ssadd) ep e)<br />   (if (not ep) (setq ep (entnext)))<br />   (while (/= (setq ep (entnext ep)) nil)<br />     (ssadd ep ss)<br />   )<br />   ss<br /> )<br /> (Defun get-ss1( e / ss ep en ty) ;;;取在实体e后生成的所有实体选择集, nil=全选,不包括子实体<br />   (setq ss (ssadd) ep e)<br />   (if (not ep) (setq ep (entnext)))<br />   (while (/= (setq ep (entnext ep)) nil)<br />     (setq en(entget ep)ty(dxf 0 en))<br />     (if (not (member TY '("VERTEX" "SEQEND")))<br />       (ssadd ep ss)<br />     )<br />   )<br />   ss<br /> )<br /> <br /> <br />

eachy

最初由 舞步 发布
[B]---------------------------------
(defun c:zs3(/ a b c d ts n index na ent tmp tmp2)

(progn
        (while (null (setq ent (entsel "\nPick Source entity: "))))
        (setq tmp (cdr (assoc 39 (entget ... [/B]

用(entlast)如何。

haijiangl

(entlast)应该可行

lijiao

最初由 舞步 发布
[B]但一旦，undo的时候会有很多步的。 [/B]

可以设置UNDO标志解决，与这个问题无关。

舞步

(entlast),试了，不行呀。改变的物体不是last.

eachy

最初由 舞步 发布
[B](entlast),试了，不行呀。改变的物体不是last. [/B]

先改变性质最后再改成Pline。

ll_j

研究了一下，确实先change，再pedit也是不行的，pedit将直线改为多义线后，厚度属性消失。我这里有过程序，是多义线宽度刷，使用修改实体方法，对于直线就是提取源多义线特性与直线的点重新构造实体。你可以参考，没有注释，可能要费点功夫。写程序的时候没有考虑厚度，所以刷多义线时厚度不起作用，今天调整一下，支持厚度调整。