[LISP程序]：班竹及大虾急救！！关于扩展数据提取！！？？

petertian

各位班竹及大虾：小弟的文件中的扩展数据在dxf文件中的格式如下：

......................

23443.81598752924
1001
SOUTH
1000
300000
1000
CH520325
1000
成都市干道建设指挥部
1000
251
  0
LINE
  5
1D621A
102
{ACAD_REACTORS

........................

我怎样用lisp写程序将三项扩展数据提取出来写成文本文件，感谢！！！急！！！

狂刀

如果是dxf直接改txt文本就可以了。
用程序，可以用 open，read－line，princ，write－line。close等函数。看看cad的帮助，最好自己写出来

petertian

最初由 狂刀 发布
[B]如果是dxf直接改txt文本就可以了。
用程序，可以用 open，read－line，princ，write－line。close等函数。看看cad的帮助，最好自己写出来 [/B]

我要一次将四个扩展数据（1000
300000
1000
CH520325
1000
成都市干道建设指挥部
1000
251）全部提取出来！还是不会，望各位大虾指点！

xyp1964

把dxf文件发上来！
生成文件的格式？

petertian

最初由 xyp1964 发布
[B]把dxf文件发上来！
生成文件的格式？ [/B]

从dxf格式文件中提取：
提取文件1：

点号,X ,Y,界址点类型
例：
1,62804.63,54403.49,4
2,62815.39,54402.73,4
3,62847.54,54389.97,4
4,62859.45,54338.56,4
......

提取文件2：
宗地地籍号，地类号，点数，点号1，...点号n，土地使用者名称
例：
JN1-8-1,246,19,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,福利院
JN1-8-2,221,10,20,21,23,22,25,24,26,29,28,27,加工厂
JN1-8-3,284,8,30,31,37,36,35,34,33,32, 教养所
......

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. ;;;dxf扩展数据提取
    
14. (defun c:test ()
    
15.   (CMDLA0)
    
16.   (setq        ff-dxf (getfiled "\n已有dxf文件" "" "dxf" 8)
    
17.         f-dxf  (open ff-dxf "r")
    
18.         ff-txt (getfiled "\n拟保存的扩展数据文件" "扩展数据" "txt" 1)
    
19.         f-txt  (open ff-txt "w")
    
20.   )
    
21.   (while (setq tx (read-line f-dxf))
    
22.     (if        (= tx "1000")
    
23.       (progn
    
24.         (setq tx (read-line f-dxf))
    
25.         (if (and (/= tx "301000")
    
26.                                         ;(/= tx "300000")
    
27.                  (/= tx "SimSun")
    
28.                  (/= tx "文鼎CS细等线")
    
29.             )
    
30.           (write-line tx f-txt)
    
31.         )
    
32.       )
    
33.     )
    
34.   )
    
35.   (close f-dxf)
    
36.   (close f-txt)
    
37.   (princ (strcat "\n扩展数据写至=>" ff-txt))
    
38.   (CMDLA1)
    
39. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;<br /> <br /> ;;;dxf扩展数据提取<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        ff-dxf (getfiled "\n已有dxf文件" "" "dxf" 8)<br />         f-dxf  (open ff-dxf "r")<br />         ff-txt (getfiled "\n拟保存的扩展数据文件" "扩展数据" "txt" 1)<br />         f-txt  (open ff-txt "w")<br />   )<br />   (while (setq tx (read-line f-dxf))<br />     (if        (= tx "1000")<br />       (progn<br />         (setq tx (read-line f-dxf))<br />         (if (and (/= tx "301000")<br />                                         ;(/= tx "300000")<br />                  (/= tx "SimSun")<br />                  (/= tx "文鼎CS细等线")<br />             )<br />           (write-line tx f-txt)<br />         )<br />       )<br />     )<br />   )<br />   (close f-dxf)<br />   (close f-txt)<br />   (princ (strcat "\n扩展数据写至=>" ff-txt))<br />   (CMDLA1)<br /> )[/FONT]

petertian

最初由 xyp1964 发布
[B][CODE](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.ls... [/B]

非常感谢斑竹，斑竹，您能否将您的xyp_lib.VLX的源代码公开让我们学习一下！当然，如果不方便就算了！再次感谢您！
再有一个问题就是，您是直接读取dxf文件进行提取的，我想问的是，如果在dwg文件中，有很多的元素，我只要求提取已选择（利用选择集操作）的元素的扩展属性怎么办？也就是要提取单个元素的扩展属性！谢谢斑竹！王答复！

cy956

奇怪，我发的帖子没上来。重新打上。

建议你用ldata。在论坛里面搜搜，现成的内部函数可用，或者到autodesk讨论组搜索，
用“ldata”，尤其对这种多数据的记录，简便许多。

xyp1964

最初由 petertian 发布
[B][QUOTE]最初由 xyp1964 发布
[B][CODE](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运?.. [/B]

把“含元素扩展属性”的dwg文件发上来，否则无法知道其结构。