|
yuanziyou 发表于 2011-10-31 19:05
1.用"ap"命令加载附件里的文件(最好是点击右边 公文包图标下的"内容"添加到启动组)
2.输入命令"xzb"(如果 ...
你好,我CAD图上有很多三点和标注,能不能编一个小程序全部提取坐标和标注到txt或excel.
网上找到一个有错误,而且只能提取坐标,不能提取标注
源程序:
(defun c:zhhua()
(princ "\n框选所需输出的点:")
(setq ss (ssget ))
(setq n (sslength ss))
(setq ff (open (getfiled "文件保存为" "c:" "txt" 1) "w"))
(setq i 0)
(repeat n
(setq spt (ssname ss i ))
(setq ept (entget spt))
(if (= (cdr (assoc 0 ept)) "POINT")
(progn
(setq lxyz (cdr (assoc 10 ept)))
(setq sy (rtos (nth 0 lxyz)))
(setq sz1 (rtos (nth 2 lxyz)))
(setq sxyz (strcat sx " " sy " " sz1))
(write-line sxyz ff)
)
)
(setq i (+ i 1))
);repeat
(princ "\n转换完毕")
)
; 错误: 参数类型错误: stringp nil,看看什么原因?再有能不能把标注桩号和坐标都一起从CAD里批量转化过来,麻烦你给完善一下,谢谢
|
|