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

1、扩展实体数据在给排水工程CAD中的应用“摘要”本文档介绍了扩展数据在实体中的存储方式，插入和查询扩展实体数据，插入应用扩展实体数据的管道附件，以及删除和修改图形。介绍了应用扩展实体数据库进行排水工程CAD绘制的方法和技术，并提供了通过实际工程验证的一些实用程序小程序。工程设计人员在图形创建过程中直接创建小程序，可以扩展商业软件的功能。1概述在计算机迅速普及的今天，CAD不再是一个新名词。特别是在工程设计领域，手动绘画正逐渐被CAD软件取代。我国使用最广泛、最普及的CAD工具是AutoCAD软件包，它的界面友好、易于使用、功能强大，被许多工程设计人员接受。在给水排水工程领域，由于每个设计单位的设

2、计标准和设计方法不同，因此不能在设计单位中广泛接受每个软件公司开发的CAD软件。特别是软件公司的软件开发人员是我国比较精通计算机应用的非专业人士或实际工作经验较少的专业技术人员，由于专业知识和工作经验的限制而开发的专业软件存在这种不足或这种缺陷，限制了专业软件的实用性。因此，市场上有很多商业专用软件，但没有多少软件能有效地满足工程设计需要，甚至很多部门购买的软件也不能正常工作。(David assell，Northern Exposure，internal)经过多年的CAD软件开发经验，作者认为工程设计人员掌握了特定的CAD技术处理技术，可以将AutoCAD软件或其他商业软件直接应用于工程设计

