《根据块名附属性（精品）》由会员分享，可在线阅读，更多相关《根据块名附属性（精品）（16页珍藏版）》请在金锄头文库上搜索。
1、;根据块名附属性(defunc:test()(regappsouth)(setqsscnt0)(promptn请选择要赋属性的块:)(if(setqins_all(ssget(list(0.insert)(repeat(sslengthins_all)(setqss_ins_name(ssnameins_allsscnt)(setqss_ins_att(entgetss_ins_name(list*)(setqins_name(cdr(assoc2ss_ins_att)(setqins_code(substrins_name1(vl-string-position(ascii_)ins_nam
2、e)(setqins_code_lst(list-3(listsouth(cons1000ins_code)(setqss_ins_att(reverse(append(listins_code_lst)(reversess_ins_att)(entmodss_ins_att)(setqsscnt(1+sscnt)#语法 (xdsize list)功能及参数 此函数将返回当 list 被附加到一个图元中作为扩展图元数据 (Xdata) 时, 它所占用的位组大小。如果不成功, 这个函数会返回 nil。 list 必须是一个合法的 xdata 表, 它必须包含一个前面已经使用 regapp 函数注
3、册过的应用程序名称。大括号()项 (群组代码1002) 必须要对称。一个不合法的 list 将会产生一个错误, 并将适当的错误代码放置于 ERRNO 变量中。如果 Xdata 中包含一个尚未注册的应用程序名称, 则您会看到以下的错误信息(假定 COMDECHO 为 on): Invalid application name 1001 group 这个 list 可以从群组代码-3 开始, 但是它并不是必须的, 因为 Xdata 可以包含多个应用程序的说明。这个表必须要有一组括起来的括号： (-3 (MYAPP (1000 . SUITOFARMOR) (1002 . ) (1040 . 0.0
4、) (1040 . 1.0) (1002 . ) ) ) 以下也是没有群组代码 -3 的相同范例。这个表刚好是第一个范例的 cdr, 但是将括起来的括号包含在里面是很重要的。 ( (MYAPP (1000 . SUITOFARMOR) (1002 . ) (1040 . 0.0) (1040 . 1.0) (1002 . ) ) Invalid application name 1001 group 这个 list 可以从群组代码-3 开始, 但是它并不是必须的, 因为 Xdata 可以包含多个应用程序的说明。这个表必须要有一组括起来的括号： (-3 (MYAPP (1000 . SUITOF
5、ARMOR) (1002 . ) (1040 . 0.0) (1040 . 1.0) (1002 . ) ) ) 以下也是没有群组代码 -3 的相同范例。这个表刚好是第一个范例的 cdr, 但是将括起来的括号包含在里面是很重要的。 ( (MYAPP (1000 . SUITOFARMOR) (1002 . ) (1040 . 0.0) (1040 . 1.0) (1002 . ) )范例 (setq n2 (list YOURAPP (cons 1000 SUITOFARMOR) (cons 1040 0.0) (cons 1040 1.0) ) ) (regapp MYAPP) (ragap
6、p YOURAPP) 则: (xdsize (list n1 n2) 返回 48# (cons 1040 0.0) (cons 1040 1.0) ) ) (regapp MYAPP) (ragapp YOURAPP) 则: (xdsize (list n1 n2) 返回 48扩展数据扩展数据 (xdata) 由 AutoLISP 或 ObjectARX 应用程序创建。如果图元包含扩展数据，则扩展数据将跟随在图元的普通定义数据之后。组码 1000 至 1071 描述了扩展数据。下面是一个包含 DXF 格式扩展数据的图元样例。普通图元定义数据： 0 INSERT 5F11100AcDbEntit
7、y 8TOP100AcDbBlockReference 2BLOCK_A 100.0 200.0 300.0扩展图元定义数据：1001AME_SOL10021070 01071 1.95059E+061070 51910102.5471710202.12264210302.0492011005ECD1005EE91005010400.010401.01000MILD_STEEL组码 1001 表示扩展数据的开始。与普通图元数据相比，具有扩展数据的同一组码可以出现多次，而且出现次序很重要。扩展数据按注册的应用程序名分组。每个注册的应用程序组始于 1001 组码，并将程序名作为字符串值。注册的应用
8、程序名对应于 APPID 符号表条目。应用程序可以根据需要使用任意多的 APPID 名。APPID 名是固定不变的，但是，如果当前未在图形中使用 APPID 名，则可以将它们删除。每个 APPID 名只能向每个图元附加一个数据组。在应用程序组中，扩展数据组的顺序和含义由应用程序定义。下表列出了扩展数据组码。 扩展数据组码和说明图元名组码说明字符串1000扩展数据中字符串的最大长度为 255 个字节（第 256 个字节是为空字符保留的）应用程序名称1001也是字符串值应用程序名的最大长度为 31 个字节（第 32 个字节是为空字符保留的）注意不要将 1001 组添加到扩展数据中，因为 AutoC
9、AD 假定它是新应用程序扩展数据组的开始控制字符串1002扩展数据控制字符串可以是“”或“”。这两个大括号使应用程序可以通过将数据细分为表来组织数据。左大括号开始一个列表，右大括号结束最近的列表。列表可以嵌套。读取特定应用程序的扩展数据时，AutoCAD 会进行检查以确保大括号是成对的图层名1003与扩展数据关联的图层名二进制数据1004二进制数据组织成可变长度的数据块。每个数据块的最大长度为 127 个字节。在 ASCII 格式的 DXF 文件中，二进制数据以十六进制数字字符串的形式表示，每个二进制字节由两个数字字符表示数据库句柄1005图形数据库中的图元句柄注意使用 INSERT、INSE
10、RT *、XREF BIND、XBIND 或 PARTIAL OPEN 将带有句柄和扩展数据句柄的图形输入到另一个图形时，扩展数据句柄将使用其相应图元句柄的转换方式进行转换，从而使两者之间的绑定保持不变。EXPLODE 块操作或任何其他 AutoCAD 操作也是如此。如果 AUDIT 检测出扩展数据句柄与图形文件中的图元句柄不匹配，将认为存在错误。AUDIT 修复图元时，将句柄设置为 0。3 个实数1010, 1020, 1030 按 X、Y、Z 次序排列的三个实数值。可将它们用作点或矢量记录。AutoCAD 永远不会改变它们的值世界空间位置1011, 1021, 1031与简单的三维点不同，
11、世界空间坐标随扩展数据所属的父图元进行移动、缩放、旋转和镜像。对父图元使用 STRETCH 命令并且此点位于选择窗口中时，世界空间位置也会被拉伸。世界空间位移1012, 1022, 1032也是一个随着父图元进行缩放、旋转和镜像（而不是移动或拉伸）的三维点世界方向1013, 1023, 1033也是一个随着父图元旋转和镜像（而不是移动、缩放或拉伸）的三维点实数1040一个实数值距离1041一个随着父图元进行缩放的实数值比例因子1042也是一个随着父图元进行缩放的实数值。距离和缩放因子的差别由应用程序定义整数1070一个 16 位整数（有符号或无符号）长整数1071一个 32 位有符号（长）整数
12、SetXData 方法设置与对象关联的扩展数据 (外部数据) 。参阅 | 示例语法 object.SetXData XDataType, XData Object所有图形对象 , AttributeReference, Block, Dictionary, DimStyle, Group, Layer, Linetype, PlotConfigurations, RegisteredApplication, TextStyle, UCS, View, Viewport; XRecord使用该方法的对象。 XDataTypeVariant变体 (短整数数组); 仅用于输入 XData变体数组; 仅用于输入 说明 扩展数据是由 ObjectARX 或 AutoLISP 编写的程序创建的特定实例数据的实例。该数据可添加到任何对象中
