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

首页 > 中学考试杂题 > 题目详情

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

2022-07-18 01:08:06 21次反馈错误加入收藏正确率 : 100%

题目内容：

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

优质答案解析

王老师

回答题目：2621条

(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,回车,就可按点击提取三维坐标了.

本题链接：

大家查题吧

首页 > 中学考试杂题 > 题目详情