格式输出图纸上所有块属性的值

kingerst

这个程序想实现，格式输出图纸上所有块属性的值，可现在程序只能实现点选一个输出。而可能会有
几百个有属性值的块，求循环输出所有块值的代码，谢谢

2. (DEFUN C:tt ()
3.   (SETVAR "CMDECHO" 1)
4.   (IF (AND (PRINC "\\nSelect Block with attribute 选择带属性图块 :")
5.            (SETQ SS (SSGET '((0 . "INSERT") (66 . 1))))) (PROGN
6.    (SETQ I -1)
7.    (REPEAT (SSLENGTH SS)
8.     (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
9.           ENT1 ENT)
10.     (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")
11.      ;(WRITE-LINE (CDR (ASSOC 1 ENT1)))
12.   (setq b (CDR (ASSOC 2 ENT1)))
13.      (cond ((= b "设备1")  (setq a1 (CDR (ASSOC 1 ENT1))))  
14.            ((= b "设备2")(setq a2 (CDR (ASSOC 1 ENT1))))
15.            ((= b "设备3")  (setq a3 (CDR (ASSOC 1 ENT1))))
16.   )
17.     )
18.     (PRINC "\\n")
19.    )
20.   ))
21.   (sub_write_data)
22.   (SETVAR "CMDECHO" 1)
23.   (PRINC)
24. )
26.    
27. (defun sub_write_data()
28. (setq dat_file(getfiled "test" "" "txt" 1))
29.    (setq ff (open dat_file "w"))
30.    
31.    (write-line (strcat "设备1  "  a1) ff)
32.    (write-line (strcat "设备2"  a2) ff)
33.    (write-line (strcat "设备3  "  a3) ff)
34. (write-line "====================== " ff)
35.    (close ff)
36. )

(DEFUN C:tt ()   (SETVAR "CMDECHO" 1)   (IF (AND (PRINC "\\nSelect Block with attribute 选择带属性图块 :")            (SETQ SS (SSGET '((0 . "INSERT") (66 . 1))))) (PROGN    (SETQ I -1)    (REPEAT (SSLENGTH SS)     (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))           ENT1 ENT)     (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")      ;(WRITE-LINE (CDR (ASSOC 1 ENT1)))   (setq b (CDR (ASSOC 2 ENT1)))      (cond ((= b "设备1")  (setq a1 (CDR (ASSOC 1 ENT1))))              ((= b "设备2")(setq a2 (CDR (ASSOC 1 ENT1))))            ((= b "设备3")  (setq a3 (CDR (ASSOC 1 ENT1))))   )     )     (PRINC "\\n")    )   ))   (sub_write_data)   (SETVAR "CMDECHO" 1)   (PRINC) )     (defun sub_write_data() (setq dat_file(getfiled "test" "" "txt" 1))    (setq ff (open dat_file "w"))        (write-line (strcat "设备1  "  a1) ff)    (write-line (strcat "设备2"  a2) ff)    (write-line (strcat "设备3  "  a3) ff) (write-line "====================== " ff)    (close ff) )

ljttjl

直接使用autocad自带的属性提取命令即可实现。

kingerst

用lisp可以更好的格式化文件，所以请高手告诉我，全部循环输出的方法。现在是输出TXT，其实我想输出XML，可到处都

找不到例子！

kingerst

help~~~

ZZXXQQ

kingerst发表于2009-8-6 9:28:00用lisp可以更好的格式化文件，所以请高手告诉我，全部循环输出的方法。现在是输出TXT，其实我想输出XML，可到处都找不到例子！

XML是何种数据格式?

kingerst

XML就是！！！！！即可扩展标记语言，它与HTML一样，都是SGML(<wbr></wbr>Standard Generalized Markup Language,标准通用标记语言)