《地形图绘制》PPT课件.ppt

《《地形图绘制》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《地形图绘制》PPT课件.ppt（75页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、6 地形图图式符号库地形图图式符号库线型填充图案形和字体 数字测图软件的地形图图式符号库数字测图软件的地形图图式符号库,是以国是以国家标准家标准图式图式为依据的图形数据库。为依据的图形数据库。库的功能首先是各种地物符号的绘制库的功能首先是各种地物符号的绘制,其次其次是这些符号的组织、检索、管理和应用是这些符号的组织、检索、管理和应用,此外还此外还必须提供对符号库本身进行增加、删除、修改等必须提供对符号库本身进行增加、删除、修改等操作的维护功能操作的维护功能,以满足不同专业用户的需求。以满足不同专业用户的需求。对于不同的比例尺对于不同的比例尺,图式中有不同的规定图式中有不同的规定,这种不这种不同

2、可以体现在符号的类型图案以及依何种比例尺等方面。同可以体现在符号的类型图案以及依何种比例尺等方面。在一个完善的图式符号库中在一个完善的图式符号库中,应包括不同比例尺的符号。应包括不同比例尺的符号。除了国家标准外除了国家标准外,在铁路、电力等行业还制定有各自的在铁路、电力等行业还制定有各自的部门标准部门标准,它们主要是针对专业特点作了若干补充它们主要是针对专业特点作了若干补充,同同时也可能带来符号分类体系的变化。随着测绘事业的发时也可能带来符号分类体系的变化。随着测绘事业的发展展,图式本身也存在更新的问题。所有这些都要求数字图式本身也存在更新的问题。所有这些都要求数字化成图软件的图式符号库能适应

3、不同应用条件的变化化成图软件的图式符号库能适应不同应用条件的变化,应具有更新和调整功能。应具有更新和调整功能。1 1 图式符号库的设计图式符号库的设计 数字测图软件的图式符号库的设计方法应与其图形数字测图软件的图式符号库的设计方法应与其图形系统的实现方法相一致。对于具有独立图形系统的数系统的实现方法相一致。对于具有独立图形系统的数字测图软件来说字测图软件来说,符号库的设计有两种方法符号库的设计有两种方法:u沿用通用的沿用通用的CAD CAD 图形软件的符号库系统图形软件的符号库系统,并实现并实现与之兼容的应用程序；与之兼容的应用程序；u根据自己的图形数据结构和图形应用平台，开发根据自己的图形数

4、据结构和图形应用平台，开发专门的符号库结构和实现方法。专门的符号库结构和实现方法。各种地形符号首先可分为三大类。各种地形符号首先可分为三大类。u点状点状u线状线状u面状面状1 1 图式符号库的设计图式符号库的设计 只有一个定位点只有一个定位点,对应一个固定的、不依对应一个固定的、不依比例比例 尺而变化的图形符号。根据朝向的不同尺而变化的图形符号。根据朝向的不同,点状符号又可分为垂直于南图廓和按真实方向点状符号又可分为垂直于南图廓和按真实方向描绘两类。描绘两类。(1)(1)点状符号点状符号 其特点是符号依据定位线绘制。根据线划构成的其特点是符号依据定位线绘制。根据线划构成的复杂程度复杂程度,线状

5、符号又分为线状符号又分为:比较简单的比较简单的(简单线型简单线型),如简易公路、等级公路的边等；比较复杂的如简易公路、等级公路的边等；比较复杂的(复杂复杂线型线型),),如行树、围墙、高压电力线等。如行树、围墙、高压电力线等。(2)(2)线状符号线状符号(3)面状符号面状符号 其定位线要求构成封闭的区域其定位线要求构成封闭的区域,称为面状符号。称为面状符号。根据区域内填充的不同根据区域内填充的不同,又可分成线填充方式又可分成线填充方式(如如特种房屋特种房屋)及点填充方式及点填充方式(如草地、树林如草地、树林)2 AutoCAD2 AutoCAD图式符号库的建立图式符号库的建立 基于基于Auto

