CAD中VBA程序如何处理使分散的线段变成封闭的图形

fthislife 2012-10-17 11:45:44

CAD中VBA程序如何处理使分散的线段变成封闭的图形？比如原图是用N条直线围成的一个多边形，现在要把它处理成一个封闭的图形，而不是一段段的。

...全文

574 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

fthislife 2012-10-18

打赏
举报

回复

[Quote=引用 1 楼的回复:]
你的线段是首尾相连的么?你确定出来是个圆形么？

http://www.vbaexpress.com/kb/getarticle.php?kb_id=111

这个是把线段连成polyline的代码
[/Quote]
只把首尾相连的连成polyline，其他的就不管，谢谢了！

clear_zero 2012-10-17

打赏
举报

回复

你的线段是首尾相连的么?你确定出来是个圆形么？

http://www.vbaexpress.com/kb/getarticle.php?kb_id=111

这个是把线段连成polyline的代码

1，程序支持cad2004-cad2008,2009-2011没有测试，安装VBA插件后一般可用 2，程序为测绘专业的内业工具，一般和CASS软件配合使用 3，安装方法（1）将4个文件复制到cad安装目录\support\* （2）依据cad版本将acad2006doc.lsp文件名中得2006改为cad的版本，如acad2008doc.lsp (3) 启动cad，界面上会增加一个“图能速绘”菜单项 4，程序注册在“图能速绘”菜单下有个子项“软件注册”，点击后会看到软件的申请号，将申请号发送至开发人员的手机 5，主要功能（1）可在图上选取多个封闭多边形进行面积汇总（2）进行CASS依比例围墙和不依比例围墙的互换，解决CASS自动变比例时围墙无法转换。（3）可依据测量规范线性内插符号和高程点（4）可依据规范选择区域内插高程点（5）可给无属性的等高线批量赋值（6）对用JX4制作的线划图依据图层转化为CASS属性线划图（7）对地形图上的植被、管线等符号压盖现象自动清理（8）对地形图上的文字压盖现象制动移动文字。（9）对地形图上的控制点全部改为高程点（10）对地形图上的高程点统一加高程常数 6，快捷命令 -re 图形重构 -201 绘砼房屋 -921 绘陡砍 -654 绘下水井 -159 果树符号 -166 旱地填充等共500余个快捷命令

1，程序支持cad2004-cad2008,2009-2011没有测试，安装VBA插件后一般可用 2，程序为测绘专业的内业工具，一般和CASS软件配合使用 3，安装方法（1）将4个文件复制到cad安装目录\support\* （2）依据cad版本将acad2006doc.lsp文件名中得2006改为cad的版本，如acad2008doc.lsp (3) 启动cad，界面上会增加一个“图能速绘”菜单项 4，程序注册在“图能速绘”菜单下有个子项“软件注册”，点击后会看到软件的申请号，将申请号发送至开发人员的手机 5，主要功能（1）可在图上选取多个封闭多边形进行面积汇总（2）进行CASS依比例围墙和不依比例围墙的互换，解决CASS自动变比例时围墙无法转换。（3）可依据测量规范线性内插符号和高程点（4）可依据规范选择区域内插高程点（5）可给无属性的等高线批量赋值（6）对用JX4制作的线划图依据图层转化为CASS属性线划图（7）对地形图上的植被、管线等符号压盖现象自动清理（8）对地形图上的文字压盖现象制动移动文字。（9）对地形图上的控制点全部改为高程点（10）对地形图上的高程点统一加高程常数 6，快捷命令 -re 图形重构 -201 绘砼房屋 -921 绘陡砍 -654 绘下水井 -159 果树符号 -166 旱地填充等共500余个快捷命令

ARCGIS 是一个全面的系统，用户可用其创建地图、进行空间分析和创建基于地图的应用程序。SHAPEFILE 是目前软件包中支持最广泛的格式；虽然格式是专有的，但规范是开放的，有利于用户进行各种地理数据的格式转换；生成的文件相对较小，读取性能高。

AutoCAD对象模型及属性方法 1 Application 应用程序 1-1 Preferences 1-2 Documents 图形文档集合 1-2-1 Document 图形文档对象 1-2-1-1 ModelSpace 1-2-1-1-1 3DFace 三维三角形或四边形平面剖面 Class Name:Acad3DFace Create Using: ModelSpace.Add3DFace PaperSpace.Add3DFace Block.Add3DFace Access Via: Mo

在AutoCAD中我们知道使用Boundary（BO）命令可以快速找到内部点附近的最近边界范围（通常要求闭合）。然而网上很多文章却停留在如何用BO命令，并没有讲如何用代码去实现！本文将实现代码贴出来并进行简单介绍。先看下实现效果图吧！

2,462

社区成员

10,807

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章