多段线,炸开后图元名问题

Gu_xl

易云网络 发表于 2014-11-16 20:39
炸开后选择圆弧，选择后还原，还原是一定的不需要判断

你都undo了，ss自然为nil了，你需要在undo之前将ss中的arc数据读取保存下来，然后再undo,然后对保存下来的数据进行后续操作！

1. (defun C:css ()
   
2.   (setvar "cmdecho" 0)
   
3.   (setvar "QAFLAGS" 1)
   
4.   (setq  ss1 (ssget "x"
   
5.        '((-4 . "<OR")
   
6.          (0 . "POLYLINE")
   
7.          (0 . "LWPOLYLINE")
   
8.          (-4 . "OR>")
   
9.         )
   
10.       )
    
11.   )
    
12. 
    
13.   (command "_.undo" "be")
    
14.   ;;
    
15.   (COMMAND ".EXPLODE" ss1 "")
    
16.   (setvar "QAFLAGS" 0)
    
17. 
    
18.   (setq  ss (ssget "x"
    
19.       '((-4 . "<and")
    
20.         (0 . "ARC")
    
21.         (-4 . ">")
    
22.         (40 . 1.)
    
23.         (-4 . "and>")
    
24.        )
    
25.      )
    
26.   n  (sslength ss)
    
27.   kk n
    
28.   )
    
29.   ;;保存圆弧数据
    
30.   (setq data nil)
    
31.   (repeat n
    
32.     (setq data (cons (entget (ssname ss (setq n (1- n)))) data))
    
33.   )
    
34. 
    
35.   (command "_.undo" "e")
    
36.   ;;
    
37.   (command ".undo" 1)
    
38.   (foreach a data
    
39.     (print (entget (entmakex a)))
    
40.     ;;创建新的圆弧
    
41.   )
    
42.   (princ)
    
43. )

(defun C:css ()<br />   (setvar "cmdecho" 0)<br />   (setvar "QAFLAGS" 1)<br />   (setq  ss1 (ssget "x"<br />        '((-4 . "<OR")<br />          (0 . "POLYLINE")<br />          (0 . "LWPOLYLINE")<br />          (-4 . "OR>")<br />         )<br />       )<br />   )<br /> <br />   (command "_.undo" "be")<br />   ;;<br />   (COMMAND ".EXPLODE" ss1 "")<br />   (setvar "QAFLAGS" 0)<br /> <br />   (setq  ss (ssget "x"<br />       '((-4 . "<and")<br />         (0 . "ARC")<br />         (-4 . ">")<br />         (40 . 1.)<br />         (-4 . "and>")<br />        )<br />      )<br />   n  (sslength ss)<br />   kk n<br />   )<br />   ;;保存圆弧数据<br />   (setq data nil)<br />   (repeat n<br />     (setq data (cons (entget (ssname ss (setq n (1- n)))) data))<br />   )<br /> <br />   (command "_.undo" "e")<br />   ;;<br />   (command ".undo" 1)<br />   (foreach a data<br />     (print (entget (entmakex a)))<br />     ;;创建新的圆弧<br />   )<br />   (princ)<br /> )

易云网络

Gu_xl 发表于 2014-11-16 20:50
你都undo了，ss自然为nil了，你需要在undo之前将ss中的arc数据读取保存下来，然后再undo,然后对保存下来的 ...

今天能让两个超级版主来回答我的疑惑，真的太感动了。
顺变给个数据保存函数吧

ZZXXQQ

易云网络 发表于 2014-11-16 20:31
搞不定啊，搞了一天了

不知道是我说的不明确，还是你看不明白。

2. (defun C:css()  
   
3. (setvar "CMDECHO" 0)
   
4. (setq ss1 (ssget "x" '((0 . "*POLYLINE"))))
   
5. (command "QAFLAGS" 1 ".EXPLODE" ss1 "" "QAFLAGS" 0)
   
6. (setq ss (ssget"x"'((0 . "ARC") (-4 . ">") (40 . 1.)))
   
7.           datlst (list))
   
8. (repeat (setq i (sslength ss))
   
9.   (setq datlst (cons (entget(ssname ss (setq i (1- i)))) datlst))
   
10. )
    
11. (command "u")
    
12. ;...处理表datlst中的内容。
    
13. (setvar "CMDECHO" 1)
    
14. (princ)
    
15. )
    

(defun C:css()  <br /> (setvar "CMDECHO" 0)<br /> (setq ss1 (ssget "x" '((0 . "*POLYLINE"))))<br /> (command "QAFLAGS" 1 ".EXPLODE" ss1 "" "QAFLAGS" 0)<br /> (setq ss (ssget"x"'((0 . "ARC") (-4 . ">") (40 . 1.)))<br />           datlst (list))<br /> (repeat (setq i (sslength ss))<br />   (setq datlst (cons (entget(ssname ss (setq i (1- i)))) datlst))<br /> )<br /> (command "u")<br /> ;...处理表datlst中的内容。<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

易云网络

ZZXXQQ 发表于 2014-11-17 08:21
不知道是我说的不明确，还是你看不明白。

不是你说得不明白,主要是我不会保存,谢谢你,现在会了