[编程申请]：】帮忙做一个ACAD中二维选取点坐标的小程序

cmzwf

用途：读取一条曲线与一组水平线的交点坐标

期望操作：输入命令，选择一组水平线（如果支持一组曲线更妙），选择要读取的曲线，输出坐标值的集合。确定后重新选取另一条要读取的曲线，输出坐标值......。

具体用途：三维建模需要在cad中读取二维数据，然后输入到三维软件中进行建模，现在我是手动在CAD中取点，然后在emeditor中用宏来排版成坐标形式并输出到剪切板，然后输入到三维软件内，所以如果有这个小程序了，就可以直接输出了，方便很多

相信对很多朋友都有用途！


谢谢，给众位拜个晚年

xyp1964

2. [FONT=courier new](load "xyp_lib");版本 V.20060210
   
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. [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]
    
13. |;
    
14. 
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (setq        ss (ssget '((0 . "LINE")))
    
18.         s0 (car (entsel "\n选择曲线"))
    
19.         i  -1
    
20.   )
    
21.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
22.     (setq ptlst (xyp-get-Inters s0 s1 0))
    
23.     (foreach pt        ptlst
    
24.       (princ "\n")
    
25.       (princ pt)
    
26.     )
    
27.   )
    
28.   (CMDLA1)
    
29. )[/FONT]

[FONT=courier new](load "xyp_lib");版本 V.20060210<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 /> ★通用函数下载地址：<br /> [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        ss (ssget '((0 . "LINE")))<br />         s0 (car (entsel "\n选择曲线"))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq ptlst (xyp-get-Inters s0 s1 0))<br />     (foreach pt        ptlst<br />       (princ "\n")<br />       (princ pt)<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

xx_drl

谢谢xyp先生,很好用,如果可以得到几条曲线的坐标就更好了

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (CMDLA0)
   
4.   (setq        ss (ssget '((0 . "LINE")))
   
5.         i  -1
   
6.         j  -1
   
7.   )
   
8.   (princ"\n选择曲线: ")
   
9.   (setq s0 (ssget '((0 . "*LINE,ARC,CIRCLE"))))
   
10.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
11.     (while (setq s0 (ssname s0 (setq J (1+ J))))
    
12.       (setq ptlst (xyp-get-Inters s0 s1 0))
    
13.       (foreach pt ptlst
    
14.         (princ "\n")
    
15.         (princ pt)
    
16.       )
    
17.     )
    
18.   )
    
19.   (CMDLA1)
    
20. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (CMDLA0)<br />   (setq        ss (ssget '((0 . "LINE")))<br />         i  -1<br />         j  -1<br />   )<br />   (princ"\n选择曲线: ")<br />   (setq s0 (ssget '((0 . "*LINE,ARC,CIRCLE"))))<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (while (setq s0 (ssname s0 (setq J (1+ J))))<br />       (setq ptlst (xyp-get-Inters s0 s1 0))<br />       (foreach pt ptlst<br />         (princ "\n")<br />         (princ pt)<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]