城市建筑I学者论坛|URBANISMANDARCHITECTURE|SCHOLARS'FORUM
基于AutoCADVBA的南方CASS测图系统的高程改正 BasedtheSouthCASSMappingSystemoftheAutoCADVBAElevationCorrections
Zhang Zhiwei
■戈树兵
张之伟黑GeShubing
[摘要】在日常利用绘制好的数字地形图时，经常会遇到不同高程系统之间转换的网题，传统人工修改效率很速度慢，利用AutoCADVBA构建特合条件的选择集，再根据改正数把选择集中特合条件的实体对象统一加减同一数值提方便解决这个网题。
[关健调]CASS CAD VBA
[Abstract] In daily using the good drawn digital topographic map, we ofen encountered the problem of coevension between differeot elevstion system The traditional artificial modity eff-icieney is very slow,while using the AutoCAD VBA to built eligible seletion set,and it is convenient to solve this problem.
[Keywerds] CASS, CAD, VBA
引言
南方CASS地形地籍测图系统是基于AutoCAD平台技术的数字测绘数据采集系统，广泛用于地形地籍成图、工程测量等应用领域。
Visual Basic是一款比较容易上手的编程软件。VBA是VisualBasic一种宏语言，VBA在语法和函数的使用与VisualBasic基本相同，现在VBA被集成到AutoCAD中的各个版本中，而南方测绘的 CASS是基于AutoCAD平台二次开发，利用VBA进行 CAD功能的二次开发可以开发出测图软件中没有提供而我们日常测量数据处理中又需要的各种功能，提高了工作效率。
二
编程思路
南方CASS测图系统和AutoCAD一样是按图层进
行数据的存储和管理的，所有的高程点都存储在GCD 层里，程序运行时按要求选择高程点所在的图层并进行高程增加值或减少值的输入，然后使用循环进行每个高程点注记数值和点的垒标信息的记录并将对应高程注记值加上高程改变值，然后进行高程注记值的更新晶示。
使用方法三、
首先在CAD的命令行中输入VBAIDE启动VBA编程窗口，在工程窗口中右键造择新建模块，然后进行程序代码的编写，编写完成后保存成gcxg.dvb。新建一[SP程序，例如：GC1.1sp内容如下；
(defunc:gcxg）根据高程修改模块存放的具体路径修改
（上接第158页）
目前城市道路建设规划由建设主管部门负责控制无康置疑。但是道路的工程投入和建设管理体制不顺。有建设局负责的，也有新区管委会、镇政府、旧城改造指挥部负责的。必须统筹协调，职责明确，职能到位。微到规范管理，长效管理。
4、落实资任制，列入目标考核。根据县政府的统筹安排，每年必频完成的新项目的周边市政道路
万方数据
(_oypapes, puemoa)(command "o")
(command *vbarun")(command "gcxg")
完毕后在命令行输入：APPLOAD在启动组中选择CC1.1sp和源程序所在的模块，添加后关闭，命令行输入：gcxg后国车就可以根据对话框进行人机对话完成高程数据的数值修改了
程序源代码：四、
Private Sub CoenandButton1_Click O Dim gcstep As Variant
Dim tuceng. tucengxin As String Din nyss As AcadSeiectionSet
Din text As Variant Din stype (0) As Integer Din data(0) As Variant
Din SS As Double Din obnane As String
Dim OBJE As AcadObject Dim coord As Variant Dim COORD1 (2) As Double gcstep - TextBoxl. text tuceng = TextBox2, text
Setayss=ThisDrawing. SelectionSets, Add(s yss")
stype (0) = 8 data(o) = tuceng
ayss, Select acSelectionSetAll, , , stype, data
For SS = 0 To myss, Count 1
obnae = myss, Iten (SS), ObjectNane
Select Case obname Case "AcDbText" XXX =0
text = myss. Iten(SS), TextString text = CDbl (text) + CDb1 (gcstep) nyss. Item(SS).TextString = text
coord = myss. Item ($S), InsertionPoint For XXX = 0 To 2
+=coord(xxx)
COORD1 (XX) Next
COORD1 (2) = COORD1 (2) + CDb1 (gcstep) coord = CoORD1
建设，必须明确地把责任落实到相关职能部门，并列入政府对该部门的年度目标考核内容。只有这样，才能引起相关职能部门的高度重视，从人力、物力、财力上予以保障。
5，限时限量完成，城市道路建设，涉及到规划的确定、方案的设计、审查、工程的招投标、施工的管理等各个环节。一个项目从确定投入建设到工程正式开工往往耗时半年以上，加上政策处理费时
159
myss, Iten(SS). InsertionPoint = coord
Case 'AcDbPoint" xxx - o
coord myss, Item($s). Coordinates For XXX = 0 To 2
COORD1 (XXX) = coord(XXX) Next
COORD1 (2) = C0ORD1(2) + CDb1(gcstep) coord = CoORD1
myss, Iten(SS). Coordinates = coord
Case "AcDbBlockReference" XXX = 0
coord = nyss. Iten(Ss), InsertionPoint.For XxX = 0 To 2
COORD1 (XXx) = coord(XXx) Next
C0ORD1 (2) = COORD1 (2) + CDb1(gcstep) coord = CoORD1
Byss. Item(SS). InsertionPoint = eoord Case Else
MsgBox"来发现高程点数据"&"；"&obnane
End Select Next
Byss, Delete
MsgBox“高程改正完成!!!
pug End Sub 结束语
五、
目前我国存在1985国家高程基准、56黄海高
程系、吴淞口高程系等高程系统，在日常工作中，经常需要将绘制好的电子地图进行高程系转换，但高程点数量虚大，传统的人工修改速度慢、效率低，现只要计算出两个高程系之间的差值，利用这个程序进行高程点注记的修改即可，速度快效率高，参考文献：
[1]张凯AutoCADVBA二次开发教程[M].清华大学出版社，2006.
[2]赵卫常，赵军波.批量修改CASS图形中的高程[J】.测绘与空间地理信息.2011.
（作者单位：徐州市国测测绘信息服务有限公司，江苏徐州221006）
费力，往往确定本年度建设的项目第二年才开工，甚至还开工不了，因此，必须进行科学的筹划，明确每个工程建设和完成的时间表，才能确保限时限量完成工程的建设。
（作者单位：杭州市城市建设发展有限公司，浙江杭州310021）