文件名称:纵断面绘制
文件大小: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请输入您要插入的坐标:"))