设为首页收藏本站 CAD论坛 CAD教程 CAD下载明经币充值

切换到宽版

明经CAD社区 › 日志

日志

最新发表的日志| 推荐阅读的日志 | 应用 | 开发 | 插件 | 电脑 | 知识 | 资讯 | 心情 | 生活 | 文学

分享 CHM不能搜索: evayleung 2019-1-13 00:24; regsvr32 hhctrl.ocx regsvr32 itss.dll regsvr32 itircl.dll; 56 次阅读|0 个评论

分享 CAD表格或块属性与Excel的互传工具: xazhji 2019-1-7 11:57; 今天为大家带来一款CAD表格或块属性输出到Excel的工具，也可以在Excel中修改后，更新CAD相关内容。CAD与Excel互联，让修改变得更容易！由于无法上传附件，请在 xazhji.ys168.com 中下载或联系 QQ:461202580，想尝试内测最新更多工具，加群：283014818; 2551 次阅读|1 个评论热度 1

分享距离高程计算下一点坐标: 13648893846 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)) ))(* ...; 2035 次阅读|0 个评论

分享读取纬地原始地貌数据转换成点表: 13648893846 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 ...; 2120 次阅读|1 个评论热度 1

分享二分法根据面积画线，可用于断面图计量人员使用: 13648893846 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 ...; 1982 次阅读|0 个评论热度 5

分享断面数据点表生成断面清表面积: 13648893846 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 ...; 1966 次阅读|0 个评论热度 1

分享根据与前点坐标增量计算下一点坐标: 13648893846 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 ...; 1271 次阅读|0 个评论

分享断面线数据点表生成断面挖填点表: 13648893846 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 ...; 1339 次阅读|0 个评论

分享根据偏距高程计算横断图端点坐标（用于绘制断面线）: 13648893846 2018-9-2 16:35; ;; 根据偏距高程计算横断图端点坐标（用于绘制断面线） ;; (LC:Offset-Elevation-pt jzdpt sjgc2 dmpj1 dmgc1) ;; BY 老仓测绘上班记 ;;;(setq jzdpt (getpoint "\n 请选择基准点：") ;;; sjgc2 (getreal "请输入基准点设计高程") ;;; dmpj1 (getdist "请输入偏距： ...; 1055 次阅读|0 个评论

分享读取CASS DAT文件转换为点表: 13648893846 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 ...; 1200 次阅读|3 个评论热度 1

1 234 5 6 7 8 9 10 ... 55 / 55 页下一页

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

GMT+8, 2024-4-24 09:48 , Processed in 0.548866 second(s), 8 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部