[LISP]求学 这样的程序该怎样编写

zhongguola

ljpnb兄：看看下面这个cad图，能不能把桩的坐标直接提入到电子表格当中，电子表格的形式如下：

桩号	X坐标	Y坐标	Z坐标
J1	1111.000	111.000	0.000
J2	222.000	222.000	0.000
J3	333.000	333.000	0.000
J4	444.000	444.000	0.000
J5	555.000	555.000	0.000
J6	666.000	666.000	0.000
J7	777.000	777.000	0.000
J8	888.000	888.000	0.000
J9	999.000	999.000	0.000
J10	1000.000	1000.000	0.000

xyp1964

2. (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. 通用函数下载地址:
12. http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554
13. |;
14. (defun c:test ()
15.   (CMDLA0)
16.   (setq ss (ssget "X" '((0 . "INSERT") (2 . "zhuang")))
17. ss (xyp-Sort ss 10 "Y-min")
18. i  0
19.   )
20.   (princ "\n桩号 X坐标 Y坐标 Z坐标")
21.   (foreach s ss
22.     (setq i (1+ i))
23.     (setq pt (car s)
24.    tx (strcat "J"
25.        (rtos i 2 0)
26.        " "
27.        (rtos (car pt) 2 3)
28.        " "
29.        (rtos (cadr pt) 2 3)
30.        " "
31.        (rtos (caddr pt) 2 3)
32.       )
33.     )
34.     (princ"\n")
35.     (princ tx)
36.   )
37.   (CMDLA1)
38. )

(load "xyp_lib") ;|加载通用函数 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 5.将xyp_lib.vlx文件直接拽到cad屏幕 通用函数下载地址: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554 |; (defun c:test ()   (CMDLA0)   (setq ss (ssget "X" '((0 . "INSERT") (2 . "zhuang"))) ss (xyp-Sort ss 10 "Y-min") i  0   )   (princ "\n桩号 X坐标 Y坐标 Z坐标")   (foreach s ss     (setq i (1+ i))     (setq pt (car s)    tx (strcat "J"        (rtos i 2 0)        " "        (rtos (car pt) 2 3)        " "        (rtos (cadr pt) 2 3)        " "        (rtos (caddr pt) 2 3)       )     )     (princ"\n")     (princ tx)   )   (CMDLA1) )

tianyuan

ljpnb兄：你编一个程序呀！！！！！！

ljpnb

我水平有限，不一定能搞定，这儿高手很多，可以叫他们帮忙啊，有时间我也会帮忙的

tianyuan

ljpnb兄：加油啊！！！！！！！！！！！

zhongguola

请问xyp1964兄：

为什么命令行总是提示：

命令：test

;错误：no function defintion：CMDLA0

xyp1964

zhongguola发表于2006-3-14 23:07:00 请问xyp1964兄： 为什么命令行总是提示： 命令：test<...

先得加载俺的“通用函数”xyp_lib.vlx！

zhongguola

xyp1964兄：您的函数和程序都非常非常实用！！！！

但是这个程序似乎并不完全符合楼主的意思。

我需要的是：按照图形中的线路顺序依次提取，线路之外的块坐标则不用提取；

其一：您的程序会出现这样的问题：如果在图形中的线路之外也有块，且块名也是zhuang的话，在运行您的程序时候就会把多余的坐标（即线路之外的块）一起提取到表中，而且顺序混乱。

其二：在程序中能不能加入（setq filename (getfiled"打开存放数据的excel电子表格文档""d:\\.......\\" "xls" 1)，这是我在网上其他程序中看到的，这样的话就可以把数据直接存放到电子表格当中了！！！

xyp1964

对cad与excel的数据交换一窍不通，无法帮你了。