blackcary 发表于 2006-2-11 10:09:00

CAD中pl坐标输出到EXCEL

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

xyp1964 发表于 2006-2-11 13:01:00

仅在屏幕显示：
(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屏幕
★通用函数下载地址：
dispbbs.asp?boardID=3&ID=37554&page=1
|;
(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 发表于 2006-2-15 22:46:00

<P>谢谢！</P>
<P>试一下</P>

小人物lx 发表于 2006-2-19 12:31:00

不错

寒潮大冬瓜 发表于 2024-5-25 19:47:18

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

很好→很棒！很好~很棒！！很好……很棒！！！
页: [1]
查看完整版本: CAD中pl坐标输出到EXCEL