根据块名附属性.docVIP

;;;;根据块名附属性 (defun?c:test() (regapp?south) (setq?sscnt?0) ??(prompt?\n请选择要赋属性的块:) ??(if?(setq?ins_all?(ssget?(list?(0?.?insert)))) ???(repeat?(sslength?ins_all) ????(setq?ss_ins_name?(ssname?ins_all?sscnt)) ????(setq?ss_ins_att?(entget?ss_ins_name?(list?*))) ????(setq?ins_name?(cdr?(assoc?2?ss_ins_att))) ????(setq?ins_code?(substr?ins_name?1?(vl-string-position?(ascii?_)?ins_name))) ????(setq?ins_code_lst?(list?-3?(list?south?(cons?1000?ins_code)))) ????(setq?ss_ins_att?(reverse?(append?(list?ins_code_lst)?(reverse?ss_ins_att)))) ????(entmod?ss_ins_att) ????(setq?sscnt?(1+?sscnt)) ???) ??) ) ########################################## 语法 ??? (xdsize list) 功能及参数 ??? 此函数将返回当 list 被附加到一个图元中作为扩展图元数据 (Xdata) 时, 它所占用的位组大小。如果不成功, 这个函数会返回 nil。 ??? list 必须是一个合法的 xdata 表, 它必须包含一个前面已经使用 regapp 函数注册过的应用程序名称。大括号({)项 (群组代码1002) 必须要对称。一个不合法的 list 将会产生一个错误, 并将适当的错误代码放置于 ERRNO 变量中。如果 Xdata 中包含一个尚未注册的应用程序名称, 则您会看到以下的错误信息(假定 COMDECHO 为 on): ??? Invalid application name 1001 group ??? 这个 list 可以从群组代码-3 开始, 但是它并不是必须的, 因为 Xdata 可以包含多个应用程序的说明。这个表必须要有一组括起来的括号： ??? (-3 (MYAPP?? (1000 . SUITOFARMOR) ?????????? ????????(1002 . {) ?????????? ????????(1040 . 0.0) ??????????? ???????(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 . SUITOFARMOR) ?????????? ????????(1002 . {) ?????????? ????????(1040 . 0.0) ??????????? ???????(1040 . 1.0) ??????????? ???????(1002 . }) ???? ???? ?) ??? ) ??? 以下也是没有群组代码 -3 的相同范例。这个表刚好是第一个范例的 cdr, 但是将括起来的括号包含在里面是很重要的。 ??? (????? (MYAPP?? (1000 . SUITOFARMOR) ????????????? ??????(1002 . {) ?????????? ?????????(1040 . 0.0) ?????????? ?????????(1040 . 1.0) ?????????????? ??