注册 登录
明经CAD社区 返回首页

13648893846的个人空间 http://www.mjtd.com/?7322544 [收藏] [复制] [分享] [RSS]

日志

分享 距离高程计算下一点坐标
2018-10-29 22:12
;; 距离高程计算下一点坐标 ;; (LC:Pt2YZ1 pt dx h) ;; BY 老仓测绘上班记 ;;;(LC:Pt2XY1 pt dx (- h (caddr pt))) ;;;(LC:Pt2YZ1 点 距离增量 计算点标高 横向比例 纵向比例) ;;;pt点必须有Z值 (defun LC:Pt2YZ1 (PT DX H HXBL ZXBL) (mapcar '(lambda (x y) (+ x y)) pt (list (* dx (/ 1000.0 HXBL)) ))(* ...
2017 次阅读|0 个评论
分享 读取纬地原始地貌数据转换成点表
2018-10-25 23:12
;; 读取纬地原始地貌数据转换成点表 ;; (LC:Make-LWPOLYLINE (LC:read-Weft-pts lst (setq pt (getpoint)) (setq hxbl 1000.0) (setq zxbl 1000.0))) ;; BY 老仓测绘上班记 ;;;(setq txt (try-read-txt WeftFILEpath)) ;;; (if (= (car txt) "HINTCAD5.83_HDM_SHUJU") ;;; (setq txt (gxl-removeN ...
2085 次阅读|1 个评论 热度 1
分享 二分法根据面积画线,可用于断面图计量人员使用
2018-10-20 21:47
;; pline,lwpline点坐标表 By 无痕 ;; (LC:WH-vxs (car (entsel))),返回三维点坐标 (defun LC:WH-vxs (e / i v lst) (setq i -1) (while (setq v (vlax-curve-getpointatparam e (setq i (1+ i)))) (setq lst (cons v lst)) ) (reverse ls ...
1973 次阅读|0 个评论 热度 5
分享 断面数据点表生成断面清表面积
2018-10-14 22:12
;; 断面数据点表生成断面清表面积 ;; (LC:Clear-table-area ptlst1 ptlst2 qbhd) ;; BY 老仓测绘上班记 ;;;(setq ptlst1 (LC:WH-vxs (car (entsel"\n 请选择原始地貌线:")))) ;;;(setq ptlst2 (LC:WH-vxs (car (entsel"\n 请选择设计线:")))) ;;;(LC:Make-LWPOLYLINE '((185.938 88.6237 0.0) (201.505 75.1854 0.0) (222 ...
1934 次阅读|0 个评论 热度 1
分享 根据与前点坐标增量计算下一点坐标
2018-9-27 13:22
;;;(setq zxbl (getreal"\n 请输入纵向比例1000:")) ;;;(if (null zxbl) (setq zxbl 1000.0)) ;;;(setq hxbl (getreal"\n 请输入横向比例1000:")) ;;;(if (null hxbl) (setq hxbl 1000.0)) ;; 根据与前点坐标增量计算下一点坐标 ;; (基准点 距离增量 高差增量 横向比例 纵向比例)(基准点 Y增量 X ...
1263 次阅读|0 个评论
分享 断面线数据点表生成断面挖填点表
2018-9-12 22:42
;; 断面数据点表生成断面填挖点表 ;; (LC:Section-line-ptlst-sort-lst ptlst1 ptlst2) ;; BY 老仓测绘上班记 ;;;(setq ptlst1 (LC:WH-vxs (car (entsel"\n 请选择原始地貌线:")))) ;;;(setq ptlst2 (LC:WH-vxs (car (entsel"\n 请选择设计j线:")))) ;;;(PTLST1 PTLST2 / INTPTS ORIGINAL-INT DESIGN-INT I II ORIGINAL-I ...
1329 次阅读|0 个评论
分享 根据偏距高程计算横断图端点坐标(用于绘制断面线)
2018-9-2 16:35
;; 根据偏距高程计算横断图端点坐标(用于绘制断面线) ;; (LC:Offset-Elevation-pt jzdpt sjgc2 dmpj1 dmgc1) ;; BY 老仓测绘上班记 ;;;(setq jzdpt (getpoint "\n 请选择基准点:") ;;; sjgc2 (getreal "请输入基准点设计高程") ;;; dmpj1 (getdist "请输入偏距 : ...
1047 次阅读|0 个评论
分享 读取CASS DAT文件转换为点表
2018-8-18 23:08
;; 读取CASS DAT文件转换为点表 ;; (LC:read-CASS-dat-list) ;; BY 老仓测绘上班记 (defun LC:read-CASS-dat-list (/ FILE PTSLST STRLENGTH I F1 STR1 STRLST) (setq FILE (getfiled "选择原始地貌.dat文件" "" "dat" 4)) (setq ptslst '() strlength (length str ...
1195 次阅读|3 个评论 热度 1
分享 点到曲线的垂直距离及曲线起点至指定点到曲线垂点的距离(曲线长)
2018-8-16 19:52
;; 曲线起点至指定点到曲线垂点的距离(曲线长) ;; (LC:starting-pointpt-curveFootdist (car(entsel "\n 请选择曲线:")) (getpoint "\n 请选择线外一点:")) ;; BY 老仓测绘上班记 (defun LC:starting-pointpt-curveFootdist (EN PT / POINTCURVEDIST) (setq pointcurvedist (vlax-curve-getD ...
975 次阅读|0 个评论
分享 三点生成与之相切圆弧并标注参数
2018-8-6 22:53
;; 三点生成与之相切圆弧并标注参数 ;; (LC:3pt-MAKARC-Label (getpoint "\n 请输入第一点") (getpoint "\n 请输入顶点") (getpoint "\n 请输入第三点") (getreal "\n 请输入半径: ")) ;;;(LC:3pt-MAKARC-Label (getpoint "\n 请输入第一点") (getpoint "\n 请输入顶点") (getpoint "\n 请输入第三点") 55.790 ...
950 次阅读|0 个评论 热度 1
12下一页

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 15:54 , Processed in 0.108247 second(s), 11 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部