ｅｔ（ｅｎｔｌａｓｔ））改为ｅｌ（ｅｎｔｇｅｔｅｄ）即可。）

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

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

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

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

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

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

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

ｎａｍｅ（ｓｔｒｃａｓｅｎａｍｅ）ｃｘｌ（ｃｄｒ（ａｓｓｏｃ-３（ｅｎｔｇｅｔｅｄ`（″*″）））））（ｉｆｃｘｌ（ｐｒｏｇｎ（ｓｅｔｑｃｎ０）（ｗｈｉｌｅ（ｓｅｔｑｃａｌ（ｎｔｈｃｎｃｘｌ））

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

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

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

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

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

上述两个程序的应用,就可以实现对所绘实体的扩展数据信息进行提取。

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

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

３．１管配件插入:

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

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

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

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

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

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

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

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

）

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

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

）

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

３．２管线删除

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

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

（setqss（entsel）ed（carss）s（ssgetx）n0name（exnameed）typ（exsubedname））

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

（ｉｆ（＝ｎａｍｅｎａｍｅ１）（ｐｒｏｇｎ（ｓｅｔｑｔｙｐ１

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

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

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

３．３扩展实体数据修改

给水管网图是由管线、节点、水泵、水塔、阀门等组成,所有设施之间并不是相互独立,而是有机的联系在一起。某一设施的修改,必然带动其它与之有关联的设施和变动。例如,对于给水管网水力计算成果图,当节点号修改时,要影响

上一页  [1] [2] [3]  下一页