3、，同时还可以创建实用的小程序。除了提高工程设计的效率外，还可以在本单元内应用累计月份创建的小程序。给水排水工程领域最常处理的图形是管线。管线是水源与自来水、自来水、用户、结构之间的流向图，一条管线的波动必然引起其他设施的变化。同样，每个结构使用平面视图、垂直视图和剖面3视图表示图形，如果更改了一个视图，则其他视图也会相应地更改。以前，所有单个图形都单独修改，不仅效率低下，而且还会产生错误。(David aser，Northern Exposure(TV)，(Northern Exposure(TV)，)本人认为，2插入和查询扩展实体数据2.1扩展数据在实体中的存储方式假设起始编号为8，坐标为(

4、5.05.00.0)，终止编号为18，坐标为(10.010.00.0)，段编号为1，此管线的图形数据库为：(-1) (0 行)(5 .“519”)(100。“acdb实体”)(67.0) (8 .其中扩展数据为：(-3(“PIPEI”(1002 .“”)(1000 . 8，18) (1002 . )，8，18 表示管线的起始编号为8，终止编号为18。扩展实体数据内容是实体数据库中以-3码开头的表条目。一个实体可以包含扩展实体数据的大小为16383字节。描述非图形资料的延伸图元资料库相关群组码为：2.2插入扩展实体数据要使用扩展图元数据，必须使用AutoLISP程序实现对图元数据库的访问和修改。

5、首先，手动定义扩展实体数据库信息表格，然后将其添加到指定的实体。这里只是插入到扩展实体数据库中的AutoLISP程序的主要内容，感兴趣的读者可以直接添加扩展此程序功能所需的信息表。将扩展图元数据表添加到最后绘制的图元的AutoLISP程序为：(defunexadd(name typ/sselnel)；Name:扩展实体数据注册名称，typ:扩展实体数据说明。(set qss(cons-3(list(consname(cons 1002)“”)(cons(cons 1000 typ)(list(;list)；扩展实体数据库定义el(entget(entlast)提取最近绘制的实体的图形数据库ne

6、l(consssel)；将扩展实体数据信息添加到实体数据库(regappname)(entmodnel)修改上述函数时，适用于将扩展实体数据信息：添加到选定实体(defunexaddl(命名/s selnel)；在Ed:中选择的实体只需将上述过程中的el(entget(entlast)更改为el(entgeted)即可。)，以获取详细信息上述两个小程序使您可以将扩展实体数据添加到上次绘制的实体或所选图形实体。与通过属性设置非图形信息相比，此数据的特点是快速、灵活和较小的数据卷。可以图形索引。2.3扩展实体数据的查询在图形实体中插入扩展实体数据后，还将查询、修改和应用插入的数据信息。此处仅提供扩

7、展图元数据祖怀和数据提取的AutoLISP程序。查找扩展数据注册名称的程序：(defun exname(ed/cxl)(setqc XL(assoc-3(entget ed (“*”)应用此程序可以查找所有选定实体的扩展实体数据注册名称。管段编号、节点编号等。提取任意选定实体的扩展实体数据的程序：(defunexsub(ed name/sstypnamecxlcalctcbl)(set qtyp(con S1 不是选定的实体)；如果选定图元与指定的扩展数据名称不匹配，则显示错误。name(strcase name)cxl(assoc-3(entget ed (“*”)(if cxl(progn

8、(ses)(if(=name(carcal)(progn(setqct0cal(cdrcal)(while(setqcbl(nthctcal)(if(=(car CBL)1000)(setqtypcblct 100010000)(set qct(ct1)(setq(1)(cdrtyp)通过应用上述两个程序，可以提取所绘制实体的扩展数据信息。我们知道AutoLISP是AutoCAD中内置的功能扩展。像使用AutoCAD函数一样容易学习。使用AutoCAD进行工程设计的技术人员应学习如何使用AutoLISP编写简单的程序，以便轻松绘制工程图形。在上述程序中，还可以查看完成AutoLISP创建的一个

9、功能的程序。1-2文章，10几句以上就可以完成想要的任务。3扩展实体数据在给排水CAD中的应用3.1插入管道管件：例如，管道直径为DN100的预绘制管线在插入的管道配件中也具有DN100的特性。假定管配件为阀，则为已建立的图块。在插入过程中，可以直接插入阀门信息，而无需考虑管道直径是多少，从而提高绘图效率。应用扩展实体数据库的程序为：(defunc:inval(/sspededanametypp 1 p2ang)set qss(entsel)p(car(cdrss)ed(carss)EDA(entgeted)Name(exnameed):提取扩展实体数据的名称typ(exsubed name)

10、；萃取延伸图元资料资讯，即管路直径资讯P1(cdr(assoc 10 EDA)；管线的起始坐标P2(cdr(assoc11eda):管线的端点坐标ang(anglep1p 2)；管线角度)，以获取详细信息(mand- break p f (polar pang bl)(polarp(piang)bl)；打断吴宣仪距离insert阀p(* 2bl)ang；插入阀(exaddnametyp)；向插入的阀添加延伸实体数据，即管道直径。)，以获取详细信息与加载后的AutoCAD函数一样，此小程序在命令状态下运行inval时，每次提示选择图元时，如果在插入阀门的位置选择管线，管线将自动断开，插入阀门，插

11、入的阀门具有DN100中的特殊动物。3.2删除管线对于具有上述插入阀的配管，插入阀会导致两条线、三个实体(一个双线阀)，如果由于各种原因需要删除，则必须根据AutoCAD指令分别删除这三个实体。对于图面，图面很复杂，经常发生故障或漏水问题，会给工程设计人员造成很多困难。扩展实体数据库的应用程序可以为绘制图形提供很多方便。(defunc:deled()(set qss(ent sel)ed(carss)s(ssget x )n 0 name(exname ed)typ(exsubed name)(while(set qes(ssnamens)(set qname 1(exname es)(if(

12、=namename1)(progn(setqtyp1)(exsubesname)(if(=typ 1 typ)(ent deles)(setqn(n1)这个小程序在加载后运行deled并按照提示选择要删除的实体后，可以快速准确地删除与该实体具有相同扩展数据的所有实体。3.3修改扩展实体数据供水管道图由管线、节点、泵、水塔、阀门等组成，所有设施都有机连接，而不是徐璐独立。对某些设施的修改必然会导致与它相关的其他设施和变动。例如，对于供水管网水力计算结果图，修改节点编号时，所有连接管线的起始和结束节点编号更改、管线的流动方向扩展图元数据更改以及节点尺寸信息更改都会受到影响。通常，如果一个节点编号发

13、生更改，几个或几十个图形实体也会发生更改。使用扩展实体数据绘图，可以通过程序轻松地进行这些更改。此处仅提供修改一个扩展实体数据的小程序。读者可以扩展此applet，以便浏览整个图形数据库，以便单独查找和修改要修改的实体。(defunchent(ed styp/SBC xlss)；(set qsb(entget eds ( * )cxl(assoc-3sb)ss(cons(cons 1002 )(cons(cons 1000 typ)(列表(cons 1002 )Ss(列表)(cons(exname eds)ss)(mod(subst(cons-3ss)(cons-0cxl) sb) (entupdeds)如上所述，应用扩展实体数据可以弥补仅使用AutoCAD绘图函数绘制的不足，从而更快、更准确地绘制图形。4结论这只是作者在供水网络优化设计计算和不稳定状态液压仿真软