6、CAD AutoCAD 二次开发的测图软件二次开发的测图软件,一般都考虑在一般都考虑在AutoCADAutoCAD系统中利用系统中利用AutoCAD AutoCAD 提供用户定义的图块提供用户定义的图块(BLOCK)(BLOCK)和填充和填充(HATCH)(HATCH)图案的功能建立图式符号库。图案的功能建立图式符号库。AutoCAD AutoCAD 中的图形元素称为实体中的图形元素称为实体,图块是若干实图块是若干实体的集合体的集合,并被赋予一个名称。该集合本身也成为一个并被赋予一个名称。该集合本身也成为一个实体实体,可作为一个整体进行诸如插入、拷贝、移动、删可作为一个整体进行诸如插入、拷贝、

7、移动、删除等操作。图块定义有一个插入点除等操作。图块定义有一个插入点,即定位点。即定位点。(1)图块建立图块建立 例如制作三角点符号，在例如制作三角点符号，在AutoCADAutoCAD用用PlinePline按照图按照图式规定的大小绘制式规定的大小绘制3mm3mm边长的正三角形，用边长的正三角形，用PointPoint在三在三角形中心绘制一点，并设置为基点。用地形图图式编角形中心绘制一点，并设置为基点。用地形图图式编号号“311”311”为文件名，存入符号库指定的目录中，这样为文件名，存入符号库指定的目录中，这样就完成了三角点符号的制作。用类似的方法制作其它就完成了三角点符号的制作。用类似的

8、方法制作其它符号。下图为图式符号库中制作的部分常用地形图图符号。下图为图式符号库中制作的部分常用地形图图式符号。式符号。类似于围墙的地形图图式属于线形符号，例类似于围墙的地形图图式属于线形符号，例如栏栅、铁路、土堤、斜坡等，以及房屋、台阶如栏栅、铁路、土堤、斜坡等，以及房屋、台阶等非线形符号均可以设计成相应的自定义图形函等非线形符号均可以设计成相应的自定义图形函数。为方便一系列自定义函数的调用，一般设计数。为方便一系列自定义函数的调用，一般设计成下拉式菜单，点击后自动调用。对于个别函数成下拉式菜单，点击后自动调用。对于个别函数可在可在AutoCADAutoCAD命令行用命令行用“load”lo

9、ad”命令加载：（命令加载：（load“load“路经、函数名路经、函数名”），然后按函数名调用。），然后按函数名调用。(2)线型定制线型定制 AutoCAD AutoCAD 提供了标准的填充模式库提供了标准的填充模式库,也也允许建立用户自己的填充模式库允许建立用户自己的填充模式库,因而能够为因而能够为阵列式的面状符号（例如果园、竹林、草坪等）阵列式的面状符号（例如果园、竹林、草坪等）建库。建库。(3)符号填充符号填充AutoCAD的二次开发技术的二次开发技术n线型的开发与定制线型的开发与定制n图案的开发与定制图案的开发与定制n菜单的开发与定制菜单的开发与定制n AutoLisp二次开发二次开

10、发线型及线型文件线型及线型文件 系统提供一些标准线型，由库文件定义。系统提供一些标准线型，由库文件定义。系系统统提提供供标标准准线线型型文文件件有有两两个个，用用于于公公制制图图形形，则则用用于英制图形。于英制图形。标准线型分通用线型、标准线型分通用线型、ISOISO线型和复杂线型三类型。线型和复杂线型三类型。简简单单线线型型：包包括括通通用用线线型型和和ISOISO标标准准线线型型，它它是是由由实实线段、点和空线段组成的。线段、点和空线段组成的。复复杂杂线线型型：除除了了包包含含简简单单线线型型的的结结构构外外，还还包包含含了了“形形”和和“文本文本”的定义。的定义。1)线型定制线型定制 线

