CAD中pl坐标输出到EXCEL

blackcary

CAD中pl可以按给定的定义长度(如5m一个点)将坐标输出到EXCEL中吗?

xyp1964

仅在屏幕显示：

2. (load "xyp_lib.vlx")   ;版本 V.20060210
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]dispbbs.asp?boardID=3&ID=37554&page=1[/url]
12. |;
13. (defun c:test ()
14.   (setq ss (ssget '((0 . "*LINE")))
15. i  -1
16.   )
17.   (while (setq s1 (ssname ss (setq i (1+ i))))
18.     (if (setq ptlst (xyp-get-CurveDivPtlst s1 1000));长度1000可自设
19.       (foreach pt ptlst
20. (princ "\n")
21. (princ pt)
22.       )
23.     )
24.     (princ "\n")
25.   )
26.   (princ)
27. )

(load "xyp_lib.vlx")   ;版本 V.20060210 ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★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屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]dispbbs.asp?boardID=3&ID=37554&page=1[/url] |; (defun c:test ()   (setq ss (ssget '((0 . "*LINE"))) i  -1   )   (while (setq s1 (ssname ss (setq i (1+ i))))     (if (setq ptlst (xyp-get-CurveDivPtlst s1 1000));长度1000可自设       (foreach pt ptlst (princ "\n") (princ pt)       )     )     (princ "\n")   )   (princ) )

blackcary

谢谢！

试一下

小人物lx

不错

寒潮大冬瓜

xyp1964 发表于 2006-2-11 13:01
仅在屏幕显示：

很好→很棒！很好~很棒！！很好……很棒！！！