文件名称：河道断面绘制脚本
文件大小：1KB
文件格式：LSP
更新时间：2017-01-17 11:49:42
横断面
纵横段绘制，自动生成txt数据文件(defun c:qd() (if (null vlax-dump-object) (vl-load-com) ) ;;加载vlax扩展函数 (setq yn "y") (SETQ zj 0);;里程增量 (setq zy "-") (setq cs (getint "\n请输入里程初始值：")) (setq dmax (getint "\n请输入横断宽度")) (setq n 1) (setq k 0) (setq ys_wj1 (open "c://ys_横断成果表.txt" "a")) (write-line "桩号,距离,x坐标,y坐标,高程" ys_wj1) (setq sl (entsel "\n选择轴线:")) ;;选择轴线 (setq sl (vlax-ename->vla-object (car sl))) ;;转换直线为vla对象