Question

请看下这段cad中的lsp代码为什么用不了？

这是自动提取cad文字的坐标和内容的lsp程序代码，然而像其他lsp程序一样操作后却运行不了
(defun c:plwbsc()
(princ "\n选择所需输出的文本TEXT:")
(setq ss (ssget ));;选取坐标点
(setq n (sslength ss ));计算坐标点数量
(setq ff (open (getfiled "文件保存为" "f:/" "xls" 1) "w"));保存路径
(setq i 0)
(repeat n
(setq spt (ssname ss i ))
(setq ept (entget spt))
(if (= (cdr (assoc 0 ept)) "TEXT")
(progn
(setq lxyz (cdr (assoc 10 ept)))
(setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符
(setq sy (rtos (nth 0 lxyz)))
(setq sz (cdr (assoc 1 ept)))
(setq i1 (+ i 1));计算点序号
(setq sn (rtos i1 2 0));将序号实数转换成字符
(setq sxyz (strcat sn",," sy "," sx "," sz))
(write-line sxyz ff)
)
)
(setq i (+ i 1))
);repeat
)
(prompt "* << 命令:plwbsc >> *输出格式（点号,, Y，X，Z）**")
(prin1)

Answer 1

经过测试，是你第5行程序中，“文件保存为”不能用，可能是CAD不是中国人制作的原因吧，-----你可以把“文件保存为”改成 “SAVEAS”，，，这样就能运行了，，，，祝您愉快

追问

OK，谢谢，没想到是这么简单，我这个门外汉感觉就差一点点就看出来了，工地通路测那2B群还收费20元