引 言 m1^dT_7Z
AutoCAD作为国际上最流行的CAD绘图软件在国内的应用日益广泛。自11.0版本以后，Autodesk公司在AutoCAD引入了扩展实体数据的概念，为广大用户提供了更强的二次开发功能。借助扩展实体数据，用户可以很方便地在图形实体中按不同的需求分门别类地存取不同的非图形数据，如设计人员关心产品的材料、重量，而财务人员则关心产品的成本、价格等。众所周知，利用"块"属性可以存取非图形数据，而且这也是在AutoCAD 11.0版本以前用户能够在图形中存取非图形数据的唯一方法，但现在通过扩展实体数据，非图形数据的存取将变得更加灵活、方便。事实上 ，AutoCAD 12.0 ASE正是利用图形中位于"ACADASE"图层的POLYLINE扩展实体数据来保存图形实体与外部数据库之间的连接关系。本文拟对AutoCAD 12.0版扩展实体数据的结构作详细的分析，并结合实际应用介绍有关的程序代码，与各位同仁切磋。 I
ybl;u
1、扩展实体数据的结构 g\
8#:@at
AutoCAD扩展实体数据是在常规的图形数据基础上增加的按一系列分类代码组合而成的数据块，它与常规实体数据一起构成内容更加广泛的实体数据。由于不同的应用场合要求存取不同的数据，因此扩展实体数据按应用类型分组，形式如下： *6 I =oE
(-3 ("AppName" (代码.数据) (…) ) ("AppName"(代码.数据) (…)) (…))) ?F?\uC2 )'
其中，-3表示扩展数据开始; yRgDhA
AppName是最大长度为31字节的字符串，为已经登记的应用类型名; E[SV*1)
代码及对应的数据类型见下表： +Z 9 3`
举例如下： 0C7thl{Dms
((-1.) (0."TEXT") (5."2F") (67.0) (8."0") (10 172.586 246.388 0.0) (40.32.729) (1."5") (50.0.0) (41.1.0) (51.0.0) (7."STANDARD") (71.0) (72.0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (73.0) (-3 ("DESIGN" (1000."16Mn") (1040.32.45)) ("PRICE" (1040.123.45) (1040.321.54)))) *b$z6.
这是一个"TEXT"类型的图形实体，它包含“DESIGN”和“PRICE”两个应用类型的扩展数据。其中，(-1.)…(73.0)是常规实体数据，(-3 (…))就是扩展实体数据，而扩展数据中("DESIGN" (1000."16Mn") (1040.32.45))是属于"DESIGN"应用类型的数据块，("PRICE"(1040.123.45) (1040.321.54))则是属于"PRICE"应用类型的数据块。更具体地说，属于"DESIGN"应用类型的数据有两个，分别是字符串"16Mn"和实数"32.45";属于"PRICE"应用类型的数据是两个实数，分别是"123.45"和"321.54"。 O0K @M
由此可见，应用类型名是存取扩展实体数据的主要依据。在使用前应先行登记。应用类型名可由用户任意定义，其最大长度为31个字符。登记应用类型名的AutoLISP程序代码如下： UPfFT^=y
(regapp "AppName") ir?U w:/f
如果登记成功，该应用类型名就被增加到APPID符号表，并保存在图形文件中。AutoCAD自动登记的应用类型名为"ACAD"。 :0J-ek.;
从上面的例子还可以看到，扩展实体数据与常规实体数据有所不同，在扩展实体数据块中，同样代码的数据可以出现多次，每组数据的次序和含义则由应用程序自行约定。 9pVf2|5hj
需要注意的是，AutoCAD分配给每个图形实体的扩展数据空间最大为16K字节。下面的函数可查询指定图形实体的扩展数据自由空间大小(以字节为单位)： fl
pXVtsQ
(xdroom entname) x? k
下面的函数可计算出指定扩展数据块的大小(以字节为单位)： afxj[;p!
(xdsize xdata) "<cB73tY
2、存取扩展实体数据的程序设计 +t7c&td\
在AutoCAD命令中，除AME(高级造型)、ASE(数据库管理)命令对扩展实体数据进行操作外，其它绘图命令一般不生成扩展实体数据。更多的情况是用户的AutoLISP或ADS应用程序生成、修改和检索扩展实体数据。 hO+O0=$}wN
下面列出三段AutoLISP程序代码，分别对扩展实体数据进行检索、存储和删除操作： +Op%,,Db
;检索指定的扩展实体数据 NDs]}5#
;entname为有效的图形实体名，appname为已登记的应用类型名 ,wry u|7"$
;若检索成功则以LIST表的形式返回指定的扩展数据，否则返回nil pO-s@"j]
;例如：(getx (entlast) "DESIGN") wu&|~@_s@
;返回：((1000."16Mn") (1040.32.45)) 42n@:5`{+
(defun getx(entname appname / x0 x1) # `N6<n b
(setq appname (strcase appname)) +WV_`Rx#
(if (= (type entname) 'ENAME) f^[{k
{t
(if (tblsearch"APPID"appname) ~xlMHf
(progn 4e(9@OLP
(setq x1 (list appname)) \,@Yl.,+
(if (setq x0 (assoc -3 (entget entname x1))) 9a"Y,1
(cdr (assoc appname (cdr x0))) }\PE {
) C$AIP\j-
)
) a0V8L+v(
) ijZydn
) w]o: c(x@
) H}jK3;8E
;存储或修改指定的扩展实体数据 ch)Ps2i
;entname为有效的图形实体名，appname为已登记的应用类型名 r2E>sHw
;xdata为属于appname应用类型的扩展数据表 MrKU,-
;若存储成功则返回包含指定扩展数据的实体数据表，否则返回nil q/rHHuY }
;例如：(setx (entlast) "PRICE"((1040.123.45) (1040.321.54))) {E3<GeHw4
(defun setx(entname appname xdata / x0 x1) B>p0FQ.
(setq appname(strcase appname)) 07T;IV3#C5
(if (= (type entname) 'ENAME) Dho[{xJ46
(if (tblsearch "APPID" appname) N:PA/V^ z
(if (setq x0 (entget entname)) f}9PEpa,Z
(progn iS:PRa1
(setq x1 (list -3 (append (list appname) xdata))) Zgy2Pot
(setq x0 (append (entget entname) (list x1))) +}`O^#<qLX
(entmod x0) 2 d>d(^
) ?|Q 5]rhs
) RB% fA%d
) Q[ 9rA
) DiYJlD&
) MoKXl?B<
;删除指定的扩展实体数据 S}v {^ vR
;entname为有效的图形实体名，appname为已登记的应用类型名 PPj6QJ]R0
;若删除成功则返回删除指定扩展数据后的实体数据表，否则返回nil li 3PR$W V
;例如：(delx (entlast) "PRICE") $3]E8t
(defun delx(entname appname / x0 x1) p~d)2TC4#
(setq appname (strcase appname)) O=#/DM;
(if (= (type entname) 'ENAME) Jc"$p\ $-
(if (tblsearch "APPID" appname) E-tNB{r@
(progn ?ck^? p7
(setq x1 (list -3 (list appname))) q y42Y/8'
(if (setq x0 (append (entget entname) (list x1))) + SuUI-.
(entmod x0) rmg"; ( I
) iRj x];:Vu
) o trTrh
) mtWx ?x
) Q:fUM[
) \HP,LH[P:
3 扩展实体数据应用实例 pRxlvV t
利用扩展实体数据的最大好处首先在于它能够按不同的应用类型分组，其次在于它直接与图形实体关联，存取非常灵活方便。笔者利用它开发了零部件清单维护程序，效果很好。 %:be{Y6
按照笔者所在单位设计制图标准，反映零部件清单的明细表与图纸分开，即图纸(包括标题栏)由绘图机一起绘制，而明细表并不绘制在图纸上，零部件清单改由打印机单独打印后附在相应的图纸后面。为此，笔者利用扩展实体数据开发了零部件清单维护程序，在生成零部件序号时输入其代号、名称、材料、重量、数量等信息，然后将这些信息 Kz3h]/A .
为该序号(即为AutoCAD"TEXT"类型的图形实体)的扩展数据存储，这样用户只要选择某一序号就可以立即检索出与该序号对应的零部件的相关信息，并可任意修改。随后还可由程序自动按顺序提取图纸中所有的零部件信息，并作为清单按规定的格式保存到文件中或输出到打印机。