11、型库文件定义了线型库文件定义了2424种通用线型和种通用线型和1414种标准线型。种标准线型。通用线型通用线型 2424种种通通用用线线型型分分为为8 8类类，每每类类有有3 3种种结结构构形形式式。分分别别用用不不同同的的实、空线段长度来区分。实、空线段长度来区分。线型名分为线型名分为“类名类名”、“类名类名2”2”和和“类名类名X2”X2”，基本形式，如基本形式，如BORDERBORDER 基本形式比例的倍，如基本形式比例的倍，如BORDER2BORDER2 基本形式比例的基本形式比例的2 2倍，如倍，如BORDERX2BORDERX2。1.简单线型简单线型通用线型通用线型*BORDER,

12、Border _ _._ _._ _._ _._ _.BORDER,Border _ _._ _._ _._ _._ _.A,12.7,-6.35,12.7,-6.35,0,-6.35 A,12.7,-6.35,12.7,-6.35,0,-6.35*BORDER2,Border(.5x)_._._._._._._._._._.*BORDER2,Border(.5x)_._._._._._._._._._.A,6.35,-3.175,6.35,-3.175,0,-3.175 A,6.35,-3.175,6.35,-3.175,0,-3.175*BORDERX2,Border(2x)_ _ ._

13、_ .*BORDERX2,Border(2x)_ _ ._ _ .A,25.4,-12.7,25.4,-12.7,0,-12.7 A,25.4,-12.7,25.4,-12.7,0,-12.7*CENTER,Center _ _ _ _ _ _ _ _ _*CENTER,Center _ _ _ _ _ _ _ _ _ A,31.75,-6.35,6.35,-6.35 A,31.75,-6.35,6.35,-6.35*CENTER2,Center(.5x)_ _ _ _ _ _ _ _ _*CENTER2,Center(.5x)_ _ _ _ _ _ _ _ _ A,19.05,-3.175,

14、3.175,-3.175 A,19.05,-3.175,3.175,-3.175*CENTERX2,Center(2x)_ _ _ _ *CENTERX2,Center(2x)_ _ _ _ A,63.5,-12.7,12.7,-12.7 A,63.5,-12.7,12.7,-12.7 标准线型标准线型 1414种种ISOISO线线型型，是是按按ISO128(ISO/DIS12011)ISO128(ISO/DIS12011)标标准准设设定定，线的宽度均为线的宽度均为1mm1mm。*ACAD_ISO02W100,ISOdash _ _ _ _ _ _ _ ACAD_ISO02W100,ISOda

15、sh _ _ _ _ _ _ _ A,12,-3 A,12,-3*ACAD_ISO03W100,ISOdash space _ _ _ *ACAD_ISO03W100,ISOdash space _ _ _ A,12,-18 A,12,-18*ACAD_ISO04W100,ISOlong-dash dot _._.*ACAD_ISO04W100,ISOlong-dash dot _._.A,24,-3,0,-3 A,24,-3,0,-3*ACAD_ISO05W100,ISOlong-dashdouble-dot _.*ACAD_ISO05W100,ISOlong-dashdouble-dot

16、_.A,24,-3,0,-3,0,-3 A,24,-3,0,-3,0,-3*ACAD_ISO07W100,ISOdot.*ACAD_ISO07W100,ISOdot.A,0,-3 A,0,-32 复杂线型复杂线型 系统提供系统提供7种复杂线型。种复杂线型。复杂线型除具有简单线型的结构之外，还在线型之间夹杂有文字复杂线型除具有简单线型的结构之外，还在线型之间夹杂有文字或特定的图形符号。或特定的图形符号。*FENCELINE1,Fenceline circle-0-0-0FENCELINE1,Fenceline circle-0-0-0*FENCELINE2,Fenceline square-*F

17、ENCELINE2,Fenceline square-*TRACKS,Tracks-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-*TRACKS,Tracks-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-*BATTING,Batting SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS*BATTING,Batting SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS A,.00254,-2.54,BAT,ltypeshp.shx,x=-2.54,s=2.54,-5.

