CAD中VBA操作多段线画矩形

上传人：天*** IP属地：广东上传时间：2023-04-05 格式：DOCX 页数：3 大小：16.18KB 积分：2.4 举报 版权申诉

全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

本文格式为Word版，下载可任意编辑——CAD中VBA操作多段线画矩形VBA操作多段线画矩形

在CAD中使用VBA画多段线闭合的矩形。其实这个多段线围起来，围成一个矩形即可。

VBA中多段线是一串点，每个点使用两个双精度数值描述，这些数值连续放在数组中，就用ThisDrawing.ModelSpace.AddLightWeightPolyline(数组名)命令画出一段多段线。画出矩形，关键就是要控制好四个顶点。

本次测试中使用一条直线（用于定矩形的方向的基准线）为参数画出一个矩形。假使希望控制矩形的宽度，也可以再加其他控制条件。

提醒用户画矩形，选取第一个点（sp，这里的点其实是一个只有两个元素的数组）

提醒用户画矩形，选取其次个点（ep）

由两点算这条基准线的长度l、角度正弦sina和角度余弦cosa

l=sqr((sp(1)-ep(1))^2+(sp(0)-ep(0)^2))

sina=(ep(1)-sp(1))/lcosa=(ep(0)-sp(0))/l

由此可知，第三点坐标p3（ep（0）+w*(-sina),ep(1)+w*cosa）进而推得第四点p4（p3(0)+(-cosa)*l,p3(1)+(-sina)*l）最终还要连回第一点，古增加一个p5，和sp同一点。

于是这个数组组建完毕，总共是个数值，每两个数值对应一个点，总共五个点。代码实现如下：

SubRectang()OnErrorGoToESC

sp=ThisDrawing.Utility.GetPoint(,\起点:\ep=ThisDrawing.Utility.GetPoint(sp,\终点：\

l=Sqr((sp(1)-ep(1))^2+(sp(0)-ep(0))^2)sina=-(sp(1)-ep(1))/dcosa=-(sp(0)-ep(0))/d

Dimp(1To10)AsDoublep(1)=sp(0)

p(2)=sp(1)‘第一点p(3)=p(1)+sl*cosap(4)=p(2)+sl*sina‘其次点p(5)=p(3)+sw*-sina

p(6)=p(4)+sw*(cosa)‘第三点p(7)=p(5)+sl*(-cosa)

p(8)=p(6)+sl*(-sina)‘第四点p(9)=p(1)

p(10)=p(2)‘第五点

Dimrect(0To0)AsAcadEntity

Setrect(0)=ThisDrawing.ModelSpace.AddLightWeightPolyline(p)ESC:

IfErrThenMsgBo

人人文库> 全部分类> 教育资料 > 中学教育

1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。