(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了,
猜你喜欢
- 1仪器分析方法是否要求所依据的化学反应必须反应完全?
- 2-中括号+(1-1)中括号的相反数是什么
- 3()everybody is here ,let's begin the meeting
- 4如图所示,虚线表示等势面,相邻两等势面间的电势差相等,有一带电的小球在该电场中运动,不计小球所受的重力和空气阻力,实线表示该带正电的小球的运动轨迹,小球在a点的动能等于
- 5he seems to know the movies 同义句是什么
- 6句型转换将下列句子改 The boy is tall.The boy is short.选择疑问句
- 71、一个底面直径是20厘米的圆柱形容器中装有一些水,将一个高是10厘米,底面直径是12厘米的圆锥形铅块浸没入水中,取出铅块时,水面会下降多少?
- 8甲乙之比为4:3,乙数减少5,则甲乙之比是3:2,问甲数是多少?请问这道题怎么做,请指点 用算数
- 9求解X-4/5X=2怎么做
- 10用比例法解物理题