18、08,A,.00254,-2.54,BAT,ltypeshp.shx,x=-2.54,s=2.54,-5.08,BAT,ltypeshp.shx,r BAT,ltypeshp.shx,r3 CAD3 CAD线型文件的格式线型文件的格式 线型文件是一种ASCII码文件，一个线型文件可以定义多种线型。每一种线型的定义在线型文件中占两行。第一行称为标题行第一行称为标题行 格式为：*线型名，线型说明 *：标记符不能省略，线型名：由多个符号组成，符号为字母、数字、特殊符号和空格等。标记符和线型名之间不允许有空格。线型说明：可省略项，用文字说明或用符号表示；若省略线型说明，线型名后面不加逗号；线型说明部分

19、长度不能超过47个字符。定义简单线型定义简单线型 标题行：*线型名，线型说明 描述行：对齐方式码，dish1,dish2,dashn 对齐方式码:定义线型的对齐方式，目前只有一种对齐方式，即两端对齐方式，用A表示。dish1,dish2,dashn：指组成线型结构线段的长度。其中 dish0 画一段长度为dish的实线段 dish=0 画一个圆点 dish0时和当前线段方向相同，n40时于该方向相同，n50ThenMsgBox选择集中对象数目:&ForEachobInssetObjob.color=acMagentaNextEndIfEndSub7、栅格图像、栅格图像RasterSubInse

20、rtRaster()DimaAsAcadRasterImageDimb(2)AsDoubleDimlyAsAcadLayerDimPicFileNameAsStringDimfactorAsDoublefactor=2#Setly=(底图)PicFileName=E:图片b(0)=100b(1)=100b(2)=0Set a=ThisDrawing.Application.ActiveDocument.ModelSpace.AddRaster(PicFileName,b,factor,45)a.Transparency=Truea.Layer=底图E:EndSub8 8、计算面积、计算面积*计

21、算面积*SubCh3_CalculateDefinedArea()Dimp1AsVariant,p2AsVariant,p3AsVariant,p4AsVariant,p5AsVariant从用户处取得点p1=(,vbCrLf&第一个点:)p2=ThisDrawing.Utility.getpoint(p1,vbCrLf&第二个点:)p3=ThisDrawing.Utility.getpoint(p2,vbCrLf&第三个点:)p4=ThisDrawing.Utility.getpoint(p3,vbCrLf&第四个点:)p5=ThisDrawing.Utility.getpoint(p4,v

22、bCrLf&第五个点:)由这些点创建二维多段线DimpolyObjAsAcadLWPolylineDimvertices(0To9)AsDoublevertices(0)=p1(0):vertices(1)=p1(1)vertices(2)=p2(0):vertices(3)=p2(1)vertices(4)=p3(0):vertices(5)=p3(1)vertices(6)=p4(0):vertices(7)=p4(1)vertices(8)=p5(0):vertices(9)=p5(1)SetpolyObj=_(vertices)=True显示多段线的面积MsgBox通过定义的点形成的面

23、积为&_,计算定义的面积EndSub9、加载菜单、加载菜单加载菜单加载菜单SubMenuAutocad()DimacMenuGroupAsAcadMenuGroupForEachacMenuGroupInNextSetacMenuGroup=,True)EndSub10、增加菜单按钮和创建菜单按钮增加菜单按钮和创建菜单按钮SubCreateMenuFirst2()SetacApp=DimacMenuAsAcadPopupMenuDimacMenuItemAsAcadPopupMenuItemDimNewacMenuAsAcadPopupMenuItemSetacMenu=acApp.MenuG

