四边网、三角网绘制等深线

杜阳

绝对赞，赞赞赞

crtrccrt

不喜勿喷，不喜勿喷，不喜勿喷。
不喜勿喷，不喜勿喷，不喜勿喷。
不喜勿喷，不喜勿喷，不喜勿喷。
也不会回复任何疑问。

       ;;  ;问：什么是首曲线、计曲线、间曲线和助曲线？;
       ;;  ;
       ;;  ;答：在同一幅图上，按规定的等高距描绘的等高线称为首曲线，也称基本等高线。;
       ;;  ;为了读图方便，凡是高程能被5倍基本等高距整除的等高线加粗描绘，称为计曲线。;
       ;;  ;当首曲线不能显示地貌特征时，按二分之一基本等高距描绘的等高线称为间曲线。;
       ;;  ;有时为了显示局部地貌的需要，可以按四分之一基本等高距描绘的等高线称为助曲线。;
       ;;  ;
       ;;  ;
       ;;  ;等高线的类型：等高线一般分为首曲线、计曲线、间曲线、助曲线。;
       ;;  ;首曲线:地形图上的等高线，大多数是首曲线。;
       ;;  ;计曲线：通常每隔四条首曲线，画一条较粗的计曲线，以利于计算高度。;
       ;;  ;间曲线：坡度较缓地区，首曲线不足以表达真实地形面貌时，局部地形变化明显，通常以虚线表示，高度为正常间距的一半。;
       ;;  ;助曲线：当首曲线和间曲线不足以表示地形面貌时，其高度为正常间距的四分之一。;


萝卜白菜，各有所好，适合就是最好的。
仅谈谈ACAD二次开发个人感受，不影射他人，不针对他人：使用ACAD廿多年了，从DOS到WIN，体会与各位共勉。
二次开发三大利器：C与VBA和LSP/VL。
C最强大和复杂，要求也最高，与WIN及ACAD版本密切相关：ACAD大版本一换，ARX就需要重新编译；WIN环境变换，相同版本的ARX出问题概率大，特别是从98转XP时代。
VBA与微软强制有关，要求必备VBA接口，VL使用接口时，各种【Automation 错误】会让人无从下手。
AutoLISP是由Autodesk公司开发的一种LISP程序语言，LISP是List Processor的缩写。第一篇关于LISP的参考文献是由John McCarthy 在1960年4月的《ACM通讯》中发表的。除了FORTRAN和COBOL，大多数在六十年代早期开发出来的语言都过时了，可是LISP却生存下来，并且已经成为人工智能（AI）的首选程序序言。
AutoLISP解释程序位于AutoCAD软件包中，然而AutoCAD R2.17及更低版本中并不包含AutoLISP解释程序，这样，只有通过AutoCAD R2.18及更高版本才可以使用AutoLISP语言。
AutoLSP/VL基本与WIN及ACAD版本无关（极少部分VL还是有关的），LSP源于研究人工智能的语言，内嵌于ACAD，N多年前大佬们的总结：与C相比：LSP/VL只差了两项：自定义实体类型和执行效率。
给普通用户来讲：不做特大型软件开发，LSP/VL简单、高效，足以辅助工作。特别是配上EmEditor（折叠功能），以及EmEditor三大插件：删除行首空格++删除行尾空格++删除空行。
总结：对广大工程师来讲，LSP/VL简单++高效++与ACAD||WIn版本无关，解决计算++绘图，足够了。



看到大侠的【四边网、三角网绘制等深线】，研究了一下（工作中并不需要），纯凭兴趣和爱好改进了一些，并补充了实例DWG。
【特别提醒：生成等深线改进部分是伪源码：使用了自定义子函数，若阁下熟悉LSP，望文生义，也能自给自足】


旧版有不便之处:【不影射人，不针对人】
1-同高度的等深线偶有间断。
2-等深线不能经过三角网的顶点。
4-不支持3DPLINE类型的三角网。
3-采用COMMAND连接生成的各段2DPLINE，速度慢。
4-my2dpoly传递参数有误：LWPOLYLINE节点无需也不需要Z坐标，使用vla-AddPolyline时须补齐Z坐标，否则：【错误: Automation 错误。】会等着你。
5-生成的等深线(二次B_SPLINE拟合)结果不理想，也可能是没有领会大侠程序的内涵。


改进之处：
1-修补上述的1+2不便之处。
2-支持3DPLINE类型的三角网。
3-采用LSP/VL直接生成2DPLINE/3DPLINE，速度快。【伪源码：使用了自定义子函数，若阁下熟悉LSP，望文生义，也能自给自足】
4-修补上述的4不便之处。
5-屏蔽上述的5不便之处。
6-优化对话框。
7-增加成块功能。【伪源码：使用了自定义子函数，若阁下熟悉LSP，望文生义，也能自给自足】
8-按钮增加快捷键。
9-增加单选按钮；增加切换按钮。（结合第15-16条）

10-没有高程点图块，生三角网按钮变灰。
11-没有三角网，删三角网按钮变灰。
12-没有等深线，删除等深线按钮变灰。
13-没有三角网，生等深线按钮变灰。
14-参数不在注册表中记录，程序执行期间一直有效，对话框可多次打开+关闭。
15-计曲线两种突出方式。（结合第9条）
16-可以生成3DPLINE。（结合第9条）
17-增加undo功能（自己体会）。
18-不同实体,归类不同图层（自己体会）。
19-三角网可为多个拓扑不连接区域。


对比原作，阁下可学到：
1-程序间参数传递，尽量减少全局参数，程序运行结束后，无参数遗留（包括子函数）。
2-MAPCAR/FOREACH高效。
3-虽然LSP为自由格式，规范化排版使用更方便。
4-子函数分类管理。
5-对话框多次打开关闭处理。
6-使用progn，层次递进，配上EmEditor（折叠功能），方便高效。
7-......


说来惭愧，明经陪伴我廿多年了，自从**年前论坛改规则后，没有独立发帖权，借本贴共享一个思路。


特别【友情提醒】：谨慎下载LSP，【伪源码：使用了自定义子函数，若阁下熟悉LSP，望文生义，也能自给自足】
不靠附近挣明经币<<前后矛盾>>>下载附近是收费的，虽然原作免费。
友情【提醒】各位注意：附件谨慎下载，级别不够的，也不要抱怨。

实例用时：
    用时 3.281 secs.
    **注意:共选择 472 个三角网, 生成共 240 条等深线**

    用时 5.828 secs.
    **注意:共选择 708 个三角网, 生成共 360 条等深线**

    用时 12.156 secs.
    **注意:共选择 1180 个三角网, 生成共 600 条等深线**



也不会回复任何疑问。
不喜勿喷，不喜勿喷，不喜勿喷。
不喜勿喷，不喜勿喷，不喜勿喷。
不喜勿喷，不喜勿喷，不喜勿喷。

bskidtf

crtrccrt 发表于 2025-9-3 12:15
不喜勿喷，不喜勿喷，不喜勿喷。
不喜勿喷，不喜勿喷，不喜勿喷。
不喜勿喷，不喜勿喷，不喜勿喷。

像是小时候老师批改作业的一样。