[求助]：一个导出图形的线，文本，图块，图层，文字样式的程序问题

shuaier

最终的成果是楼上的那个程序吗?

lt_zzy

eachy，可以把源代码发给我吗？如果可以的话，请传到论坛上或lt_zzy@126.com，谢谢！！！

xyp1964

仅仅显示有关信息：

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051205 (1781)
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. ;;显示图形的线型，文本，图块，图层，文字样式；线、图块、文字的数量
    
15. (defun c:test ()
    
16.   (textscr)
    
17.   (princ "\n")
    
18.   (setq lst (xyp-get-tblnext "Ltype"))
    
19.   (princ "\n线型 : ")
    
20.   (plst lst)
    
21. 
    
22.   (setq lst (xyp-get-tblnext "Style"))
    
23.   (princ "\n")
    
24.   (princ "\n文字样式 : ")
    
25.   (plst lst)
    
26. 
    
27.   (setq lst (xyp-get-tblnext "Block"))
    
28.   (princ "\n")
    
29.   (princ "\n图块 : ")
    
30.   (plst lst)
    
31. 
    
32.   (setq lst (xyp-get-tblnext "layer"))
    
33.   (princ "\n")
    
34.   (princ "\n图层 : ")
    
35.   (plst lst)
    
36.   (if (setq ss (ssget "X" '((0 . "*LINE"))))
    
37.     (progn
    
38.       (princ "\n")
    
39.       (princ "\n线 ")
    
40.       (princ (sslength ss))
    
41.       (princ " 根。")
    
42.     )
    
43.   )
    
44.     (if (setq ss (ssget "X" '((0 . "INSERT"))))
    
45.     (progn
    
46.       (princ "\n")
    
47.       (princ "\n块 ")
    
48.       (princ (sslength ss))
    
49.       (princ " 个。")
    
50.     )
    
51.   )
    
52.   (if (setq ss (ssget "X" '((0 . "*TEXT"))))
    
53.     (progn
    
54.       (princ "\n")
    
55.       (princ "\n文本 ")
    
56.       (princ (sslength ss))
    
57.       (princ " 个。")
    
58.     )
    
59.   )
    
60.   (princ)
    
61. )
    
62. (defun plst (llst)
    
63.   (foreach a llst (princ "\n") (princ a))
    
64. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051205 (1781)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;显示图形的线型，文本，图块，图层，文字样式；线、图块、文字的数量<br /> (defun c:test ()<br />   (textscr)<br />   (princ "\n")<br />   (setq lst (xyp-get-tblnext "Ltype"))<br />   (princ "\n线型 : ")<br />   (plst lst)<br /> <br />   (setq lst (xyp-get-tblnext "Style"))<br />   (princ "\n")<br />   (princ "\n文字样式 : ")<br />   (plst lst)<br /> <br />   (setq lst (xyp-get-tblnext "Block"))<br />   (princ "\n")<br />   (princ "\n图块 : ")<br />   (plst lst)<br /> <br />   (setq lst (xyp-get-tblnext "layer"))<br />   (princ "\n")<br />   (princ "\n图层 : ")<br />   (plst lst)<br />   (if (setq ss (ssget "X" '((0 . "*LINE"))))<br />     (progn<br />       (princ "\n")<br />       (princ "\n线 ")<br />       (princ (sslength ss))<br />       (princ " 根。")<br />     )<br />   )<br />     (if (setq ss (ssget "X" '((0 . "INSERT"))))<br />     (progn<br />       (princ "\n")<br />       (princ "\n块 ")<br />       (princ (sslength ss))<br />       (princ " 个。")<br />     )<br />   )<br />   (if (setq ss (ssget "X" '((0 . "*TEXT"))))<br />     (progn<br />       (princ "\n")<br />       (princ "\n文本 ")<br />       (princ (sslength ss))<br />       (princ " 个。")<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun plst (llst)<br />   (foreach a llst (princ "\n") (princ a))<br /> )[/FONT]

lt_zzy

eachy，我感觉还是不行，原来的单个文件会执行，现在连单个文件也不执行了。
是不是还是文件的路径上有问题。

eachy

你调试下，看看多选文件后的返回值
在我这里路径和文件名是按 8+3 形式返回，中间没有空格，程序对多选文件使用了 xdl-str-parse 函数由空格拆分，不知你的机器是什么情况。
（WinXP+SP1[2]+AutoCAD 2006 中英文版都测试通过）

lt_zzy

EACHY，可能是我的机器有问题，我分别找了SP1与SP2的机器试了，都能选择，只能我的上面不能运行。文字样式的那个文件里，样式名之间有的时候会出来空格是怎么回事。

lt_zzy

昨天可以执行的两台机器，今天也不能执行了。难道一台机器只能执行一次吗？

eachy

我这每次都可以执行