24、roups(0).Menus(文件(&F)SetacMenuItem=acMenu.AddMenuItem(0,杨彪,._OPEN)SetacMenuItem=acMenu.AddMenuItem(0,杨彪4,-vbarunshowpic2)SetacMenu=ThisDrawing.Application.MenuGroups(0).Menus.Add(杨彪111)SetacMenuItem=acMenu.AddMenuItem(0,放大,.Z1.5XP)SetacMenuItem=acMenu.AddMenuItem(1,缩小,.Z0.7XP)SetacMenuItem=acMenu.Ad

25、dMenuItem(2,全景显示,.ZA)SetacMenuItem=acMenu.AddMenuItem(3,最大显示,.ZE)SetacMenuItem=acMenu.AddMenuItem(4,鸟瞰,._DISVIEWER)SetacMenuItem=acMenu.AddMenuItem(5,移动,.PAN)10acApp.MenuGroups(0).SaveAs,1EndSub 增加工具栏按钮和创建工具栏增加工具栏按钮和创建工具栏增加工具栏按钮和创建工具栏增加工具栏按钮和创建工具栏SubCreateToolFirst()SetacApp=DimacToolbarAsAcadToolba

26、rDimacToolbarItemAsAcadToolbarItemDimToolbarItemAsAcadToolbarItemOnErrorResumeNextSetacToolbar=ThisDrawing.Application.MenuGroups(0).Toolbars(常用)SetToolbarItem=acToolbar.AddToolbarButton(0,杨彪22,help1,._OPEN)CallToolbarItem.SetBitmaps(E:图标1.ico,E:图标2.ico)SetToolbarItem=acToolbar.AddToolbarButton(0,杨彪

27、124,help2,-vbarunshowpic2)SetacToolbar=ThisDrawing.Application.MenuGroups(0).Toolbars.Add(杨彪1111)SetToolbarItem=acToolbar.AddToolbarButton(0,放大,help3,.Z1.5XP)CallToolbarItem.SetBitmaps(E:图标3.ico,E:图标3.ico)SetToolbarItem=acToolbar.AddToolbarButton(1,缩小,help4,.Z0.7XP)CallToolbarItem.SetBitmaps(E:图标4.b

28、mp,E:图标4.bmp)SetToolbarItem=acToolbar.AddToolbarButton(2,全景显示,help5,.ZA)SetToolbarItem=acToolbar.AddToolbarButton(3,最大显示,help6,.layer)CallToolbarItem.SetBitmaps(E:图标5.ico,E:图标5.ico)=TrueacApp.MenuGroups(0).SaveAs,1EndSub11、加载线型、加载线型加载线型的子程序加载线型的子程序SubMLoadLineTypes()DimBL0AsBoolean,IAsInteger,ILenAs

29、Integer,Str1AsString,StrLineAsStringDIMStrLinAsStringStrLin=+Support+IfDir(StrLin)=ThenMsgBox没有找到线型文件+StrLin+不能进行操作,vbInformation,错误EndEndIfOpenStrLinForInputAs#1DoWhileNotEOF(1)LineInput#1,StrLineStrLine=Trim(StrLine&):ILen=Len(StrLine)IfILen1ThenStr1=Mid(StrLine,1,1)IfStr1=*ThenForI=1ToILenIfMid(S

30、trLine,I,1)=,ThenExitForNextStrLine=Mid(StrLine,2,I-2)BL0=FalseCallLineTypeExist(StrLine,BL0)IfNotBL0ThenStrLine,StrLin线型不存在则加载EndIf:EndIfLoopClose#1EndSub12、文件、文件File*File*SubMyfile()DimStrFilenameAsStringStrFilename=C:DocumentsandSettings桌面drawing2.dwgStrFilenameForI=0To-1MsgBoxThisDrawing.Applica

31、tion.Documents(I).NameNextThisDrawing.Application.Documents(Drawing5.dwg).Activate注意大小写ThisDrawing.Application.Documents(Drawing2.dwg).SaveThisDrawing.Application.Documents(Drawing2.dwg).SaveAsd:drawing2.dwgThisDrawing.Application.Documents(drawing2.dwg).CloseEndSub13、控制命令输入窗口、控制命令输入窗口SendCommand*Su

32、bMySendCommand()Chr(13)回车Chr(32)空格Chr(27)ESCChr(27)+ZE_line_panEndSub14、三维绘图、三维绘图Subyb3DMap()Dimpt(2)AsDouble,zAsDoubleDimboxAsAcad3DSolidpt(0)=500pt(1)=500pt(2)=-5Setbox=ThisDrawing.ModelSpace.AddBox(pt,1500,1500,10)box.color=acYellowForI=1To200pt(0)=Rnd*1000pt(1)=Rnd*1000z=Int(Rnd*300)+50pt(2)=z/2

