第３４卷第５期 ２０１１年ｌ０月 测绘与空间地理信息 ＧＥ０ＭＡＴＩＣｓ＆ＳＰＡＴＩＡＬ ｌＮＦＯＲＭＡＴＩＯＮ ＴＥＣＨＮＯＬＯＧＹ Ｖｏ１．３４，Ｎｏ．５ ０ｃｔ．．２０１１ 批量修改ＣＡＳＳ图形中的高程 赵卫常 ，赵军波 （１．河北省煤田地质局物测地质队，河北邢台０５４０００；２．河北省金牛能源葛泉矿，河北邢台０５４０００） 摘 要：阐述了如何利用ＯｐｅｎＤＣＬ和ＡｕｔｏＬＩＳＰ对ＣＡＳＳ进行完善，实现批量修改测绘图形中高程点高程的方法。 关键词：ＣＡＳＳ；ＡｕｔｏＬＩＳＰ；高程点修改 中图分类号：ＴＰ３９１．７２ 文献标识码：Ｂ 文章编号：１６７２—５８６７（２０１１）０５—０２２５—０２ Ｂａｔｃｈ Ｍｏｄｉｆｉｃａｔｉｏｎ ｏｆ ｔｈｅ Ｅｌｅｖａｔｉｏｎ Ｖａｌｕｅ ｉｎ ＣＡＳＳ Ｇｒａｐｈｉｃｓ ＺＨＡ０ Ｗｅｉ—ｃｈａｎｇ’ＺＨＡＯ Ｊｕｎ—ｂｏ 。（１．Ｇｅｏｐｈｙｓｉｃａｌ Ｐｒｏｓｐｅｃｔｉｎｇ ａｎｄ Ｓｕｒｖｅｙｉｎｇ Ｔｅａｍ，Ｈｅｂｅｉ Ｂｕｒｅａｕ ｏｆ Ｃｏａｌ Ｇｅｏｌｏｇｉｃａｌ Ｅｘｐｌｏｒａｔｉｏｎ，Ｘｉｎｇｔａｉ ０５４０００，Ｃｈｉｎａ； ２．Ｇｅｑｕａｎ Ｃｏａｌ Ｍｉｎｅ ａｔ Ｈｅｂｅｉ Ｇｏｌｄ Ｂｕｌｌ Ｅｎｅｒｇｙ Ｃｏ．，Ｌｔｄ，Ｘｉｎｇｔａｉ ０５４０００，Ｃｈｉｎａ） Ａｂｓｔｒａｃｔ：Ｔｈｉｓ ｐａｐｅｒ ｅｘｐｏｕｎｄｓ ｈｏｗ ｔｏ ｕｓｅ ＯｐｅｎＤＣＬ ａｎｄ ＡｕｔｏＬＩＳＰ ｔｏ ｐｅｒｆｅｃｔ ＣＡＳＳ，ａｎｄ ｒｅａｌｉｚｅ ｔｈｅ ｂａｔｃｈ ｍｏｄｉｉｆｃａｔｉｏｎ ｏｆ ｔｈｅ ｖａｌｕｅ ｏｆ ｅｌｅｖａｔｉｏｎ ｐｏｉｎｔ ｉｎ ｓｕｒｖｅｙｉｎｇ ａｎｄ ｍａｐｐｉｎｇ ｇｒａｐｈｉｃｓ． Ｋｅｙ ｗｏｒｄｓ：ＣＡＳＳ；ＡｕｔｏＬＩＳＰ；ｍｏｄｉｉｆｃａｔｉｏｎ ｏｆ ｅｌｅｖａｔｉｏｎ ｐｏｉｎｔ ０ 引 言 南方ＣＡＳＳ是基于ＣＡＤ平台，进行二次开发专门为 测绘成图而设置的专业成图系统。经过十多年的技术积 累，系统针对性强，操作简单、易学，极大地提高了测量人 员的工作效率，深受广大测量工作者的推崇。目前，在全 国范围内，９５％以上的测量单位和个人正在使用南方 ＣＡＳＳ系列软件。 言和ＡｕｔｏＣＡＤ有机结合的产物。ＡｕｔｏＬＩＳＰ可直接调用几 乎全部ＡｕｔｏＣＡＤ命令，且具备一般高级语言的基本结构 （顺序、选择、循环）和功能（计算），可直接增加和修改 ＡｕｔｏＣＡＤ命令，可对当前图形进行直接访问和修改，且 ＡｕｔｏＬＩＳＰ语言好学、易用，所以这次我们就用ＡｕｔｏＬＩＳＰ语 言进行开发。为了给程序一个友好的交互界面，我们用 ＯｐｅｎＤＣＬ来进行界面开发。 我们在用ＣＡＳＳ软件成图的时候，有时会出现已知点 高程用错的情况，并且经过多次编辑后，已经不便再重新 成图，此时需要对错误的高程进行修改，而且这个改正值 是一个定值。ＣＡＳＳ软件对于高程的修改有一个专门的 命令：“Ｃｈａｎｇｅｇｃｄ”。但是这个命令，一次只能修改一个点 的高程，当错误的高程点很多时，修改起来比较麻烦。 ＡｕｔｏＣＡＤ的二次开发功能特别强大，我们可以通过编制 个小程序，对ＣＡＳＳ的功能进一步完善，用它来对错误 一２具体实现 我们对ＣＡＳＳ图形中可能出现的高程值进行分析， ＣＡＳＳ中可能具有高程信息的实体有高程点、高程点打散 后的高程文本和表示点位的点实体。其中高程点是一种 名字为ＧＣ ２００的属性块，高程文本为ＴＥＸＴ实体，点为 ｐｏｉｎｔ实体。一般我们进行高程改正，需要修改的就是这３ 种实体。 高程改正要确定的是，需要进行高程修改的实体类 的高程值进行批量修改，那样就方便快捷多了。 型，需要进行修改的实体范围，以及需要修改的数值。为 此我们利用ＯｐｅｎＤＣＬ（一种与ｌｉｓｐ语言配合建立交互对 话框的语言）建立一个与工作人员交互的界面，如图１高 程修改界面所示。 在交互界面中“改正实体类型”的选项，用以确定需 １解决思路 首先我们对要修改的高程进行分析，找到需要修改 的高程数据实体，将这些实体放在一个选择集内，然后利 用程序对选择集内的每一个实体取出高程值，对高程值 进行修改。 要修改的类型，用ｌｅｉｘｉｎｇ变量值进行表示，并通过如下语 句来得到ｌｅｉｘｉｎｇ的值。 （Ｓｅｔｑ ｌｅｉｘｉｎｇ（Ｏｄｃｌ—ＯｐｔｉｏｎＬｉｓｔ—ＧｅｔＣｕｒＳｅｌ ｇｃｇｚ—ｚｈｕ— ＯｐｔｉｏｎＬｉｓｔ２）） ＡｕｔｏＣＡＤ二次开发的语言很多，ＡｕｔｏＬＩＳＰ语言是嵌 套在ＡｕｔｏＣＡＤ内部，将ＬＩＳＰ（Ｌｉｓｔ Ｐｒｏｃｅｓｓｉｎｇ Ｌａｎｇｕａｇｅ）语 收稿日期：２０１０—０８—１１ 作者简介：赵卫常（１９７２一），男，河北藁城人，高级工程师，硕士，２０１０年毕业于中国矿业大学测量工程专业，主要从事城市测量 工作。 ２２６ 测绘与空间地理信息 ２０１１年 图１高程修改界面 Ｆｉｇ．１ Ｅｌｅｖａｔｉｏｎ ｍｏｄｉｉｆｃａｔｉｏｎ ｉｎｔｅｒｆａｃｅ 确定了要修改的实体，再确定需要修改的范围。对 于一个图形来说，错误的数据有可能是一站数据，也可能 是整个图形。为此我们建立改正范围选项，让工作人员 确定需要修改的范围。如果是选择范围改正，则要求工 作人员在图形中进行实体选择。我们用ｆａｎｗｅｉ变量表示 需要选择的范围。通过以下语句得到ｆａｎｗｅｉ的值。 （Ｓｅｔｑ ｆａｎｗｅｉ（Ｏｄｃｌ—ＯｐｔｉｏｎＬｉｓｔ—ＧｅｔＣｕｒＳｅｌ ｇｃｇｚ—ｚｈｕ— ＯｐｔｉｏｎＬｉｓｔ１）） 当确定好需要修改的实体类型和修改范围后，我们 将需要修改的实体放到一个选择集“ｓｅｌ”中，然后逐个进 行处理。其中修改ｐｏｉｎｔ实体和ｔｅｘｔ实体的代码比较简 单，不再列出，仅列出选择实体和修改高程点的源代码： （ｉｆ（＝ｆａｎｗｅｉ １） （ｐｒｏｇｎ （ｃｏｎｄ（（＝ｌｅｉｘｉｎｇ ０）（ｓｅｔｑ ｓｅｌ（ｓｓｇｅｔ”ｘ” （（０．” ｐｏｉｎｔ”）））））；ｉＳ择图形中所有ｐｏｉｎｔ实体 （（＝ｌｅｉｘｉｎｇ １）（ｓｅｔｑ ｓｅｌ（ｓｓｇｅｔ”Ｘ”，（（０．” ｔｅｘｔ”）））））；Ｓｉ择图形中所有文本实体 （（＝ｌｅｉｘｉｎｇ ２）（ｓｅｔｑ ｓｅｌ（ｓｓｇｅｔ”ｘ”，（（２．” ｇｃ２００”）））））；Ｓｉ择图形中所有高程点实体 ） ） （ｐｒｏｇｎ （ｓｅｔｑ ｓｅｌ（ｓｓｇｅｔ”ｉ”））；手工选择实体 （ｉｆ（ｎｏｔ ｓｅ１） （ｐｒｏｇｎ （ｓｅｔｑ ｓｅｌ（ｓｓｇｅｔ）） ） ） ） ）；范围选择 （（：ｌｅｉｘｉｎｇ ２）；如果类型是高程点 （ＲＥＰＥＡＴ ＳＴＧＳ （ＳＥＴＱ ＳＴＮＡＭＥ（ＳＳＮＡＭＥ ＳＥＬ Ｉ）） （ＳＥＴＱ ＳＴ（ＥＮＴＧＥＴ ＳＴＮＡＭＥ）） （ＳＥＴＱ ＰＯＩＮＴ１（ＡＳＳＯＣ １０ ＳＴ）） （ＳＥＴＱ ｚｌ（ＮＴＨ ３ ＰＯＩＮＴ１）） （ｓｅｔｑ ｐｏｉｎｔｌ（ｓｕｂｓｔ（＋ｚｌ ｇｚｚ）ｚｌ ｐｏｉｎｔ１）） （ＳＥＴＱ ＳＴ（ＳＵＢＳＴ ｐｏｉｎｔｌ（ＡＳＳＯＣ １０ ＳＴ）ＳＴ）） （ＥＮＴＭＯＤ ＳＴ） （ＳＥＴＱ ＳＴ（ＥＮＴＧＥＴ（ｅｎｔｎｅｘｔ ｓｔｎａｍｅ））） （ＳＥＴＱ ｐｏｉｎｔｌ（ＡＳＳＯＣ １ ＳＴ）） （ＳＥＴＱ ｚｌ（ｃｄｒ ｐｏｉｎｔ１）ｚ２（ａｔｏｆ ｚ１）） （ｉｆ（＜ｚ２ ０．１０）；确保修改的文本为数值 （） （ｐｒｏｇｎ （ｓｅｔｑ ｚ２（＋ｚ２ ｇｚｚ）ｚ３（ｒｔｏｓ ｚ２ ２ ２）） （ｓｅｔｑ ｓｔ（ｓｕｂｓｔ（ｃｏｎｓ １ ｚ３）ｐｏｉｎｔｌ ｓｔ）） （ＥＮ ＦＭＯＤ ＳＴ）（ｅｎｔｕｐｄ ｓｔｎａｍｅ） ） ） （ＳＥＴＱ Ｉ（＋Ｉ １）） ）；改正高程结束 ３程序运行 ＡｕｔｏＬＩＳＰ语言中的一切成分都是以函数的形式给 出，在调用ＡｕｔｏＬＩＳＰ函数之前须在ＡｕｔｏＣＡＤ中用“ａｐｐ— Ｌｏａｄ”对程序进行加载，加载后的ＡｕｔｏＬＩＳＰ函数就象Ａｕ— ｔｏＣＡＤ的命令一样方便使用。对于这个程序因其开发时 使用了ＯｐｅｎＤＣＬ，所以需要将对ＯｐｅｎＤＣＬ界面进行驱动 的ＯＰＥＮＤＣＬ１６．ＡＲＸ文件复制到自己安装的ＡｕｔｏＣＡＤ的 支持目录下，然后将自己的两个程序ｇｃｇｚ．ｄｃｌ和ｇｃｇｚ．１ｓｐ 同样复制到ＡｕｔｏＣＡＤ的支持目录下，然后在ＡｕｔｏＣＡＤ中 用命令”ａｐｐｌｏａｄ”来装载ｇｅｇｚ．１ｓｐ程序，再用命令”ｇｅｇｚ”， 调用函数，进行高程修改。效果图如图２所示。 图２运行效果图 Ｆｉｇ．２ Ｒｕｎｎｉ一 ｎｇ ｅｆｆｅｃｔ ４结束语 用计算机制图，要充分发挥计算机的优势作用，通过 用计算机开发语言，编制计算机程序。把枯燥无味的重 复性体力劳动交给计算机去做，可以大大提高工作效率。 参考文献： ［１］梁雪春．ＡｕｔｏＬＩＳＰ实用教程［Ｍ］．北京：人民邮电出版 社，１９９８． ［２］ 南方测绘仪器公司．ＣＡＳＳ ７．０使用说明书［Ｇ］．广州：南 方测绘仪器公司，２００６． ［３］芬克尔斯坦（美）．ＡｕｔｏＣＡＤ２００８宝典［Ｍ］．北京：人民邮 电出版社，２００８． ［４］ 兰度．ＡｕｔｏＣＡＤ可视化对话框开发工具ＯｐｅｎＤＣＬ使用 简介［Ｊ］．城市勘测，２００９（６）：８７—８９，９２． ［责任编辑：王丽欣］