图4.5 常用图库对话框
图库程序虽然容易实现，但其使用效果却非常好。在CAD中建立自己的图库是一个很好的思路，它容易实现，开发手段不存在特别的困难，用户使用起来得心应手，不用忙乱的在电脑中找图。
（3）命令组合和菜单定制
图4.6 定制图框界面
对于大多数人而言，AutoCAD的菜单被设计得非常有用，但是每个人都有自己不同的需要。通过定制适合自己需要的菜单可以使绘图工作变得更容易、更快速。在菜单中不仅可以添加命令，还可以添加由一系列命令组成的菜单选项，这些选项运行时就像宏一样。举个例子：不管用CAD画什么图，打开CAD后首先要做的就是设置图纸大小和比例，通常情况下我们是用scale等一系列命令来完成的，这样做步骤比较多，如果我们能定制一个如图4.6的快捷菜单就方便多了。
（4）优化系统形文件和字库[12]
AutoCAD的文字编辑和标注功能非常强大，但是针对我们土木专业却有点力不从心。我们经常碰到输入的文字比例和图面不协调，无法正常显示别人图纸上面的文字，图面标注杂乱等问题。一个好的二次开发程序必然要自己的字库，保证字库和其它软件字库的兼容性。我们建筑施工图的一个特点就是专业的标注形式，为了提高效率我们有必要在AutoCAD基础上开发快速标注的绘图程序。就拿标高来说，AutoCAD中没有标高符号，以前画图标高符号通常是自己画的，每个人每次画的可能都不一样，若能将标高符号加入到标注栏中，那画出的图就更加规范了。
图4.7 标注符号示例
程序主要代码如下：
Private Sub CommandButton1_Click()
Dim varRet1，varRet2，varRet3，As Variant
UserForm1 .Hide
varRet1=ThisDrawing Utility.GetPoint ( _ ,"输入地坪点: " )
p0(1)= CStr(varRet1(1))
varRet2=ThisDrawing Utility.GetPoint ( _ ,"输入标高待测点: " )
p1(1)= CStr(varRet2(1))
varRet3=ThisDrawing Utility.GetPoint ( _ ,"输入标高符号插入点: " )
p2(0)= CStr(varRet3(0))
p2(1)= CStr(varRet3(1))
p2(2)=0
p3(0)=p2(0)-50
p3(1)=p2(1)+50
p3(2)=0
p4(0)=p2(0)+50
p4(1)=p2(1)+50
p4(2)=0
p5(0)=p2(0)+200
p5(1)=p2(1)+50
p5(0)=0
Set objLine01=ThisDrawing.ModelSpace.AddLine(p2,p3)
Set objLine01=ThisDrawing.ModelSpace.AddLine(p2,p4)
Set objLine01=ThisDrawing.ModelSpace.AddLine(p3,p5)
a=p1(0)-p0(1)
b(0)=p4(0)
b(1)=p(1)+15
b(2)=0
c=80
Set AddText=ThisDrawing.ModelSpace.AddText(a,b,c)
End Sub
5 城市地下管网数字化管理系统的建设
地下管线作为城市“生命线”，是城市的重要基础设施，地下管线资料是城市规划建设和管理的基础资料。近年来，随着我国经济的发展，城市化的步伐加快，城市规模的扩大和现代化程度的不断提高，作为城市的重要基础设施城市地下管线也越来越庞大、密集，其种类也越来越复杂，形成了地下管线错综复杂、密如蛛网的局面。随着城市基础建设的扩大和经济的迅猛发展，其基础设施也日趋丰富而复杂，地下管线作为重要基础设施之一，实现其信息化管理既是城市现代化发展的需要，也是时代发展的要求。
随着社会经济的发展和人口的城市化，城市发展越来越快，负载也越来越重，对地下管线的依赖性也越来越大。城市灾害的危害日益突出，尤其是迅速膨胀发展的大城市和特大城市，其自然灾害、环境灾害和人为灾害都十分严重。对于一个现代化城市的可持续发展，必须是具有安全保障、特别是面对突发事件和灾害，能够做出快速的正确决策和有效的救援响应。所以，从城市发展战略高度来认识地下管网在城市规划、建设和管理中的作用与地位，掌握和摸清城市地下管网的现状，是城市自身经济社会发展的需要，是城市规划建设的需要，也是防灾和应付突发性重大事故的需要。对文护城市生命线的正常运行、保证城市居民的正常生产、生活和社会发展都具有重要的现实意义[13]。 VB基于AutoCAD的自动成图系统开发及其应用(18):http://www.youerw.com/jisuanji/lunwen_1762.html