【文件属性】：
文件名称：纵断面绘制
文件大小：1008B
文件格式：LSP
更新时间：2017-01-17 11:57:42
纵段绘制
(defun c:qd()
(setq yn "y")
(SETQ zj 0)
(setq cs (getint "\n请输入里程初始值："))
(setq n 1)
(setq ys_wj1 (open "c://beitaipingz_wj1.txt" "a"))
(write-line "桩号,x坐标,y坐标,高程" ys_wj1)
(while (or (= yn "y")(= yn ""))
(setq coord (getpoint "\n请输入您要插入的坐标:"))
网友评论
- 基本没有太大用处。