作业帮 > 综合 > 作业

CAD的坐标、高程怎么提取?

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/01 19:17:05
CAD的坐标、高程怎么提取?
CAD的坐标、高程怎么提取?
(defun c:tqzb()
\x05 (setq ff (open (getfiled "文件保存为" "d:/" "txt" 1) "w"))
\x05 (setq ents "")
(setq i 1)
\x05 (while
\x05 (setq pt (getpoint "\n 点击输出坐标的点:"))
\x05 (setq s (strcat (itoa i ) " " (rtos (nth 1 pt) 2 4) " " (rtos (nth 0 pt) 2 4) " " (rtos (nth 2 pt) 2 4)))
\x05 \x05 (write-line s ff)
\x05 \x05 (princ "\n")
\x05 \x05 (princ (strcat "\n 已输出的文字为'" s "'"))
\x05 \x05 (setq ents "")
(setq i (+ 1 i))
\x05 )
\x05
)
(prompt "\n 提醒 提取坐标到文本程序已加载,键入 tqZB 启动本程序")
;;;程序结束
将以上文字复制到记事本,保存,将后缀名改为lsp,在工具栏加载本插件,再在命令行输入tqzb,回车,就可按点击提取三维坐标了.
再问: 那请问高程怎么写入?
再答: 不是怎么写入,而是怎么读取,如果你的图纸有三维坐标(含高程),那么,你点击后就有三维坐标,如果高程无,就显示为零,如果你要三维坐标展点,那么你就用南方CASS7.1~9.0就OK了,