扩展实体数据在给排水工程ＣＡＤ中的应用(2)
2014-01-21 01:07
导读：３２位整数 ２．２扩展实体数据的插入 使用扩展实体数据,必须用ＡｕｔｏＬＩＳＰ程序实施对实体数据库的访问和修改。首先要自行定义扩展实体数据库
３２位整数
２．２扩展实体数据的插入
使用扩展实体数据,必须用ＡｕｔｏＬＩＳＰ程序实施对实体数据库的访问和修改。首先要自行定义扩展实体数据库信息表,然后再加入到指定的实体中。此处只是给出扩展实体数据库插入的ＡｕｔｏＬＩＳＰ程序主要内容,有兴趣的读者可以自行加入所需要的信息表,以把这一程序的功能进行扩展。
对最后画的一个实体加入扩展的实体数据表的ＡｕｔｏＬＩＳＰ程序为:
（ｄｅｆｕｎｅｘａｄｄ（ｎａｍｅｔｙｐ／ｓｓｅｌｎｅｌ）;ｎａｍｅ：扩展实体数据登记名,ｔｙｐ：扩展实体数据内容。
（ｓｅｔｑｓｓ（ｃｏｎｓ-３（ｌｉｓｔ（ｃｏｎｓｎａｍｅ（ｃｏｎｓ（ｃｏｎｓ１００２″｛″）（ｃｏｎｓ（ｃｏｎｓ１０００ｔｙｐ）（ｌｉｓｔ（ｃｏｎｓ１００２″｝″）））））））；定义扩展实体数据库ｅｌ（ｅｎｔｇｅｔ（ｅｎｔｌａｓｔ））;提取最近画的一个实体的图形数据库
ｎｅｌ（ｃｏｎｓｓｓｅｌ）;把扩展实体数据信息加入到实体数据库中）（ｒｅｇａｐｐｎａｍｅ）（ｅｎｔｍｏｄｎｅｌ））
如果对上述函数修改一下,可适用于对任意所选择实体加入扩展实体数据信息:
（ｄｅｆｕｎｅｘａｄｄｌ（ｎａｍｅｔｙｐｅｄ／ｓｓｅｌｎｅｌ）；ｅｄ:所选择实体,把上述程序的ｅｌ（ｅｎｔｇｅｔ（ｅｎｔｌａｓｔ））改为ｅｌ（ｅｎｔｇｅｔｅｄ）即可。）
利用上述二个小程序,就可以实现对所画的最后一个实体或任一所选择的图形实体加入扩展实体数据,其特点是比用属性建立非图形信息的速度更快、更灵活、更小的数据体积,而且可以进行图形索引。
２．３扩展实体数据的查询
在对图形实体插入扩展实体数据后,还要对所插入数据信息进行查询、修改和应用。此处只给出扩展实体数据查询和数据提取的ＡｕｔｏＬＩＳＰ程序。
中国大学排名
查找扩展数据登记名的程序:（ｄｅｆｕｎｅｘｎａｍｅ（ｅｄ／ｃｘｌ）（ｓｅｔｑｃｘｌ（ｃｄｒ（ａｓｓｏｃ-３（ｅｎｔｇｅｔｅｄ`（″*″）））））（ｉｆｃｘｌ（ｃａｒ（ｎｔｈ０ｃｘｌ））））
本程序应用,就可以对任何一个所选择的实体,找出它的扩展实体数据登记名。如管段号、节点号等。
对任意选择实体,提取扩展实体数据的程序:
（ｄｅｆｕｎｅｘｓｕｂ（ｅｄｎａｍｅ／ｓｓｔｙｐｎａｍｅｃｘｌｃｎｃａｌｃｔｃｂｌ）（ｓｅｔｑｔｙｐ（ｃｏｎｓ１＂不是所选择实体＂）;如果选择实体与所指定的扩展数据名不一致,则提示错误。
ｎａｍｅ（ｓｔｒｃａｓｅｎａｍｅ）ｃｘｌ（ｃｄｒ（ａｓｓｏｃ-３（ｅｎｔｇｅｔｅｄ`（″*″）））））（ｉｆｃｘｌ（ｐｒｏｇｎ（ｓｅｔｑｃｎ０）（ｗｈｉｌｅ（ｓｅｔｑｃａｌ（ｎｔｈｃｎｃｘｌ））
（ｉｆ（＝ｎａｍｅ（ｃａｒｃａｌ））
（ｐｒｏｇｎ（ｓｅｔｑｃｔ０ｃａｌ（ｃｄｒｃａｌ））
（ｗｈｉｌｅ（ｓｅｔｑｃｂｌ（ｎｔｈｃｔｃａｌ））
（ｉｆ（＝（ｃａｒｃｂｌ）１０００）（ｓｅｔｑｔｙｐｃｂｌｃｔ１００００ｃｎ１００００））
（ｓｅｔｑｃｔ（ ｃｔ１）））））（ｓｅｔｑｃｎ（ ｃｎ１）））））（ｃｄｒｔｙｐ））
上述两个程序的应用,就可以实现对所绘实体的扩展数据信息进行提取。
我们知道,ＡｕｔｏＬＩＳＰ是嵌入ＡｕｔｏＣＡＤ中的功能扩展程序,如同使用ＡｕｔｏＣＡＤ函数一样,易学易用。应用ＡｕｔｏＣＡＤ进行工程设计的技术人员,应该学会用ＡｕｔｏＬＩＳＰ编写简单的程序,以方便工程图形的绘制。从上述的程序中也可以看出ＡｕｔｏＬＩＳＰ编写的完成某一功能的程序,小到一至二句,多到十几句,即可实现所要完成的工作。
大学排名 ３扩展实体数据在给排水ＣＡＤ中的应用
３．１管配件插入:
例如一条已经画好的管线,管径为ＤＮ１００,使插入的管配件也具有ＤＮ１００的特性。假设管配件是阀门,为已经做好的图块。我们可以在插入的过程中不需要关心管径是多少,直接插入阀门信息,从而提高绘图效率。应用扩展实体数据库的程序为:
