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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

３．１管配件插入:  

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

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

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

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

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

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

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

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

）  

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

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

）  

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

３．２管线删除 

《扩展实体数据在给排水工程ＣＡＤ中的应用(第2页)》