扩展实体数据在给排水工程ＣＡＤ中的应用思维导图

１概述

在计算机迅速普及的今天,ＣＡＤ已不再是新鲜名词。尤其是在工程设计领域,手工画图已逐渐被ＣＡＤ软件所代替。在我国应用最广泛、最普及的ＣＡＤ工具是ＡｕｔｏＣＡＤ软件包,该软件包以其界面友好、使用方便、功能强大的特点,被广大工程设计人员所接受。在给水排水工程领域,由于各设计单位的设计标准和设计方法的不同,造成各软件公司所开发的ＣＡＤ软件不能被设计单位所广泛接受。尤其是软件公司的软件开发人员,在我国大多是计算机应用比较熟练的非专业人员或实际工作经验很少的专业技术人员,由于他们专业知识和工作经历的限制,造成所开发的专业软件存在这样或那样的不足,从而限制了专业软件的实用性。因此,尽管市场上的商业专用软件很多,但能够切实满足工程设计需要的软件并不多,甚至许多单位购置的软件根本就不能发挥其应有的作用。通过多年的ＣＡＤ软件开发经验,作者认为,工程设计人员掌握一定的ＣＡＤ技术处理技巧,可以在直接应用ＡｕｔｏＣＡＤ软件或其它商业软件进行工程设计的同时,自行编写一些实用的小程序,不但可以提高工程设计效率,而且还可以通过日积月累,使所编写的小程序在本单位内应用。

在给水排水工程领域,最常处理的图形就是管线。管线是连接水源到水厂、水厂到用户、各构筑物间的有向图,一根管线的变动,必然引起其它设施的改变。同样,各构筑物采用平、立、剖三视图进行工程图的表达,一个视图的改变,也引起其它视图相应的改变。以前我们都是通过单个图形分别修改的方法来实现,不但效率低,而且容易产生错误。本人通过在ＷＤＯＣ软件开发中的应用,认为扩展实体数据库的应用,可以有效地解决这些问题,并且能够提高绘图效率。

２扩展实体数据的插入与查询

２．１扩展数据在实体中的存贮方式

假设一条管线,起点号是８,坐标是（5.05.00.0）,终点号是18,坐标是（10.010.00.0）,管段号是１,这条管线的图形数据库为:

（（-１＜Ｅｎｔｉｔｙｎａｍｅ：１ｆ９２ｆ４８＞）（０″ＬＩＮＥ″）（５．″５１９″）（１００．″ＡｃＤｂＥｎｔｉｔｙ″）（６７．０）（８．″０″）（１００．″ＡｃＤｂＬｉｎｅ″）（１０５．０５．００．０）（１１１０．０１０．００．０）（２１００．００．０１．０）（-３（″ＰＩＰＥ１″（１００２．″｛″）（１０００．″８，１８″）（１００２．″｝″）））

其中扩展数据为:（-３（″ＰＩＰＥＩ″（１００２．″｛″）（１０００．″８，１８″）（１００２．″｝″））），″ＰＩＰＥＩ″表示以ＰＩＰＥ为前导的管线,管线号为１;″８,１８″表示管线的起点号为８,终点号为１８。

扩展实体数据内容在实体数据库中是以-３码为前导的一个表项。在一个实体中可以加入扩展实体数据的大小为１６３８３字节。用于描述非图形数据的扩展实体数据库有关组码为:

组码 意义

１０００

１００１

１００２

１００３

１００４

１００５

１０１１

１０１２

１０１３

１０４０

１０４１

１０４２

１０７０

１０７１ ＡＳＣＩＩ码字串,长度小于２５５个字符位

已登记的应用名,长度小于３１个字符位

控制字串

层名

长字节,长度小于１２７字符

实体索引名

点位

３Ｄ地坪空间位置

３Ｄ地坪空间位移

３Ｄ地坪空间方向

浮点数

距离值

比例系数;

１６位整数

３２位整数

２．２扩展实体数据的插入

使用扩展实体数据,必须用ＡｕｔｏＬＩＳＰ程序实施对实体数据库的访问和修改。首先要自行定义扩展实体数据库信息表,然后再加入到指定的实体中。此处只是给出扩展实体数据库插入的ＡｕｔｏＬＩＳＰ程序主要内容,有兴趣的读者可以自行加入所需要的信息表,以把这一程序的功能进行扩展。

对最后画的一个实体加入扩展的实体数据表的ＡｕｔｏＬＩＳＰ程序为:

