纵断面绘制

时间:2017-01-17 11:57:42
【文件属性】:

文件名称:纵断面绘制

文件大小: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请输入您要插入的坐标:"))


网友评论

  • 基本没有太大用处。