33、#Setbox=ThisDrawing.ModelSpace.AddBox(pt,Abs(Rnd*100)+20,Abs(Rnd*100)+20,z)box.color=Int(Rnd*100)NextZoomAll-view_seisoChr(27)_3dcorbitEndSub3DMeshSubExample_Add3DMesh()Thisexamplecreatesa4X4polygonmeshinmodelspace.DimmeshObjAsAcadPolygonMeshDimmSize,nSize,countAsIntegerDimpoints(0To47)AsDoubleCreat

34、ethematrixofpointspoints(0)=0:points(1)=0:points(2)=0:points(3)=2:points(4)=0:points(5)=1points(6)=4:points(7)=0:points(8)=0:points(9)=6:points(10)=0:points(11)=1points(12)=0:points(13)=2:points(14)=0:points(15)=2:points(16)=2:points(17)=1points(18)=4:points(19)=2:points(20)=0:points(21)=6:points(22

35、)=2:points(23)=1points(24)=0:points(25)=4:points(26)=0:points(27)=2:points(28)=4:points(29)=1points(30)=4:points(31)=4:points(32)=0:points(33)=6:points(34)=4:points(35)=0points(36)=0:points(37)=6:points(38)=0:points(39)=2:points(40)=6:points(41)=1points(42)=4:points(43)=6:points(44)=0:points(45)=6:p

36、oints(46)=6:points(47)=0mSize=4:nSize=4createsa3DmeshinmodelspaceSetmeshObj=ThisDrawing.ModelSpace.Add3DMesh(mSize,nSize,points)ChangetheviewingdirectionoftheviewporttobetterseethepolygonmeshDimNewDirection(0To2)AsDoubleNewDirection(0)=-1:NewDirection(1)=-1:NewDirection(2)=1=NewDirection=ZoomAllEndS

37、ub15、块、块(综合练习综合练习)SubMyBlock()DimMySSAsAcadSelectionSet,PntTxtSta(0To2)AsDouble,ExpObjAsVariantDIMPntTxtEnd(0To2)AsDouble,DTxtAngleAsDouble文字插入点,角度DimMyPlnAsAcadLWPolyline,Str1AsString,Str2AsStringDimStrLineTypeAsString,DLineWidthAsDouble,LLineColorAsLong线型名称、宽度、颜色DimPnsAsVariant,PntstaAsVariant,Pnt

38、EndAsVariant,Pntln(0To3)AsDoubleCallDeleAllSelect删除所有选择集SetMySS=ThisDrawing.SelectionSets.Add(ssa)acSelectionSetAllIf1ThenExitSubForI=-1To0Step-1Str1=MySS(I).ObjectNameIfStr1=AcDbBlockReferenceThenExpObj=MySS(I).Explode:MySS(I).DeleteForJ=0ToUBound(ExpObj)SelectCaseExpObj(J).ObjectNameCaseAcDbPolyli

39、nePnts=ExpObj(J).Coordinates:ExpObj(J).DeleteSetMyPln=ThisDrawing.ModelSpace.AddLightWeightPolyline(Pnts)I1=UBound(Pnts)ForK=0To(I1/2-1)宽度设定K,DLineWidth,DLineWidthNextStrLineType=Continuous“:LLineColor=2:=StrLineType=LLineColorCaseAcDbLinePntsta=ExpObj(J).StartPoint:PntEnd=ExpObj(J).EndPointPntln(0)

40、=Pntsta(0):Pntln(1)=Pntsta(1):Pntln(2)=PntEnd(0):Pntln(3)=PntEnd(1)Pnts=PntlnExpObj(J).DeleteSetMyPln=ThisDrawing.ModelSpace.AddLightWeightPolyline(Pnts)StrLineType=ContinuousLLineColor=3=StrLineType=LLineColor宽度设定0,DLineWidth,DLineWidthCaseAcDbPointPns=ExpObj(J).CoordinatesExpObj(J).Delete(Pns)CaseElseExpObj(J).Delete其他如文字、点不再进行处理EndSelectNextEndIfNext不是块的不处理EndSub1616、运行宏、运行宏-vbarunSubhong()InsertRasterEndSub