根据块名附属性

《根据块名附属性》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、;;;;根据块名附属性(defun c:test()(regapp "south")(setq sscnt 0)  (prompt "请选择要赋属性的块:")  (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

2、_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))   )  ))##

3、########################################语法   (xdsizelist)功能及参数   此函数将返回当list被附加到一个图元中作为扩展图元数据(Xdata)时,它所占用的位组大小。如果不成功,这个函数会返回nil。   list必须是一个合法的xdata表,它必须包含一个前面已经使用regapp函数注册过的应用程序名称。大括号({)项(群组代码1002)必须要对称。一个不合法的list将会产生一个错误,并将适当的错误代码放置于ERRNO变量中。如果Xdata中包含一个尚未注册的应用程序名称,则您会看到以下的错误信息(假定COMDECHO为on): 

4、  Invalidapplicationname1001group   这个list可以从群组代码-3开始,但是它并不是必须的,因为Xdata可以包含多个应用程序的说明。这个表必须要有一组括起来的括号：   (-3("MYAPP"  (1000."SUITOFARMOR")                  (1002."{")                  (1040.0.0)                  (1040.1.0)                  (1002."}")         )   )   以下也是没有群组代码-3的相同范例。这个表刚好是第一个范例的cdr

5、,但是将括起来的括号包含在里面是很重要的。   (     ("MYAPP"  (1000."SUITOFARMOR")                   (1002."{")                   (1040.0.0)                   (1040.1.0)                   (1002."}")         )   Invalidapplicationname1001group   这个list可以从群组代码-3开始,但是它并不是必须的,因为Xdata可以包含多个应用程序的说明。这个表必须要有一组括起来的括号：   (-3("MYA

6、PP"  (1000."SUITOFARMOR")                  (1002."{")                  (1040.0.0)                  (1040.1.0)                  (1002."}")         )   )   以下也是没有群组代码-3的相同范例。这个表刚好是第一个范例的cdr,但是将括起来的括号包含在里面是很重要的。   (     ("MYAPP"  (1000."SUITOFARMOR")                   (1002."{")                   (104

7、0.0.0)                   (1040.1.0)                   (1002."}")         ) 范例      (setqn2(list"YOURAPP"  (cons1000"SUITOFARMOR")                           (cons10400.0)                           (cons10401