（ｄｅｆｕｎｅｘａｄｄ（ｎａｍｅｔｙｐ／ｓｓｅｌｎｅｌ）;ｎａｍｅ：扩展实体数据登记名,ｔｙｐ：扩展实体数据内容。

（ｓｅｔｑｓｓ（ｃｏｎｓ-３（ｌｉｓｔ（ｃｏｎｓｎａｍｅ（ｃｏｎｓ（ｃｏｎｓ１００２″｛″）（ｃｏｎｓ（ｃｏｎｓ１０００ｔｙｐ）（ｌｉｓｔ（ｃｏｎｓ１００２″｝″）））））））；定义扩展实体数据库ｅｌ（ｅｎｔｇｅｔ（ｅｎｔｌａｓｔ））;提取最近画的一个实体的图形数据库

ｎｅｌ（ｃｏｎｓｓｓｅｌ）;把扩展实体数据信息加入到实体数据库中）（ｒｅｇａｐｐｎａｍｅ）（ｅｎｔｍｏｄｎｅｌ））

如果对上述函数修改一下,可适用于对任意所选择实体加入扩展实体数据信息:

（ｄｅｆｕｎｅｘａｄｄｌ（ｎａｍｅｔｙｐｅｄ／ｓｓｅｌｎｅｌ）；ｅｄ:所选择实体,把上述程序的ｅｌ（ｅｎｔｇｅｔ（ｅｎｔｌａｓｔ））改为ｅｌ（ｅｎｔｇｅｔｅｄ）即可。）

利用上述二个小程序,就可以实现对所画的最后一个实体或任一所选择的图形实体加入扩展实体数据,其特点是比用属性建立非图形信息的速度更快、更灵活、更小的数据体积,而且可以进行图形索引。

２．３扩展实体数据的查询

在对图形实体插入扩展实体数据后,还要对所插入数据信息进行查询、修改和应用。此处只给出扩展实体数据查询和数据提取的ＡｕｔｏＬＩＳＰ程序。

