多重平行线有多种多样的样式,主要用于绘制像墙之类的的平行线的场合,当你使用多种的标准绘制直线时,需要另外一条线来设置距离。
绘制多重平行线的代码如下。
Sub mylines()
Dim multilineobj As AcadMLine
Dim vertices(0 To 17) As Double
vertices(0) = 3: vertices(1) = 3: vertices(2) = 0
vertices(3) = 5: vertices(4) = 6: vertices(5) = 0
vertices(6) = 3: vertices(7) = 8: vertices(8) = 0
vertices(9) = 7: vertices(10) = 5: vertices(11) = 0
vertices(12) = 5: vertices(13) = 6: vertices(14) = 0
vertices(15) = 3: vertices(16) = 3: vertices(17) = 0
Set multilineobj = ThisDrawing.ModelSpace.AddMLine(vertices)
End Sub
代码完。
首先声明mulines函数,定义AcadLine图元实例,定义双精度型数组作为Mline的顶点,最后利用AddMLine方法添加多重线。
相关文章
- 2021-09-08BIM技术丛书Revit软件应用系列Autodesk Revit族详解 [
- 2021-09-08全国专业技术人员计算机应用能力考试用书 AutoCAD2004
- 2021-08-30从零开始AutoCAD 2014中文版机械制图基础培训教程 [李
- 2021-08-30从零开始AutoCAD 2014中文版建筑制图基础培训教程 [朱
- 2021-08-30电气CAD实例教程AutoCAD 2010中文版 [左昉 等编著] 20
- 2021-08-30电影风暴2:Maya影像实拍与三维合成攻略PDF下载
- 2021-08-30高等院校艺术设计案例教程中文版AutoCAD 建筑设计案例
- 2021-08-29环境艺术制图AutoCAD [徐幼光 编著] 2013年PDF下载
- 2021-08-29机械AutoCAD 项目教程 第3版 [缪希伟 主编] 2012年PDF
- 2021-08-29机械制图与AutoCAD [李志明 主编] 2014年PDF下载