扩展实体数据在给排水工程ＣＡＤ中的应用(3)
2014-01-21 01:07
导读：（ｄｅｆｕｎｃ：ｉｎｖａｌ（／ｓｓｐｅｄｅｄａｎａｍｅｔｙｐｐ１ｐ２ａｎｇ） ｓｅｔｑｓｓ（ｅｎｔｓｅｌ）p（ｃａｒ（ｃｄｒｓｓ））ed（ｃ
（ｄｅｆｕｎｃ：ｉｎｖａｌ（／ｓｓｐｅｄｅｄａｎａｍｅｔｙｐｐ１ｐ２ａｎｇ）
ｓｅｔｑｓｓ（ｅｎｔｓｅｌ）p（ｃａｒ（ｃｄｒｓｓ））ed（ｃａｒｓｓ）eda（ｅｎｔｇｅｔｅｄ）
ｎａｍｅ（ｅｘｎａｍｅｅｄ）;提取扩展实体数据的名称
ｔｙｐ（ｅｘｓｕｂｅｄｎａｍｅ）;提取扩展实体数据信息,即管径信息
ｐ１（ｃｄｒ（ａｓｓｏｃ１０ｅｄａ）;管线的起点坐标
ｐ２（ｃｄｒ（ａｓｓｏｃ１１ｅｄａ）;管线的终点坐标
ａｎｇ（ａｎｇｌｅｐ１ｐ２）;管线角度
）
（ｃｏｍｍａｎｄ″ｂｒｅａｋ″ｐ″Ｆ″（ｐｏｌａｒｐａｎｇＢＬ）（ｐｏｌａｒｐ（ ｐｉａｎｇ）ＢＬ）;断开线的距离
″ｉｎｓｅｒｔ″″阀门″ｐ（*２ＢＬ）″″ａｎｇ）;插入阀门（ｅｘａｄｄｎａｍｅｔｙｐ）;对插入的阀门加入扩展实体数据,即管径。
）
这一小程序在加载以后,如同ＡｕｔｏＣＡＤ函数一样,只要在命令状态下运行ｉｎｖａｌ,系统提示选择实体时,在插入阀门的位置上点取管线,就会自动把管线先断开,再插入阀门,并且所插入的阀门具有ＤＮ１００的特牲。
３．２管线删除
对于上面所插入阀门的管线,由于阀门的插入而变为二条线,三个实体（二条线加一个阀门）,如果由于各种原因需要删除,按照ＡｕｔｏＣＡＤ命令,则需要分别对这三个实体加以删除。对于工程图,由于图形复杂,经常会产生误操作或漏操作的问题,给工程设计人员带来许多困难。而扩展实体数据库的应用,可以为工程图的绘制带来许多方便。
（ｄｅｆｕｎｃ：ｄｅｌｅｄ（）
（setqss（entsel）ed（carss）s（ssget"x"）n0name（exnameed）typ（exsubedname））
（ｗｈｉｌｅ（ｓｅｔｑｅｓ（ｓｓｎａｍｅｎｓ））（ｓｅｔｑｎａｍｅ１（ｅｘｎａｍｅｅｓ））
（转载自http://zw.NSEAC.com科教作文网）
（ｉｆ（＝ｎａｍｅｎａｍｅ１）（ｐｒｏｇｎ（ｓｅｔｑｔｙｐ１
（ｅｘｓｕｂｅｓｎａｍｅ））（ｉｆ（＝ｔｙｐ１ｔｙｐ）（ｅｎｔｄｅｌｅｓ））））
（ｓｅｔｑｎ（ ｎ１））））
这一小程序在加载后,运行ｄｅｌｅｄ,按照提示选择要删除的实体,即可删除与这一实体具有相同扩展数据的所有实体,快速而准确。
３．３扩展实体数据修改
给水管网图是由管线、节点、水泵、水塔、阀门等组成,所有设施之间并不是相互独立,而是有机的联系在一起。某一设施的修改,必然带动其它与之有关联的设施和变动。例如,对于给水管网水力计算成果图,当节点号修改时,要影响与之相连的所有管线的起止节点号的变动、管线上水流方向扩展实体数据的变动以及节点标注信息的变动。一般情况下,一个节点号的变化,要引起几个甚至几十个图形实体的变化。采用扩展实体数据绘图,这一变化可以通过程序方便地实现。此处只给出修改一个扩展实体数据的小程序,读者可以扩充这一小程序,以通过遍历整个图形数据库的方式,分别查找要修改的实体,并加以修改。
（ｄｅｆｕｎｃｈｅｎｔ（ｅｄｓｔｙｐ／ｓｂｃｘｌｓｓ）；
（ｓｅｔｑｓｂ（ｅｎｔｇｅｔｅｄｓ′（″*″））ｃｘｌ（ｃｄｒ（ａｓｓｏｃ-３ｓｂ））
ss（cons（ｃｏｎｓ１００２″｛″）（cons（ｃｏｎｓ１０００ｔｙｐ）（list（cons1002"｝"））））
ss（ｌｉｓｔ（cons（ｅｘｎａｍｅｅｄｓ）ss）））（netmod（subst（cons-3ss））
（ｃｏｎｓ-０ｃｘｌ）ｓｂ））（ｅｎｔｕｐｄｅｄｓ））
从上述介绍可以看出,应用扩展实体数据,可以弥补仅以ＡｕｔｏＣＡＤ绘图函数绘图的不足,从而使所绘的工程图有速度更快、更准确的特点。
４结论
以上仅是作者在给水管网优化设计计算与非稳定状态水力模拟软件-ＷＤＯＣ开发过程中采用的几个小技巧,在应用中发现有极大的实用价值,不仅提高了绘图的速度,而且还可使互不相关的实体之间建立相互联系。在绘图过程中,可以实现对一个实体的绘制及修改,自动实现与之相关的其它实体的绘制及修改。工程设计人员如果是有心人,可以在完成实际工程的过程中,对一些图形复杂、关联性强的实体,自行通过编写几句或十几句ＡｕｔｏＬＩＳＰ程序来加以实现,日积月累,把编写的小程序集成起来,不但可以解决商业软件与工程实用化相脱节的矛盾,而且还可以提高制图效率。
