cad高程测绘图lisp_AUTOLISP程序生成CAD断面图
利用
AutoLisp
、
Microsoft VBA
程序语言实现
批量生成断面图及断面电子表格数据
蒋济飞
赵新萍
(广西第二测绘院
广西柳州
545006
)
【摘
要】
本文主要讨论如何利用
AutoCAD
的二次开发语言
AutoLisp
和
Excel
中的
Microsoft VBA
语
言技术，利用地形图上的高程点数据批量生成断面图和断面数据表格。
【关键字】
断面图
AutoLisp Microsoft VBA
1
引言
Visual Basic
作为一个集成的开发环境，能够使
AutoCAD
数据与其它的
Visual Basic
应用程序，如
Microsoft Excel
软件，直接共享，实现无缝连接，交换数据。
在没有专业软件辅助的情况下，绘制纵横断面图是很繁琐的事，需要进行大量的、重复的操作，既劳
神，又容易出错。我们在完成老挝南塔河
1#
水电站进站道路测绘项目中，利用地形图上的高程点数据，通
过
Auto Lisp
、
Visual Basic
编程建立
AutoCAD
与
Excel
的通信，实现数据交换，快速绘制公路纵横断面
及相关成果表，大大的提高了工作效率。
2
应用程序的开发
在实现对地形图上的高程点数据批量生成断面图和断面数据表格处理的程序代码编写过程中，主要分
以下步骤：
(
1
)注记纵、横断面交点的里程和高程并生成纵断面曲线，输出断面数据。
首先我们取得纵断面线折点的坐标集合(
XY-List
)。如果纵断面线图元为
LWPOLYLINE
，则只要依次
取出纵断面线图元数据中群码为
10
的数据即可；如果纵断面线图元为
POLYLINE
，则只要依次取出纵断面
图元之后
SEQEND
之前的所有
VERTEX
图元数据中群码为
10
的数据即可。
取得纵断面线上所有高程点和横断面图元。代码如下：
(
SETQ ALL-DATA
(
SSGET "F" XY-List '
((
-4 . "
)
(
-4 . "
)(
0 . "INSERT"
)(
8 . "GCD"
)(
-4 . "and>"
)
(
-4 . "
)(
0 . "*POLYLINE"
)(
8 . "DM"
)(
-4 . "and>"
)
(
-4 . "or>"
))))
取得高程点和横断面图元数据之后，
对数据进行区分。
如果是
INSERT
图元，
则取得其插入点
XYZ
坐标，
存入纵断面坐标数据表
(
ZDM-XYZ-List
)
中；
如果是线型图元，
则存入横断面图元数据表
(
HDM-Entity-List
)
中。
求得纵、横断面的交点，并生成一个表。
Autolisp
给我们提供了一个求线段交点的函数(
INTERS <
线
段
1
起点
> <
线段
1
终点
> <
线段
2
起点
> <
线段
2
终点
> [
实体相交标记
]
)，我们就利用这个函数求得纵断
面与所有横断面交点的坐标表(
JD-XY-LIST
)。代码如下：
(
setq jd-xy-list
(
list
))；
_
初始化交点坐标表
(
setq BEI-xy-list XY-List
)；
_
生成一个备用的中线二维坐标表
(
setq i 0
)
(
repeat
(
length HDM-Entity-List
)
(
setq dm-entity
(
nth i HDM-Entity-List
))；
_
取出第
i+1
个横断面
cad高程测绘图lisp_AUTOLISP程序生成CAD断面图相关推荐
- cad高程测绘图lisp_CAD中自动画管线图的LISP程序
CAD中自动画管线图的LISP程序 画一些管路原理图时,当代表不同管路的直线在图中相交时,需将在交点处的某一直线断开,再用一半圆连接两断点,使用下面这个LISP编写的程序,只用键入"brel ...
- cad高程测绘图lisp_已知CAD中的高程测绘图，很多点，如何求出所有高程的平均值呢？难道只能用计算器一个一个的相加来算吗？...
回答: 1,地貌显示就简略,又叫计曲线,表示其细部,如丘陵地区的地图上使用较多,是一种比较科学的方法,从底到顶. 等高线表示地貌的原理 等高线表示地貌的原理是,因为等高线是按一定的等高距测绘的,地貌显 ...
- cad高程标注插件lisp_【源码】CAD高程转标高,CAD插件大全,小懒人CAD工具箱
[源码]CAD高程转标高,CAD插件大全,小懒人CAD工具箱 CAD,CAD插件,CAD标高 CAD快速标高插件 ;;;功能:高程点转标高 ;;;逆流而上的鱼制作 (defun c:tt();;; ( ...
- 计算机绘图cad2016,帮忙用cad画图计算机绘图线下形考册2016秋
帮忙用cad画图计算机绘图线下形考册2016秋 (10页) 本资源提供全文预览,点击全文预览即可全文预览,如果喜欢文档就下载吧,查找使用更方便哦! 9.9 积分 计算机绘图网络核心课程形成性考核学校名 ...
- 咸鱼CAD笔记—精准绘图
咸鱼CAD笔记-精准绘图 正交模式 极轴追踪 对象捕捉 对象捕捉追踪 等轴侧捕捉 正交模式 (1)快捷键:F8 (2)只能捕捉到水平或垂直的方向,是一种特殊的捕捉模式. (3)可以利用极坐标或者相对坐 ...
- 4米乘以12米CAD图_CAD绘图比例、出图比例、打印比例讲解！！！
哈喽- 本来要介绍一下CAD小技能,但考虑到刚接触CAD的同学,所以很有必要说明一下CAD的绘图比例,出图比例,打印比例,这是CAD绘图最基本也是最重要的,同时也是很多人没有掌握的,这三个比例没有掌握 ...
- cad和php哪个工资高,CAD顶级绘图员必备，人手一份的绘图命令，学会工资上万不是梦...
现在CAD的运用非常广泛,绘制平面设计图,建筑.机械.室内设计等,都需要用到CAD制图,说到学习CAD,就少不了对命令的使用了! 一.CAD快捷命令操作 1."LE"命令 &quo ...
- 计算机绘图千斤顶,AUTO CAD课程设计实验报告.doc
文档介绍: AUTO CAD课程设计实****报告 全套CAD图纸,联系695132052 一.课程设计的目的 综合运用<工程图学>.<计算机绘图>等课程和其他先修课程的知识和 ...
- CAD三维设计绘图软件AutoCAD 2017 for Mac破解教程
AutoCAD 2017 for Mac 破解版是支持macOS 10.13操作系统的CAD三维设计绘图软件,它具备2D绘图和注释.3D建模和可视化.工具调色板.文件导入等各种强大的功能,小编为你带来 ...
最新文章
- Nginx 从零搭建
- Codeforces Round #499 (Div. 2) Problem-A-Stages（水题纠错）
- Android 沉浸式状态栏 实现方式一
- 深入理解ASP.NET Core依赖注入
- LeetCode 160. Intersection of Two Linked Lists
- python类定义中__init__(),在__init__中定义一个成员以在python中的类体中定义它的区别？...
- SQL Server扩展事件（Extended Events）-- 事件的寿命
- POJ-1035 Spell checker 暴力
- html5制作涂鸦板,HTML5实现涂鸦板
- 黑暗幽灵（DCM）木马详细分析
- Keystore was tampered with or password was incorrect
- 瑞星微RK3288 开发板
- TI达芬奇系列TMS320DM8168浮点DSP C674x + ARM Cortex-A8高性能视频处理器
- 经济基础知识（中级）【2】
- 关于iphone的双重验证的虚伪本质
- 函数（python）
- 非常全面的支付宝钱包系统架构图解
- R语言笔记7：functions——编写函数所需的基础知识
- 经济学硕士毕业论文题目【282个】
- GifCam2.0使用