我们把建筑设计图纸用AutoCAD三维还原后，可对现场开挖工作面测量一些坐标点展点后与三维模型对照检查开挖放样的准确性。下图是某抽水蓄能电站地下厂房部分结构的三维模型。粉色部分是从中导洞至顶拱开窗开挖面。
用AutoLISP写段代码将开挖面测量的坐标点展点，为了方便查看，每个点用一个小球表示，下图中为了展示效果，将小球作了放大，实际以点的密度和查看效果动态修改：
(defun C:zzZd (/ ptName ptSign ptE ptN ptH) ;读取DAT数据文件生成小球体
(setq cmdecho_0 (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq fi (getfiled "选择数据文件" "F:\\" "dat" 0))
(setq f (open fi "r"))
(setq rIndex 0)
(while (setq lineStr (read-line f))
(setq lineStrs (splitX lineStr ","))
(setq ptName (cons (nth 0 lineStrs) ptName))
;;将点编号或点名生成表
(setq ptE (cons (nth 2 lineStrs) ptE))
;;将E生成表
(setq ptN (cons (nth 3 lineStrs) ptN))
;;将N生成表
(setq ptH (cons (nth 4 lineStrs) ptH))
;;将H生成表
(setq ptSign (cons (itoa rIndex) ptSign))
;;生成记号表
(setq rIndex (+ rIndex 1))
)
(setq ptName (reverse ptName))
;;反序
(setq ptSign (reverse ptSign))
;;反序
(setq ptE (reverse ptE))
;;反序
(setq ptN (reverse ptN))
;;反序
(setq ptH (reverse ptH))
;;反序
(close f)
;;表处理
(setq rIndex 0)
(while (setq tmpPtname (nth rIndex ptName))
(setq tmpE (atof (nth rIndex ptE)))
(setq tmpN (atof (nth rIndex ptN)))
(setq tmpH (atof (nth rIndex ptH)))
(setq tmpSign (nth rIndex ptSign))
;;======绘小球代码=======
(command "._sphere" (list tmpE tmpN tmpH) "d" 0.1)
;;======绘小球代码=======
(setq rIndex (+ rIndex 1))
)
;;表处理
(setvar "CMDECHO" cmdecho_0)
(princ)
)
所用坐标表文件为纯文本CASS格式。
————————————————
【1】史上最齐全的CAD下载资源！！！
【2】【BIM软件】Revit 软件安装包免费送，内附安装教程！
【3】南方CASS展点方法视频教程
【4】坐标转换中的七参数详谈，测量员值得收藏
【5】道路横断面图手动快速绘制方法
【6】南方Cass两期间土石方计算之三角网法
【7】用excel快速制作cad断面图示例(绝对有用)
【8】CAD中提取坐标生成表格(附下载)
【9】CAD坐标标注插件(附下载)
【10】pdf转cad的软件(附下载)
【11】介绍个方法，可以用cad直接展点的方法。
【12】CAD图形导入奥维地图最简单、实用的方法
【13】仿纬地菜单插件(附下载)
【14】教你如何用纬地道路设计软件将“直曲线及转角表”转换为线路图
【15】在南方CASS中怎么生成断面？生成完断面之后又怎么用断面计算土方？
【16】工程人必须会用的一个excle函数，让你做资料“事半功倍”
【17】Cass软件坐标转换方法
【18】设计图计算E匝道的逐桩坐标案例的计算方案
【19】RTK坐标参数转换，图文教程！
【20】RTK技术支持中最常遇到的问题总结，RTK问题对照解决方法
【21】RTK假固定的原因与解决办法！
【22】全站仪棱镜常数及测定方法
【23】全站仪放边坡开挖线方法
【24】全站仪数据采集和传输中的常见问题解决方案
【25】这可能是最全面的全站仪常见问题解答了
【26】全站仪任意点架设仪器测高程的各种方法的讨论
【27】手把手教你维修全站仪(收藏版)
【28】RTK假固定的原因与解决办法！
【29】【案例】高海拔地区GPS、RTK使用应注意的一个问题
【30】水准仪高程测量计算方法(动画展示)
业务范围、诚信安全网查BIM工程师测量员考核电大中专，半年毕业网查助工、人社局！秋季网络大专，正规提升
扫码
进群
即可
进群
