距离高程计算下一点坐标 2018-10-29

;; 距离高程计算下一点坐标 ;; (LC:Pt2YZ1 pt dx h) ;; BY 老仓测绘上班记 ;;;(LC:Pt2XY1 pt dx  (- h (caddr pt))) ;;;(LC:Pt2YZ1 点 距离增量 计算点标 ...

(2524)次阅读|(0)个评论

读取纬地原始地貌数据转换成点表 2018-10-25

;; 读取纬地原始地貌数据转换成点表 ;; (LC:Make-LWPOLYLINE (LC:read-Weft-pts lst (setq pt (getpoint)) (setq hxbl 1000.0) (setq zxbl 1000.0))) ;; BY 老 ...

(2717)次阅读|(1)个评论

二分法根据面积画线，可用于断面图计量人员使用 2018-10-20

;; pline,lwpline点坐标表  By 无痕 ;; (LC:WH-vxs (car (entsel))),返回三维点坐标 (defun LC:WH-vxs (e / i v lst)   (setq i -1)   (while & ...

(2239)次阅读|(0)个评论

断面数据点表生成断面清表面积 2018-10-14

;; 断面数据点表生成断面清表面积 ;; (LC:Clear-table-area ptlst1 ptlst2 qbhd) ;; BY 老仓测绘上班记 ;;;(setq ptlst1 (LC:WH-vxs (car (entsel"\n 请选择原始 ...

(2449)次阅读|(0)个评论

根据与前点坐标增量计算下一点坐标 2018-09-27

;;;(setq zxbl (getreal"\n  请输入纵向比例<1000>:")) ;;;(if (null zxbl) (setq zxbl 1000.0)) ;;;(setq hxbl (getreal"\n  请输入横向比例< ...

(1534)次阅读|(0)个评论

断面线数据点表生成断面挖填点表 2018-09-12

;; 断面数据点表生成断面填挖点表 ;; (LC:Section-line-ptlst-sort-lst ptlst1 ptlst2) ;; BY 老仓测绘上班记 ;;;(setq ptlst1 (LC:WH-vxs (car (entsel"\n 请选 ...

(1650)次阅读|(0)个评论

查看更多