请教块属性提取中的循环问题

cindy_fisher

图中有一些属性块，这些属性块有个共同的属性标记是line_no,我想做的就是把每个属性块中的line_no标签的属性提取出来，这些属性的块首先是块名字不一样，其次是有的块entnext一次就可以得到，有的需要entnext好几次才能得到想要的属性，尝试编写了如下程序，发现死循环了，中间改了几次都在循环的地方出错，实在没招了，发上来求达人支招，谢谢。

2. (defun C:fun ()
   
3. 
   
4.   (command "osmode" "0")
   
5.   (command "zoom" "all")
   
6.   (setq  ffn (getfiled "Export the specify texts"
   
7.           "D:/perfiles/LISP/homecom/"
   
8.           "txt"
   
9.           1
   
10.       )
    
11.   )
    
12.   (setq ff (open ffn "a"))
    
13. 
    
14.   (setq ss_b (ssget "x" '((0 . "insert") (66 . 1))))
    
15.   (setq a 0)
    
16.   (repeat (sslength ss_b)
    
17.     (setq en_b (entnext (ssname ss_b a)))
    
18.     (setq ctrl t)
    
19.     (if  (= (cdr (assoc 0 (entget en_b))) "attrib")
    
20.       (progn
    
21.   (while ctrl
    
22.     (setq tag (cdr (assoc 2 (entget en_b))))
    
23.     (if (= (substr tag 1 4) "LINE")
    
24.       (progn
    
25.         (setq btxt (cdr (assoc 1 (entget en_b))))
    
26.         (setq ctrl nil)
    
27.         (setq p1 '(31.5 1.0 0))
    
28.         (setq p2 '(33.1250 0.5625 0))
    
29.         (setq ss_dn (ssget "w" p1 p2 '((0 . "text,mtext"))))
    
30.         (setq dn (cdr (assoc 1 (entget (ssname ss_dn 0)))))
    
31. ;;;结束取得文件名
    
32.         (write-line (strcat dn "[[" btxt) ff)
    
33.       )
    
34.       (setq en_b (entnext en_b))
    
35.     )
    
36.   )
    
37.   (setq ctrl t)
    
38.       )
    
39.     )
    
40.     (setq a (+ 1 a))
    
41.   )
    
42.   (close ff)
    
43.   (princ)
    
44. )

(defun C:fun ()<br /> <br />   (command "osmode" "0")<br />   (command "zoom" "all")<br />   (setq  ffn (getfiled "Export the specify texts"<br />           "D:/perfiles/LISP/homecom/"<br />           "txt"<br />           1<br />       )<br />   )<br />   (setq ff (open ffn "a"))<br /> <br />   (setq ss_b (ssget "x" '((0 . "insert") (66 . 1))))<br />   (setq a 0)<br />   (repeat (sslength ss_b)<br />     (setq en_b (entnext (ssname ss_b a)))<br />     (setq ctrl t)<br />     (if  (= (cdr (assoc 0 (entget en_b))) "attrib")<br />       (progn<br />   (while ctrl<br />     (setq tag (cdr (assoc 2 (entget en_b))))<br />     (if (= (substr tag 1 4) "LINE")<br />       (progn<br />         (setq btxt (cdr (assoc 1 (entget en_b))))<br />         (setq ctrl nil)<br />         (setq p1 '(31.5 1.0 0))<br />         (setq p2 '(33.1250 0.5625 0))<br />         (setq ss_dn (ssget "w" p1 p2 '((0 . "text,mtext"))))<br />         (setq dn (cdr (assoc 1 (entget (ssname ss_dn 0)))))<br /> ;;;结束取得文件名<br />         (write-line (strcat dn "[[" btxt) ff)<br />       )<br />       (setq en_b (entnext en_b))<br />     )<br />   )<br />   (setq ctrl t)<br />       )<br />     )<br />     (setq a (+ 1 a))<br />   )<br />   (close ff)<br />   (princ)<br /> )

1. 
   

复制代码

Gu_xl

循环结束条件是：
(= (cdr (assoc 0 (entget en_b)))  "SEQEND")

smartstar

学习学习……

gao051525

不错不错，拜读了，顶！