查找扩展数据登记名的程序:（ｄｅｆｕｎｅｘｎａｍｅ（ｅｄ／ｃｘｌ）（ｓｅｔｑｃｘｌ（ｃｄｒ（ａｓｓｏｃ-３（ｅｎｔｇｅｔｅｄ`（″*″）））））（ｉｆｃｘｌ（ｃａｒ（ｎｔｈ０ｃｘｌ））））

本程序应用,就可以对任何一个所选择的实体,找出它的扩展实体数据登记名。如管段号、节点号等。

对任意选择实体,提取扩展实体数据的程序:

（ｄｅｆｕｎｅｘｓｕｂ（ｅｄｎａｍｅ／ｓｓｔｙｐｎａｍｅｃｘｌｃｎｃａｌｃｔｃｂｌ）（ｓｅｔｑｔｙｐ（ｃｏｎｓ１＂不是所选择实体＂）;如果选择实体与所指定的扩展数据名不一致,则提示错误。

（ｉｆ（＝ｎａｍｅ（ｃａｒｃａｌ））

（ｐｒｏｇｎ（ｓｅｔｑｃｔ０ｃａｌ（ｃｄｒｃａｌ））

（ｗｈｉｌｅ（ｓｅｔｑｃｂｌ（ｎｔｈｃｔｃａｌ））

（ｉｆ（＝（ｃａｒｃｂｌ）１０００）（ｓｅｔｑｔｙｐｃｂｌｃｔ１００００ｃｎ１００００））

（ｓｅｔｑｃｔ（+ｃｔ１）））））（ｓｅｔｑｃｎ（+ｃｎ１）））））（ｃｄｒｔｙｐ））

上述两个程序的应用,就可以实现对所绘实体的扩展数据信息进行提取。我们知道,ＡｕｔｏＬＩＳＰ是嵌入ＡｕｔｏＣＡＤ中的功能扩展程序,如同使用ＡｕｔｏＣＡＤ函数一样,易学易用。应用ＡｕｔｏＣＡＤ进行工程设计的技术人员,应该学会用ＡｕｔｏＬＩＳＰ编写简单的程序,以方便工程图形的绘制。从上述的程序中也可以看出ＡｕｔｏＬＩＳＰ编写的完成某一功能的程序,小到一至二句,多到十几句,即可实现所要完成的工作。

３扩展实体数据在给排水ＣＡＤ中的应用

３．１管配件插入:

例如一条已经画好的管线,管径为ＤＮ１００,使插入的管配件也具有ＤＮ１００的特性。假设管配件是阀门,为已经做好的图块。我们可以在插入的过程中不需要关心管径是多少,直接插入阀门信息,从而提高绘图效率。应用扩展实体数据库的程序为:

（ｄｅｆｕｎｃ：ｉｎｖａｌ（／ｓｓｐｅｄｅｄａｎａｍｅｔｙｐｐ１ｐ２ａｎｇ）

ｓｅｔｑｓｓ（ｅｎｔｓｅｌ）p（ｃａｒ（ｃｄｒｓｓ））ed（ｃａｒｓｓ）eda（ｅｎｔｇｅｔｅｄ）

ｎａｍｅ（ｅｘｎａｍｅｅｄ）;提取扩展实体数据的名称

ｔｙｐ（ｅｘｓｕｂｅｄｎａｍｅ）;提取扩展实体数据信息,即管径信息

ｐ１（ｃｄｒ（ａｓｓｏｃ１０ｅｄａ）;管线的起点坐标

ｐ２（ｃｄｒ（ａｓｓｏｃ１１ｅｄａ）;管线的终点坐标

ａｎｇ（ａｎｇｌｅｐ１ｐ２）;管线角度

）

（ｃｏｍｍａｎｄ″ｂｒｅａｋ″ｐ″Ｆ″（ｐｏｌａｒｐａｎｇＢＬ）（ｐｏｌａｒｐ（+ｐｉａｎｇ）ＢＬ）;断开线的距离

″ｉｎｓｅｒｔ″″阀门″ｐ（*２ＢＬ）″″ａｎｇ）;插入阀门（ｅｘａｄｄｎａｍｅｔｙｐ）;对插入的阀门加入扩展实体数据,即管径。

）

这一小程序在加载以后,如同ＡｕｔｏＣＡＤ函数一样,只要在命令状态下运行ｉｎｖａｌ,系统提示选择实体时,在插入阀门的位置上点取管线,就会自动把管线先断开,再插入阀门,并且所插入的阀门具有ＤＮ１００的特牲。

３．２管线删除

对于上面所插入阀门的管线,由于阀门的插入而变为二条线,三个实体（二条线加一个阀门）,如果由于各种原因需要删除,按照ＡｕｔｏＣＡＤ命令,则需要分别对这三个实体加以删除。对于工程图,由于图形复杂,经常会产生误操作或漏操作的问题,给工程设计人员带来许多困难。而扩展实体数据库的应用,可以为工程图的绘制带来许多方便。

（ｄｅｆｕｎｃ：ｄｅｌｅｄ（）

（setqss（entsel）ed（carss）s（ssget"x"）n0name（exnameed）typ（exsubedname））

（ｗｈｉｌｅ（ｓｅｔｑｅｓ（ｓｓｎａｍｅｎｓ））（ｓｅｔｑｎａｍｅ１（ｅｘｎａｍｅｅｓ））

（ｅｘｓｕｂｅｓｎａｍｅ））（ｉｆ（＝ｔｙｐ１ｔｙｐ）（ｅｎｔｄｅｌｅｓ））））

（ｓｅｔｑｎ（+ｎ１））））

这一小程序在加载后,运行ｄｅｌｅｄ,按照提示选择要删除的实体,即可删除与这一实体具有相同扩展数据的所有实体,快速而准确。

３．３扩展实体数据修改

给水管网图是由管线、节点、水泵、水塔、阀门等组成,所有设施之间并不是相互独立,而是有机的联系在一起。某一设施的修改,必然带动其它与之有关联的设施和变动。例如,对于给水管网水力计算成果图,当节点号修改时,要影响与之相连的所有管线的起止节点号的变动、管线上水流方向扩展实体数据的变动以及节点标注信息的变动。一般情况下,一个节点号的变化,要引起几个甚至几十个图形实体的变化。采用扩展实体数据绘图,这一变化可以通过程序方便地实现。此处只给出修改一个扩展实体数据的小程序,读者可以扩充这一小程序,以通过遍历整个图形数据库的方式,分别查找要修改的实体,并加以修改。（ｄｅｆｕｎｃｈｅｎｔ（ｅｄｓｔｙｐ／ｓｂｃｘｌｓｓ）；

（ｓｅｔｑｓｂ（ｅｎｔｇｅｔｅｄｓ′（″*″））ｃｘｌ（ｃｄｒ（ａｓｓｏｃ-３ｓｂ））

ss（cons（ｃｏｎｓ１００２″｛″）（cons（ｃｏｎｓ１０００ｔｙｐ）（list（cons1002"｝"））））

ss（ｌｉｓｔ（cons（ｅｘｎａｍｅｅｄｓ）ss）））（netmod（subst（cons-3ss））