明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1805|回复: 5

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

[复制链接]
发表于 2009-8-5 16:29:00 | 显示全部楼层 |阅读模式
这个程序想实现,格式输出图纸上所有块属性的值,可现在程序只能实现点选一个输出。而可能会有
几百个有属性值的块,求循环输出所有块值的代码,谢谢
  1. (DEFUN C:tt ()
  2.   (SETVAR "CMDECHO" 1)
  3.   (IF (AND (PRINC "\\nSelect Block with attribute 选择带属性图块 :")
  4.            (SETQ SS (SSGET '((0 . "INSERT") (66 . 1))))) (PROGN
  5.    (SETQ I -1)
  6.    (REPEAT (SSLENGTH SS)
  7.     (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
  8.           ENT1 ENT)
  9.     (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")
  10.      ;(WRITE-LINE (CDR (ASSOC 1 ENT1)))
  11.   (setq b (CDR (ASSOC 2 ENT1)))
  12.      (cond ((= b "设备1")  (setq a1 (CDR (ASSOC 1 ENT1))))  
  13.            ((= b "设备2")(setq a2 (CDR (ASSOC 1 ENT1))))
  14.            ((= b "设备3")  (setq a3 (CDR (ASSOC 1 ENT1))))
  15.   )
  16.     )
  17.     (PRINC "\\n")
  18.    )
  19.   ))
  20.   (sub_write_data)
  21.   (SETVAR "CMDECHO" 1)
  22.   (PRINC)
  23. )
  24.    
  25. (defun sub_write_data()
  26. (setq dat_file(getfiled "test" "" "txt" 1))
  27.    (setq ff (open dat_file "w"))
  28.    
  29.    (write-line (strcat "设备1  "  a1) ff)
  30.    (write-line (strcat "设备2"  a2) ff)
  31.    (write-line (strcat "设备3  "  a3) ff)
  32. (write-line "====================== " ff)
  33.    (close ff)
  34. )
发表于 2009-8-5 21:02:00 | 显示全部楼层
直接使用autocad自带的属性提取命令即可实现。
 楼主| 发表于 2009-8-6 09:28:00 | 显示全部楼层

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

找不到例子!

 楼主| 发表于 2009-8-7 09:26:00 | 显示全部楼层
help~~~
发表于 2009-8-7 20:51:00 | 显示全部楼层
kingerst发表于2009-8-6 9:28:00用lisp可以更好的格式化文件,所以请高手告诉我,全部循环输出的方法。现在是输出TXT,其实我想输出XML,可到处都找不到例子!

XML是何种数据格式?

 楼主| 发表于 2009-8-10 09:09:00 | 显示全部楼层
XML就是!!!!!即可扩展标记语言,它与HTML一样,都是SGML(<wbr></wbr>Standard Generalized Markup Language,标准通用标记语言)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 03:15 , Processed in 0.162501 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表