《6地形图绘制.pptVIP

(3)面状符号 (1) 图块建立 (2)线型定制 (3)符号填充 AutoCAD的二次开发技术 线型的开发与定制 图案的开发与定制 菜单的开发与定制 AutoLisp二次开发 1)线型定制 1.简单线型 练习 1．按下图所示尺寸要求定义双短画线，定义线型的名称为“双短画线”，说明部分写sd两个字母。 练习 2．定义如下图所示的填充图案，填充图案的名称为“3241-A”。 一、 AutoCAD VBA简介 VBA（Visual Basic for Application） VBA功能： 创建对话框和其它界面； 创建工具栏； 建立模块级宏指令； 提供建立类模块的功能； 具有完善的数据访问和管理能力；(ADO、DAO、RDO，C/S) 能够使用Win32API提供的功能，建立应用程序与操作系统之间的通信； 在AutoCAD中使用VBA的好处 Visual Basic编程环境易学易用； VBA作为AutoCAD的一个过程运行，这使程序执行速度变得非常快； 对话框结构快速有效，允许开发者在设计时启动应用程序并能得到快速反馈；（易于代码纠错和维护） 对象可以独立出来，也可以嵌入AutoCAD图形。灵活性很强。 6、选择集合 ‘’************************ SelectionSets ***************************** Sub MySelectionSets() Dim K As Integer Dim ssetObj As AcadSelectionSet Dim objCollection As AcadEntity Dim ob As AcadEntity Dim I As Integer For I = ThisDrawing.SelectionSets.count - 1 To 0 Step -1 ThisDrawing.SelectionSets(I).Delete Next I ThisDrawing.Utility.GetEntity objCollection, Pnt1, 选择一个对象： objCollection.color = 1 Set ssetObj = ThisDrawing.SelectionSets.Add(ybssa) Set ssetObj = ThisDrawing.ActiveSelectionSet ssetObj.Select acSelectionSetAll If ssetObj.count 0 Then MsgBox 选择集中对象数目: ssetObj.count For Each ob In ssetObj ob.color = acMagenta Next End If End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 7、栅格图像Raster Sub InsertRaster() Dim a As AcadRasterImage Dim b(2) As Double Dim ly As AcadLayer Dim PicFileName As String Dim factor As Double factor = 2# Set ly = ThisDrawing.Application.ActiveDocument.Layers.Add(底图) PicFileName = E:\图片\Bliss.jpg b(0) = 100 b(1) = 100 b(2) = 0 Set a = ThisDrawing.Application.ActiveDocument.ModelSpace.AddRaster(PicFileName, b, factor, 45) a.Transparency = True a.Layer = 底图 ThisDrawing.Application.ZoomExtents ThisDrawing.SaveAs E:\yangbiao.dwg End Sub Evaluation only. Created with Aspose.Slides for .NET