可自由定制刷子完整源码

eachy · 发表于 2013-7-6 20:44:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

主程序，很早的一个程序，希望对Lisper爱好者有所帮助

(defun ea:put-property (obj plst /)
(mapcar '(lambda (p)
(if (eval p)
(if (wcmatch (vl-princ-to-string p) "EA_*")
(eval (list (strcat "vla-put-"
(substr (vl-princ-to-string p) 4)
)
obj
(eval p)
)
)
(vl-catch-all-apply
'vlax-put-property
(list obj p (eval p))
)
)
)
)
plst
)
)
(if (findfile "ea_property.lsp")
(if (/=
(load (findfile "ea_property.lsp")
"Not Find ea_property.lsp!"
)
'EA_OBJECT_PROPERTY_LIST
)
(progn
(princ "\nEa_property.lst 中函数名被修改!")
(exit)
)
)
(progn
(princ "\nNot Find ea_property.lsp!")
(exit)
)
)
(if (not $ea_mat_globle_property)
(setq $ea_mat_globle_property
'(LAYER COLOR LINETYPE LINEWEIGHT LINETYPESCALE THICKNESS
PLOTSTYLENAME)
)
)
(defun c:Ea:Smat (/ _$acadver
do_add_remove do_globle_property
test_object_property do_all_object_property
do_object_property do_init_property
do_get_object_property globle_pro
)
(load (findfile "ea_property.lsp")
"Not Find ea_property.lsp!"
)
(setq _$acadver (> (atof (getvar "acadver")) 16.))
;;normal property
(defun do_add_remove (typ mode)
(if (= mode "1")
(progn
(if (not (vl-position (read typ) gl_list))
(setq $ea_mat_globle_property (cons (read typ) gl_list))
)
)
(setq $ea_mat_globle_property (vl-remove (read typ) gl_list))
)
)
(defun do_all_globle_property (val)
(mapcar
'(lambda (x) (set_tile x val))
'("layer" "color" "linetype"
"lineweight" "linetypescale" "thickness"
"plotstylename"
)
)
(if (= val "1")
(setq $ea_mat_globle_property
'(LAYER COLOR LINETYPE
LINETYPESCALE LINEWEIGHT THICKNESS
PLOTSTYLENAME
)
)
(setq $ea_mat_globle_property nil)
)
)
;;object property
(defun test_object_property (val / olditem)
(if (not $ea_mat_object_property)
(setq $ea_mat_object_property (list (list objectname val)))
(if (setq olditem (assoc objectname $ea_mat_object_property))
(setq
$ea_mat_object_property
(subst (list objectname val)
olditem
$ea_mat_object_property
)
)
(setq $ea_mat_object_property
(append $ea_mat_object_property
(list (list objectname val))
)
)
)
)
)
(defun do_all_object_property (val / lst)
(if (= val "1")
(progn
(set_tile
"sel"
(setq lst
(ybl-str-unparse
(mapcar
'vl-princ-to-string
(mapcar '(lambda (x) (vl-position x fill_property_list))
fill_property_list
)
)
" "
)
)
)
(test_object_property lst)
)
(progn
(set_tile "sel" "")
(setq $ea_mat_object_property nil)
)
)
)
(defun do_object_property (val)
(if (and val (/= val ""))
(test_object_property val)
)
)
;;Dialog
(defun do_init_property (/ mat_id)
(if (not (setq mat_id (load_dialog "mat.dcl")))
(exit)
)
(if (not (new_dialog "ea_mat" mat_id))
(exit)
)
(mapcar '(lambda (a)
(if (vl-position a $ea_mat_globle_property)
(set_tile (strcase (vl-princ-to-string a) t) "1")
)
)
'(LAYER COLOR LINETYPE
LINEWEIGHT LINETYPESCALE THICKNESS
PLOTSTYLENAME
)
) ;_ 公共属性|;
(set_tile "str" objectname)
(start_list "sel")
(mapcar 'add_list fill_property_list) ;_ 自有属性列表
(end_list)
(if (assoc objectname $ea_mat_object_property)
(set_tile "sel"
(cadr (assoc objectname $ea_mat_object_property))
)
(set_tile "sel" (last obj_list))
)
(mapcar '(lambda (a b) (set_tile a b))
'("t1" "t2" "t3" "t4" "t5" "t6" "t7")
(mapcar 'vl-princ-to-string normal_pro)
)
(if (not (vl-position
objectname
'("AcDbArc" "AcDbAttribute"
"AcDbAttributeReference"
"AcDbCircle" "AcDbLightweightPolyline"
"AcDbLine" "AcDbPoint"
"AcDbPolyline" "AcDbShape"
"AcDbSolid" "AcDbText"
"AcDbTrace"
)
)
)
(mode_tile "thickness" 1)
(mode_tile "thickness" 0)
)
(if (= (length $ea_mat_globle_property) 7)
(set_tile "pa" "1")
)
(action_tile
"sel"
"(setq pro_lst $value)(do_object_property $value)"
)
(action_tile "pa" "(do_all_globle_property $value)")
(action_tile "sa" "(do_all_object_property $value)")
(action_tile "layer" "(do_add_remove \"layer\" $value)")
(action_tile "color" "(do_add_remove \"color\" $value)")
(action_tile
"linetype"
"(do_add_remove \"linetype\" $value)"
)
(action_tile
"lineweight"
"(do_add_remove \"lineweight\" $value)"
)
(action_tile
"linetypescale"
"(do_add_remove \"linetypescale\" $value)"
)
(action_tile
"plotstylename"
"(do_add_remove \"plotstylename\" $value)"
)
(action_tile "accept" "(done_dialog 0)")
(start_dialog)
(unload_dialog mat_id)
)
(defun do_get_object_property (/ nth_list)
(setq nth_list (mapcar
'atoi
(ybl-str-parse
(cadr (assoc objectname $ea_mat_object_property))
" "
)
)
property_list (mapcar '(lambda (a) (nth a object_property_list))
nth_list
)
)
(mapcar
'(lambda (p / var)
(cond
((= (type p) 'STR)
(set
(read (strcat "EA_" p))
(eval (cons (read (strcat "vla-get-" p)) obj))
)
)
((= p 'COLOR)
(if _$acadver
(set p (vlax-get-property obj 'truecolor))
(set p (vlax-get-property obj 'color))
)
)
(t
(if (not (vl-catch-all-error-p
(setq var (vl-catch-all-apply
'vlax-get-property
(list obj p)
)
)
)
)
(set p var)
(set p nil)
)
)
)
)
(append $ea_mat_globle_property property_list)
)
)
(defun test_property_list ()
(or $ea_mat_globle_property $ea_mat_object_property)
)
(setq globle_pro
'((layer color linetype
lineweight linetypeScale thickness
plotstyleName
)
("图层" "颜色" "线型" "线宽" "线型比例" "厚度" "打印样式")
)
thisdrawing (vla-get-activedocument (vlax-get-acad-object))
)
(ybvl-clearcset)
(vla-startundomark thisdrawing)
(vl-catch-all-apply
(function
(lambda (lst obj objectname obj_list
fill_property_list e
normal_pro nth_pro_list key
loop object_property_list
tf ss tmp_lst
)
(if (setq e (entsel "\n源实体: "))
(progn
(setq lst (ea_object_property_list))
(setq obj (vlax-ename->vla-object (car e))
objectname (vlax-get-property obj 'ObjectName)
)
(if (setq tf
(and (= objectname "AcDbBlockReference")
(= (vlax-get-property obj 'hasattributes) :vlax-true)
)
)
(progn
(setq obj
(vlax-ename->vla-object (car (nentselp (last e))))
)
(setq objectname (vlax-get-property obj 'objectname))
)
)
(setq obj_list (assoc objectname lst)
object_property_list
(mapcar 'car (cadr obj_list))
fill_property_list
(mapcar 'cadr (cadr obj_list))
normal_pro
(mapcar
'(lambda (x)
(vl-catch-all-apply 'vlax-get-property (list obj x))
)
(car globle_pro)
)
)
(if
(and (or (not $ea_mat_object_property)
(not (assoc objectname $ea_mat_object_property))
)
(/= "" (last obj_list))
)
(setq $ea_mat_object_property
(append (list (list objectname (last obj_list)))
$ea_mat_object_property
)
)
)
(if (not (test_property_list))
(do_init_property)
)
(if (test_property_list)
(progn
(princ (strcat "\n拾取了 " objectname " 实体!"))
(princ "\n设置匹配选项[S]<任意键选择目标>: ")
(setq loop t)
(while loop
(setq key (grread nil 2 2))
(cond
((and (= (car key) 2)
(= (strcase (chr (cadr key))) "S")
)
(do_init_property)
)
((test_property_list)
(do_get_object_property)
(setq loop nil
tmp_lst
(append $ea_mat_globle_property property_list)
)
(princ "\n选择目标实体...")
(if (ssget)
(vlax-map-collection
(vla-get-activeselectionset thisdrawing)
'(lambda (x)
(cond
((and
tf
(= (vlax-get-property x 'objectname)
"AcDbBlockReference"
)
(= (vlax-get-property x 'hasattributes)
:vlax-true
)
)
(mapcar
'(lambda (a)
(ea:put-property a tmp_lst)
)
(vlax-invoke x 'getattributes)
)
)
((and (vl-position 'PATTERNNAME tmp_lst)
(= (vlax-get-property x 'objectname)
"AcDbHatch"
)
)
(entmod
(subst
(cons 2 (eval 'patternname))
(cons
2
(vlax-get-property x 'patternname)
)
(entget (vlax-vla-object->ename x))
)
)
)
(t
(ea:put-property x tmp_lst)
)
)
)
)
)
)
(t (setq loop nil))
)
)
)
)
)
)
)
)
)
(vla-endundomark thisdrawing)
(if property_list
(mapcar '(lambda (x) (set x nil)) property_list)
)
(setq property_list nil)
(princ)
)

(defun ea:put-property (obj plst /) 
  (mapcar '(lambda (p) 
         (if (eval p) 
           (if (wcmatch (vl-princ-to-string p) "EA_*") 
         (eval (list (strcat "vla-put-" 
                     (substr (vl-princ-to-string p) 4) 
                 ) 
                 obj 
                 (eval p) 
               ) 
         ) 
         (vl-catch-all-apply 
           'vlax-put-property 
           (list obj p (eval p)) 
         ) 
           ) 
         ) 
       ) 
      plst 
  ) 
) 
(if (findfile "ea_property.lsp") 
  (if (/= 
    (load (findfile "ea_property.lsp") 
          "Not Find ea_property.lsp!" 
    ) 
    'EA_OBJECT_PROPERTY_LIST 
      ) 
    (progn 
      (princ "\nEa_property.lst 中函数名被修改!") 
      (exit) 
    ) 
  ) 
  (progn 
    (princ "\nNot Find ea_property.lsp!") 
    (exit) 
  ) 
) 
(if (not $ea_mat_globle_property) 
  (setq    $ea_mat_globle_property 
     '(LAYER COLOR LINETYPE    LINEWEIGHT LINETYPESCALE THICKNESS 
       PLOTSTYLENAME) 
  ) 
) 
(defun c:Ea:Smat (/              _$acadver 
          do_add_remove          do_globle_property 
          test_object_property      do_all_object_property 
          do_object_property      do_init_property 
          do_get_object_property  globle_pro 
         ) 
  (load    (findfile "ea_property.lsp") 
    "Not Find ea_property.lsp!" 
  ) 
  (setq _$acadver (> (atof (getvar "acadver")) 16.)) 
  ;;normal property 
  (defun do_add_remove (typ mode) 
    (if    (= mode "1") 
      (progn 
    (if (not (vl-position (read typ) gl_list)) 
      (setq $ea_mat_globle_property (cons (read typ) gl_list)) 
    ) 
      ) 
      (setq $ea_mat_globle_property (vl-remove (read typ) gl_list)) 
    ) 
  ) 
  (defun do_all_globle_property    (val) 
    (mapcar 
      '(lambda (x) (set_tile x val)) 
      '("layer"          "color"        "linetype" 
    "lineweight"      "linetypescale"   "thickness" 
    "plotstylename" 
       ) 
    ) 
    (if    (= val "1") 
      (setq $ea_mat_globle_property 
         '(LAYER          COLOR         LINETYPE 
           LINETYPESCALE  LINEWEIGHT     THICKNESS 
           PLOTSTYLENAME 
          ) 
      ) 
      (setq $ea_mat_globle_property nil) 
    ) 
  ) 
  ;;object property 
  (defun test_object_property (val / olditem) 
    (if    (not $ea_mat_object_property) 
      (setq $ea_mat_object_property (list (list objectname val))) 
      (if (setq olditem (assoc objectname $ea_mat_object_property)) 
    (setq 
      $ea_mat_object_property 
       (subst (list objectname val) 
          olditem 
          $ea_mat_object_property 
       ) 
    ) 
    (setq $ea_mat_object_property 
           (append $ea_mat_object_property 
               (list (list objectname val)) 
           ) 
    ) 
      ) 
    ) 
  ) 
  (defun do_all_object_property    (val / lst) 
    (if    (= val "1") 
      (progn 
    (set_tile 
      "sel" 
      (setq    lst 
         (ybl-str-unparse 
           (mapcar 
             'vl-princ-to-string 
             (mapcar '(lambda (x) (vl-position x fill_property_list)) 
                 fill_property_list 
             ) 
           ) 
           " " 
         ) 
      ) 
    ) 
    (test_object_property lst) 
      ) 
      (progn 
    (set_tile "sel" "") 
    (setq $ea_mat_object_property nil) 
      ) 
    ) 
  ) 
  (defun do_object_property (val) 
    (if    (and val (/= val "")) 
      (test_object_property val) 
    ) 
  ) 
  ;;Dialog 
  (defun do_init_property (/ mat_id) 
    (if    (not (setq mat_id (load_dialog "mat.dcl"))) 
      (exit) 
    ) 
    (if    (not (new_dialog "ea_mat" mat_id)) 
      (exit) 
    ) 
    (mapcar '(lambda (a) 
           (if (vl-position a $ea_mat_globle_property) 
         (set_tile (strcase (vl-princ-to-string a) t) "1") 
           ) 
         ) 
        '(LAYER         COLOR        LINETYPE 
          LINEWEIGHT     LINETYPESCALE  THICKNESS 
          PLOTSTYLENAME 
         ) 
    ) ;_ 公共属性|; 
    (set_tile "str" objectname) 
    (start_list "sel") 
    (mapcar 'add_list fill_property_list) ;_ 自有属性列表 
    (end_list) 
    (if    (assoc objectname $ea_mat_object_property) 
      (set_tile    "sel" 
        (cadr (assoc objectname $ea_mat_object_property)) 
      ) 
      (set_tile "sel" (last obj_list)) 
    ) 
    (mapcar '(lambda (a b) (set_tile a b)) 
        '("t1" "t2" "t3" "t4" "t5" "t6" "t7") 
        (mapcar 'vl-princ-to-string normal_pro) 
    ) 
    (if    (not (vl-position 
           objectname 
           '("AcDbArc"           "AcDbAttribute" 
         "AcDbAttributeReference" 
         "AcDbCircle"           "AcDbLightweightPolyline" 
         "AcDbLine"           "AcDbPoint" 
         "AcDbPolyline"           "AcDbShape" 
         "AcDbSolid"           "AcDbText" 
         "AcDbTrace" 
        ) 
         ) 
    ) 
      (mode_tile "thickness" 1) 
      (mode_tile "thickness" 0) 
    ) 
    (if    (= (length $ea_mat_globle_property) 7) 
      (set_tile "pa" "1") 
    ) 
    (action_tile 
      "sel" 
      "(setq pro_lst $value)(do_object_property $value)" 
    ) 
    (action_tile "pa" "(do_all_globle_property $value)") 
    (action_tile "sa" "(do_all_object_property $value)") 
    (action_tile "layer" "(do_add_remove \"layer\" $value)") 
    (action_tile "color" "(do_add_remove \"color\" $value)") 
    (action_tile 
      "linetype" 
      "(do_add_remove \"linetype\" $value)" 
    ) 
    (action_tile 
      "lineweight" 
      "(do_add_remove \"lineweight\" $value)" 
    ) 
    (action_tile 
      "linetypescale" 
      "(do_add_remove \"linetypescale\" $value)" 
    ) 
    (action_tile 
      "plotstylename" 
      "(do_add_remove \"plotstylename\" $value)" 
    ) 
    (action_tile "accept" "(done_dialog 0)") 
    (start_dialog) 
    (unload_dialog mat_id) 
  ) 
  (defun do_get_object_property    (/ nth_list) 
    (setq nth_list    (mapcar 
              'atoi 
              (ybl-str-parse 
                (cadr (assoc objectname $ea_mat_object_property)) 
                " " 
              ) 
            ) 
      property_list    (mapcar    '(lambda (a) (nth a object_property_list)) 
                nth_list 
            ) 
    ) 
    (mapcar 
      '(lambda (p / var) 
     (cond 
       ((= (type p) 'STR) 
        (set 
          (read (strcat "EA_" p)) 
          (eval (cons (read (strcat "vla-get-" p)) obj)) 
        ) 
       ) 
       ((= p 'COLOR) 
        (if    _$acadver 
          (set p (vlax-get-property obj 'truecolor)) 
          (set p (vlax-get-property obj 'color)) 
        ) 
       ) 
       (t 
        (if    (not (vl-catch-all-error-p 
               (setq var (vl-catch-all-apply 
                   'vlax-get-property 
                   (list obj p) 
                 ) 
               ) 
             ) 
        ) 
          (set p var) 
          (set p nil) 
        ) 
       ) 
     ) 
       ) 
      (append $ea_mat_globle_property property_list) 
    ) 
  ) 
  (defun test_property_list () 
    (or $ea_mat_globle_property $ea_mat_object_property) 
  ) 
  (setq    globle_pro 
            '((layer          color         linetype 
               lineweight     linetypeScale  thickness 
               plotstyleName 
              ) 
              ("图层" "颜色" "线型" "线宽" "线型比例" "厚度" "打印样式") 
             ) 
    thisdrawing (vla-get-activedocument (vlax-get-acad-object)) 
  ) 
  (ybvl-clearcset) 
  (vla-startundomark thisdrawing) 
  (vl-catch-all-apply 
    (function 
      (lambda (lst obj          objectname     obj_list 
           fill_property_list         e 
           normal_pro      nth_pro_list     key 
           loop          object_property_list 
           tf          ss tmp_lst 
          ) 
    (if (setq e (entsel "\n源实体: ")) 
      (progn 
        (setq lst (ea_object_property_list)) 
        (setq obj         (vlax-ename->vla-object (car e)) 
          objectname (vlax-get-property obj 'ObjectName) 
        ) 
        (if    (setq tf 
               (and (= objectname "AcDbBlockReference") 
                (= (vlax-get-property obj 'hasattributes) :vlax-true) 
               ) 
        ) 
          (progn 
        (setq obj 
               (vlax-ename->vla-object (car (nentselp (last e)))) 
        ) 
        (setq objectname (vlax-get-property obj 'objectname)) 
          ) 
        ) 
        (setq obj_list (assoc objectname lst) 
          object_property_list 
           (mapcar 'car (cadr obj_list)) 
          fill_property_list 
           (mapcar 'cadr (cadr obj_list)) 
          normal_pro 
           (mapcar 
             '(lambda (x) 
            (vl-catch-all-apply 'vlax-get-property (list obj x)) 
              ) 
             (car globle_pro) 
           ) 
        ) 
        (if 
          (and (or (not $ea_mat_object_property) 
               (not (assoc objectname $ea_mat_object_property)) 
           ) 
           (/= "" (last obj_list)) 
          ) 
           (setq $ea_mat_object_property 
              (append (list (list objectname (last obj_list))) 
                  $ea_mat_object_property 
              ) 
           ) 
        ) 
        (if    (not (test_property_list)) 
          (do_init_property) 
        ) 
        (if    (test_property_list) 
          (progn 
        (princ (strcat "\n拾取了 " objectname " 实体!")) 
        (princ "\n设置匹配选项[S]<任意键选择目标>: ") 
        (setq loop t) 
        (while loop 
          (setq key (grread nil 2 2)) 
          (cond 
            ((and (= (car key) 2) 
              (= (strcase (chr (cadr key))) "S") 
             ) 
             (do_init_property) 
            ) 
            ((test_property_list) 
             (do_get_object_property) 
             (setq loop    nil 
               tmp_lst 
                (append $ea_mat_globle_property property_list) 
             ) 
             (princ "\n选择目标实体...") 
             (if (ssget) 
               (vlax-map-collection 
             (vla-get-activeselectionset thisdrawing) 
             '(lambda (x) 
                (cond 
                  ((and 
                 tf 
                 (= (vlax-get-property x 'objectname) 
                    "AcDbBlockReference" 
                 ) 
                 (= (vlax-get-property x 'hasattributes) 
                    :vlax-true 
                 ) 
                   ) 
                   (mapcar 
                 '(lambda (a) 
                    (ea:put-property a tmp_lst) 
                  ) 
                 (vlax-invoke x 'getattributes) 
                   ) 
                  ) 
                  ((and (vl-position 'PATTERNNAME tmp_lst) 
                    (= (vlax-get-property x 'objectname) 
                       "AcDbHatch" 
                    ) 
                   ) 
                   (entmod 
                 (subst 
                   (cons 2 (eval 'patternname)) 
                   (cons 
                     2 
                     (vlax-get-property x 'patternname) 
                   ) 
                   (entget (vlax-vla-object->ename x)) 
                 ) 
                   ) 
                  ) 
                  (t 
                   (ea:put-property x tmp_lst) 
                  ) 
                ) 
              ) 
               ) 
             ) 
            ) 
            (t (setq loop nil)) 
          ) 
        ) 
          ) 
        ) 
      ) 
    ) 
      ) 
    ) 
  ) 
  (vla-endundomark thisdrawing) 
  (if property_list 
    (mapcar '(lambda (x) (set x nil)) property_list) 
  ) 
  (setq property_list nil)   
  (princ) 
)

eachy · 发表于 2013-7-6 20:46:06

配套的DCL，wkai版主写过自动生成DCL的，那个更全

ea_mat : dialog {
label = "超级刷子";
: text {
label = "当前实体: ";
key = "str";
}
: row {
: column {
: boxed_row {
label = "基本属性";
: column {
: toggle {
label = "图层";
key = "layer";
}
: toggle {
label = "颜色";
key = "color";
}
: toggle {
label = "线形";
key = "linetype";
}
: toggle {
label = "线宽";
key = "lineweight";
}
: toggle {
label = "线型比例";
key = "linetypescale";
}
: toggle {
label = "厚度";
key = "thickness";
}
: toggle {
label = "打印样式";
key = "plotstylename";
}
}
: column {
width = 12;
: text {
value = ":";
key = "t1";
}
: text {
value = ":";
key = "t2";
}
: text {
key = "t3";
value = ":";
}
: text {
key = "t4";
value = ":";
}
: text {
key = "t5";
value = ":";
}
: text {
key = "t6";
value = ":";
}
: text {
key = "t7";
value = ":";
}
}
}
: toggle {
label = "全选";
key = "pa";
}
}
: column {
: boxed_column {
label = "特殊属性";
: list_box {
width = 18;
key = "sel";
multiple_select = true;
}
}
: toggle {
label = "全选";
key = "sa";
}
}
}
ok_cancel;
}

ea_mat : dialog { 
label = "超级刷子"; 
: text { 
  label = "当前实体: "; 
  key = "str"; 
  } 
: row { 
  : column { 
    : boxed_row { 
      label = "基本属性"; 
      : column { 
        : toggle { 
          label = "图层"; 
          key = "layer"; 
          } 
        : toggle { 
          label = "颜色"; 
          key = "color"; 
          } 
        : toggle { 
          label = "线形"; 
          key = "linetype"; 
          } 
        : toggle { 
          label = "线宽"; 
          key = "lineweight"; 
          } 
        : toggle { 
          label = "线型比例"; 
          key = "linetypescale"; 
          } 
        : toggle { 
          label = "厚度"; 
          key = "thickness"; 
          } 
        : toggle { 
          label = "打印样式"; 
          key = "plotstylename"; 
          } 
        } 
      : column { 
        width = 12; 
        : text { 
          value = ":"; 
          key = "t1"; 
          } 
        : text { 
          value = ":"; 
          key = "t2"; 
          } 
        : text { 
          key = "t3"; 
          value = ":"; 
          } 
        : text { 
          key = "t4"; 
          value = ":"; 
          } 
        : text { 
          key = "t5"; 
          value = ":"; 
          } 
        : text { 
          key = "t6"; 
          value = ":";          
          } 
        : text { 
          key = "t7"; 
          value = ":"; 
          } 
        } 
      } 
    : toggle { 
      label = "全选"; 
      key = "pa"; 
      }   
    } 
    : column { 
      : boxed_column { 
        label = "特殊属性"; 
        : list_box { 
          width = 18; 
          key = "sel"; 
          multiple_select = true; 
          } 
        } 
      : toggle { 
        label = "全选"; 
        key = "sa"; 
        } 
      } 
  } 
  ok_cancel; 
}

eachy · 发表于 2013-7-6 20:48:09

自由定制部分，这个用于根据实体选择自己感兴趣的属性，包括自定义实体开放的属性

;|使用说明
添加自定义实体的属性
子表格式 (ObjectName ((Property1 Name1) ...) key)
其中： ObjectName 自定义实体的 ObjectName 用 vla-get-ObjectName 得到的字串
Property 可读写的属性，用 vlax-property-available-p 可查看是否 modified
Name 对应属性的中文名称
Key 默认的匹配选项, 为以空格分隔的索引数, 不设时为 ""
注意： 1 Property 和 Name 必须一一对应
2 当特性名称为 SYM 时加引号
Writen By eachy Email: eachy@21cn.com 2005.03.09
|;
(defun ea_object_property_list ()
'(("AcDb3dPolyline"
((Closed "闭合") (ConstantWidth "全局宽度"))
""
)
("AcDbArc"
((Radius "半径")
(Thickness "厚度")
(Center "圆心")
(StartPoint "起点")
(Endpoint "端点")
(StartAngle "起始角")
(EndAngle "终止角")
(Normal "法向")
)
"0 1"
)
("AcDbAttribute"
((StyleName "字体")
(TextString "文字")
(Height "高度")
(ScaleFactor "字宽")
(Rotation "旋转角")
(ObliqueAngle "倾角")
(Backward "反向")
(UpsideDown "颠倒")
(Alignment "对齐方式")
(Mode "模式")
(Verify "校验")
(Preset "预置")
(Constand "固定属性")
(TextGenerationFlag "文字标志")
(InsertionPoint "插入点")
(TextAlignmentPoint "字对齐点")
(VerticaAlignment "垂直对齐")
(HorzontalAlignment "水平对齐")
(Thickness "厚度")
(Normal "法向")
)
"0 2 3 4 5"
)
("AcDbAttributeReference"
((TextString "文字")
(textstyle "字体")
(Rotation "旋转角")
(ScaleFactor "字宽")
(Height "字高")
(ObliqueAngle "倾角")
(Backward "反向")
(UpsideDown "颠倒")
(Alignment "对齐方式")
(FieldLength "字段长度")
(TextAlignmentPoint "对齐点")
(InsertionPoint "插入点")
(Invisible "不可见模式")
(TagString "标记字串")
(TextGenerationFlag "文字生成")
(VerticalAlignment "垂直对齐")
(HorizontalAlignment "水平对齐")
(Thickness "厚度")
(Normal "法向")
)
"0 1 2 3 4 5"
)
("AcDbBlockReference"
((Name "块名")
(Rotation "转角")
(XScaleFactor "X比例")
(YScaleFactor "Y比例")
(ZScaleFactor "Z比例")
(Normal "法向")
(InsertionPoint "插入点")
)
"1 2 3 4"
)
("AcDbCircle"
((Thickness "厚度")
(Radius "半径")
(Diameter "直径")
(Area "面积")
(Circumference "周长")
(Center "圆心")
(Normal "法向")
)
"0"
)
("AcDbDim3PointAngular"
((StyleName "标注样式") ;_0
(ScaleFactor "比例因子") ;_1
(AngleFormat "单位格式") ;_2
(DimLine1Suppress "消第一尺寸线") ;_3
(DimLine2Suppress "消第二尺寸线") ;_4
(DecimalSeparator "小数分隔符") ;_5
(DimensionLineColor "尺寸线颜色") ;_6
(ExtensionLineColor "尺寸界限颜色")
(TextColor "字颜色")
(DimensionLineWeight "尺寸线宽")
(ExtensionLineWeight "界限线宽")
(ExtensionLineExtend "超出距离")
(ExtensionLineOffset "起点偏移")
(ExtLine1EndPoint "第一尺寸界限终点")
(ExtLine2EndPoint "第二尺寸界限终点")
(ExtLine1Suppress "第一尺寸界限")
(ExtLine2Suppress "第二尺寸界限")
(Fit "适合布局")
(HorizontalTextPosition "标注文字水平对齐")
(TextInside "强制内部写字")
(TextInsideAlign "字随标注")
(TextMovement "字移动位置")
(TextOutsideAlign "字线外方向")
(Rotation "旋转角")
(TextGap "字线间距")
(TextHeight "字高")
(TextOverride "替代文字")
(TextPosition "文字位置")
(TextPrecision "文字精度")
(TextPrefix "文字前缀")
(TextRotation "文字角度")
(TextStyle "文字字体")
(TextSuffix "文字后缀")
(ArrowheadSize "箭头尺寸")
(Arrowhead1Block "第一箭头")
(Arrowhead2Block "第二箭头")
(Arrowhead1Type "第一箭头类型")
(Arrowhead2Type "第二箭头类型")
(ForceLineInside "强制绘制尺寸线")
(DimLineInside "绘制尺寸线")
(SuppressLeadingZeros "消前导零")
(SuppressTrailingZeros "消后续零")
(AngleVertex "角顶点")
(ToleranceDisplay "公差显示模式")
(ToleranceHeightScale "公差比例因子")
(ToleranceJustification "公差垂直对正")
(ToleranceLowerLimit "最小公差极限尺寸")
(TolerancePrecision "公差精度")
(ToleranceSuppressLeadingZeros "公差前导零")
(ToleranceSuppressTrailingZeros "公差后续零")
(ToleranceUpperLimit "最大公差极限尺寸")
(VerticalTextPosition "文字垂直位置")
(Normal "法向")
)
"0"
)
("AcDbAligned"
((StyleName "标注样式")
(LinearScaleFactor "线性比例")
(Arrowhead1Block "第一箭头")
(Arrowhead1Type "第一箭头类型")
(Arrowhead2Block "第二箭头")
(Arrowhead2Type "第二箭头类型")
(ArrowheadSize "箭头尺寸")
(DecimalSeparator "小数点分隔符")
(DimensionLineColor "尺寸线颜色")
(DimensionLineExtend "尺寸线超出界线值")
(DimensionLineWeight "尺寸线宽")
(DimLine1Suppress "第一尺寸线")
(DimLine2Suppress "第二尺寸线")
(DimLineInside "绘制尺寸线")
(ExtensionLineColor "尺寸界限颜色")
(ExtensionLineExtend "超出距离")
(ExtensionLineOffset "起点偏移")
(ExtensionLineWeight "界限线宽")
)
"0"
)
;|(ExtLine1Point)
ExtLine2Point ExtLine1Suppress
ExtLine2Suppress Fit
ForceLineInside FractionFormat
HorizontalTextPosition Measurement
Normal PrimaryUnitsPrecision
Rotation RoundDistance
ScaleFactor SuppressLeadingZeros
SuppressTrailingZeros SuppressZeroFeet
SuppressZeroInches TextColor
TextGap TextHeight
TextInside TextInsideAlign
TextMovement TextOutsideAlign
TextOverride TextPosition
TextPrefix TextRotation
TextStyle TextSuffix
ToleranceDisplay ToleranceHeightScale
ToleranceJustification ToleranceLowerLimit
TolerancePrecision ToleranceSuppressLeadingZeros
ToleranceSuppressTrailingZeros
ToleranceSuppressZeroInches
ToleranceSuppressZeroFeet ToleranceUpperLimit
UnitsFormat VerticalTextPosition
AltRoundDistance AltSuppressLeadingZeros
AltSuppressTrailingZeros AltSuppressZeroInches
AltSuppressZeroFeet AltTextPrefix
AltTextSuffix AltTolerancePrecision
AltToleranceSuppressLeadingZeros
AltToleranceSuppressTrailingZeros
AltToleranceSuppressZeroFeet
AltToleranceSuppressZeroInches
AltUnitsFormat AltUnits
AltUnitsPrecision AltUnitsScale
"第一尺寸界限点" "第二尺寸界限点" "第一尺寸界限"
"第二尺寸界限" "适合布局" "强制绘制尺寸线"
"分数类型" "标注文字水平对齐" "测量单位"
"法向" "文字精度" "转角"
"舍入值" "比例因子" "消前导零"
"消后续零" "消去标注的零英尺" "消去标注的零英寸"
"字颜色" "字线间距" "字高"
"强制内部写字" "字随标注" "字移动位置"
"字线外方向" "手动文字" "文字位置"
"文字前缀" "文字角度" "文字字体"
"文字后缀" "公差显示模式" "公差比例因子"
"公差垂直对正" "最小公差极限尺寸" "公差精度"
"公差前导零" "公差后续零" "消单位公差值的零英寸"
"消单位公差值的零英尺" "最大公差极限尺寸"
"单位格式" "文字垂直位置" "换算单位距离舍入值"
"换算消前导零" "换算消后续零" "消换算零英寸"
"换算消零英尺" "换算文字前缀" "换算文字后缀"
"换算公差精度" "换算单位公差值的前导零"
"换算单位公差值的后续零"
"换算单位公差值的零英尺"
"换算单位公差值的零英寸"
"换算单位标注的单位格式" "显示换算单位标注"
"换算单位中小数精度" "换算单位的比例因子"|;
("AcDbAngular" ((StyleName "标注样式")) "0")
;|AngleFormat
Arrowhead1Block Arrowhead1Type
Arrowhead2Block Arrowhead2Type
ArrowheadSize DecimalSeparator
DimensionLineColor DimensionLineWeight
DimLine1Suppress DimLine2Suppress
DimLineInside ExtensionLineColor
ExtensionLineExtend ExtensionLineOffset
ExtensionLineWeight ExtLine1EndPoint
ExtLine1StartPoint ExtLine1Suppress
ExtLine2EndPoint ExtLine2StartPoint
ExtLine2Suppress Fit
ForceLineInside HorizontalTextPosition
Measurement Normal
Rotation ScaleFactor
SuppressLeadingZeros SuppressTrailingZeros
TextColor TextGap
TextHeight TextInside
TextInsideAlign TextMovement
TextOutsideAlign TextOverride
TextPosition TextPrecision
TextPrefix TextRotation
TextStyle TextSuffix
ToleranceDisplay ToleranceHeightScale
ToleranceJustification ToleranceLowerLimit
TolerancePrecision ToleranceSuppressLeadingZeros
ToleranceSuppressTrailingZeros
ToleranceUpperLimit VerticalTextPosition
)
|;
("AcDbDimDiametric" ((StyleName "标注样式")) "0")
;|(Arrowhead1Block
Arrowhead1Type Arrowhead2Block
Arrowhead2Type ArrowheadSize
CenterMarkSize CenterType
DecimalSeparator DimensionLineColor
DimensionLineWeight DimLine1Suppress
DimLine2Suppress ExtensionLineOffset
Fit ForceLineInside
FractionFormat HorizontalTextPosition
LeaderLength LinearScaleFactor
LinetypeScale Measurement
Normal PrimaryUnitsPrecision
Rotation RoundDistance
ScaleFactor SuppressLeadingZeros
SuppressTrailingZeros SuppressZeroFeet
SuppressZeroInches TextColor
TextGap TextHeight
TextInside TextInsideAlign
TextMovement TextOutsideAlign
TextOverride TextPosition
TextPrefix TextRotation
TextStyle TextSuffix
ToleranceDisplay ToleranceHeightScale
ToleranceJustification ToleranceLowerLimit
TolerancePrecision ToleranceSuppressLeadingZeros
ToleranceSuppressTrailingZeros
ToleranceSuppressZeroInches
ToleranceSuppressZeroFeet ToleranceUpperLimit
UnitsFormat VerticalTextPosition
AltRoundDistance AltSuppressLeadingZeros
AltSuppressTrailingZeros AltSuppressZeroInches
AltSuppressZeroFeet AltTextPrefix
AltTextSuffix AltTolerancePrecision
AltToleranceSuppressLeadingZeros
AltToleranceSuppressTrailingZeros
AltToleranceSuppressZeroInches
AltToleranceSuppressZeroFeet
AltUnitsFormat AltUnits
AltUnitsPrecision AltUnitsScale
)
("Arrowhead1Block" "Arrowhead1Type"
"Arrowhead2Block" "Arrowhead2Type"
"ArrowheadSize" "CenterMarkSize"
"CenterType" "DecimalSeparator"
"DimensionLineColor" "DimensionLineWeight"
"DimLine1Suppress" "DimLine2Suppress"
"ExtensionLineOffset" "Fit"
"ForceLineInside" "FractionFormat"
"HasExtensionDictionary" "HorizontalTextPosition"
"LeaderLength" "线形比例"
"测量单位" "法向"
"PrimaryUnitsPrecision" "转角"
"RoundDistance" "比例因子"
"标注样式" "消前导零"
"消后续零" "SuppressZeroFeet"
"SuppressZeroInches" "字颜色"
"字线间距" "字高"
"强制内部写字" "字随标注"
"字移动位置" "字线外方向"
"手动文字" "文字位置"
"文字精度" "文字前缀"
"文字角度" "文字字体"
"文字后缀" "公差显示模式"
"公差比例因子" "公差垂直对正"
"最小公差极限尺寸" "公差精度"
"公差前导零" "公差后续零"
"差值的零英寸" "差值的零英尺"
"最大公差极限尺寸" "单位格式"
"文字垂直位置" "AltRoundDistance"
"AltSuppressLeadingZeros"
"AltSuppressTrailingZeros"
"AltSuppressZeroInches" "AltSuppressZeroFeet"
"AltTextPrefix" "AltTextSuffix"
"AltTolerancePrecision" "AltToleranceSuppressLeadingZeros"
"AltToleranceSuppressTrailingZeros"
"AltToleranceSuppressZeroInches"
"AltToleranceSuppressZeroFeet"
"AltUnitsFormat" "AltUnits"
"AltUnitsPrecision" "AltUnitsScale"
)|;
("AcDbDimOrdinate" ((StyleName "标注样式")) "0")
;|( ArrowheadSize
DecimalSeparator DimensionLineWeight
ExtensionLineColor ExtensionLineOffset
FractionFormat LinearScaleFactor
Measurement Normal
PrimaryUnitsPrecision Rotation
RoundDistance ScaleFactor
SuppressLeadingZeros SuppressTrailingZeros
SuppressZeroFeet SuppressZeroInches
TextColor TextGap
TextHeight TextMovement
TextOverride TextPosition
TextPrefix TextRotation
TextStyle TextSuffix
ToleranceDisplay ToleranceHeightScale
ToleranceJustification ToleranceLowerLimit
TolerancePrecision ToleranceSuppressLeadingZeros
ToleranceSuppressTrailingZeros
ToleranceSuppressZeroInches
ToleranceSuppressZeroFeet ToleranceUpperLimit
UnitsFormat VerticalTextPosition
AltRoundDistance AltSuppressLeadingZeros
AltSuppressTrailingZeros AltSuppressZeroInches
AltSuppressZeroFeet AltTextPrefix
AltTextSuffix AltTolerancePrecision
AltToleranceSuppressLeadingZeros
AltToleranceSuppressTrailingZeros
AltToleranceSuppressZeroInches
AltToleranceSuppressZeroFeet
AltUnitsFormat AltUnits
AltUnitsPrecision AltUnitsScale
)|;
("AcDbDimRadial" ((StyleName "标注样式")) "0")
;|( ArrowheadBlock
ArrowheadType ArrowheadSize
CenterMarkSize CenterType
DecimalSeparator DimensionLineColor
DimensionLineWeight DimLineSuppress
ExtensionLineOffset
Fit ForceLineInside
FractionFormat HorizontalTextPosition
LeaderLength LinearScaleFactor
Measurement Normal
PrimaryUnitsPrecision Rotation
RoundDistance ScaleFactor
SuppressLeadingZeros SuppressTrailingZeros
SuppressZeroFeet SuppressZeroInches
TextColor TextGap
TextHeight TextInside
TextInsideAlign TextMovement
TextOutsideAlign TextOverride
TextPosition TextPrefix
TextRotation TextStyle
TextSuffix ToleranceDisplay
ToleranceHeightScale ToleranceJustification
ToleranceLowerLimit TolerancePrecision
ToleranceSuppressLeadingZeros
ToleranceSuppressTrailingZeros
ToleranceSuppressZeroInches
ToleranceSuppressZeroFeet ToleranceUpperLimit
UnitsFormat VerticalTextPosition
AltRoundDistance AltSuppressLeadingZeros
AltSuppressTrailingZeros AltSuppressZeroInches
AltSuppressZeroFeet AltTextPrefix
AltTextSuffix AltTolerancePrecision
AltToleranceSuppressLeadingZeros
AltToleranceSuppressTrailingZeros
AltToleranceSuppressZeroInches
AltToleranceSuppressZeroFeet
AltUnitsFormat AltUnits
AltUnitsPrecision AltUnitsScale
)|;
("AcDbDimRotated" ((StyleName "标注样式")) "0")
;|Arrowhead1Block
Arrowhead1Type Arrowhead2Block
Arrowhead2Type ArrowheadSize
DecimalSeparator DimensionLineColor
DimensionLineExtend DimensionLineWeight
DimLine1Suppress DimLine2Suppress
DimLineInside ExtensionLineColor
ExtensionLineExtend ExtensionLineOffset
ExtensionLineWeight ExtLine1Suppress
ExtLine2Suppress Fit
ForceLineInside FractionFormat
HorizontalTextPosition LinearScaleFactor
Measurement Normal
PrimaryUnitsPrecision Rotation
RoundDistance ScaleFactor
SuppressLeadingZeros SuppressTrailingZeros
SuppressZeroFeet SuppressZeroInches
TextColor TextGap
TextHeight TextInside
TextInsideAlign TextMovement
TextOutsideAlign TextOverride
TextPosition TextPrefix
TextRotation TextStyle
TextSuffix ToleranceDisplay
ToleranceHeightScale ToleranceJustification
ToleranceLowerLimit TolerancePrecision
ToleranceSuppressLeadingZeros
ToleranceSuppressTrailingZeros
ToleranceSuppressZeroInches
ToleranceSuppressZeroFeet ToleranceUpperLimit
UnitsFormat VerticalTextPosition
AltRoundDistance AltSuppressLeadingZeros
AltSuppressTrailingZeros AltSuppressZeroInches
AltSuppressZeroFeet AltTextPrefix
AltTextSuffix AltTolerancePrecision
AltToleranceSuppressLeadingZeros
AltToleranceSuppressTrailingZeros
AltToleranceSuppressZeroInches
AltToleranceSuppressZeroFeet
AltUnitsFormat AltUnits
AltUnitsPrecision AltUnitsScale
)|;
("AcDbEllipse"
((StartAngle "起始角")
(EndAngle "终止角")
(StartParameter "起始参数")
(EndParameter "终止参数")
(Center "中心")
(StartPoint "起点")
(EndPoint "终点")
(MajorAxis "长轴方向")
(MinorAxis "短轴方向")
(MajorRadius "长轴半径")
(MinorRadius "短轴半径")
(Normal "法向")
(RadiusRatio "半径比")
)
"0 1 2"
)
("AcDbExternalReference"
((Name "名称")
(Rotation "转角")
(XScaleFactor "X比例")
(YScaleFactor "Y比例")
(ZScaleFactor "Z比例")
(InsertionPoint "插入点")
(Normal "法向")
)
"1 2 3 4"
)
("AcDbHatch"
((PatternName "图案名称")
(HatchStyle "填充方式")
(HatchObjectType "填充类型")
(PatternScale "图案比例")
(PatternAngle "图案角度")
(ISOPenWidth "ISO笔宽")
(Normal "法向")
(Elevation "标高")
(PatternDouble "是否双向")
(PatternSpace "图案间距")
(GradientName "渐变图案名称")
(GradientAngle "渐变填充角度")
(GradientCentered "渐变填充方式")
(GradientColor1 "起始颜色")
(GradientColor2 "结束颜色")
)
"0 1 2 3 4"
)
("AcDbLeader"
((StyleName "样式")
(ArrowheadBlock "自定义箭头块")
(ArrowheadSize "箭头大小")
(ArrowheadType "箭头类型")
(DimensionLineColor "尺寸线颜色")
(ScaleFactor "比例因子")
(TextGap "字线间距")
(Normal "法向")
("Type" "类型")
(Coordinates "顶点集")
(Annotation "注释对象")
(VerticalTextPosition "文字垂直位置")
)
"0"
)
("AcDbLightweightPolyline"
((Closed "闭合")
(ConstantWidth "全局宽度")
(Thickness "厚度")
(Elevation "标高")
(LinetypeGeneration "生成方式")
(Normal "法向")
(Coordinates "顶点集")
)
"0 1 2 3 4"
)
("AcDbLine"
((Thickness "厚度")
(StartPoint "起点")
(EndPoint "终点")
(Normal "法向")
)
"0"
)
("AcDbMInsertBlock"
((Rows "行数")
(Columns "列数")
(RowSpacing "行间距")
(ColumnSpacing "列间距")
(Rotation "转角")
(Name "块名")
(InsertionPoint "插入点")
(Normal "法向")
(XScaleFactor "X比例")
(YScaleFactor "Y比例")
(ZScaleFactor "Z比例")
)
"0 1 2 3"
)
("AcDbMLine"
((StyleName "样式") (Coordinates "顶点集"))
"0"
)
("AcDbMText"
((Textstyle "字体")
(Height "字高")
(Rotation "旋转角")
(LineSpacingDistance "行间距")
(LineSpacingFactor "行间距比例")
(LineSpacingStyle "行间距样式")
(AttachmentPoint "附着点")
(BackgroundFill "背景填充")
(TextString "文字")
(Width "宽度")
(DrawingDirection "阅读方向")
(InsertionPoint "插入点")
(Normal "法向")
)
"0 1 2 3 4"
)
("AcDbPoint"
((Coordinates "顶点") (Normal "法向") (Thickness "厚度"))
"0 2"
)
("AcDbPolyfaceMesh" (Coordinates) ("顶点集") "")
("AcDbPolygonMesh"
((MClose "M向闭合")
(NClose "N向闭合")
(MDensity "M向密度")
(NDensity "N向密度")
("Type" "类型")
(Coordinate "顶点")
)
"0 1 2"
)
("AcDbPolyline"
((Closed "闭合")
(Elevation "标高")
(ConstandWidth "全局宽度")
(LinetypeGeneration "线形生成")
(Thickness "厚度")
("Type" "类型")
(Coordinates "顶点")
(Normal "法向")
)
"0 1 2 3"
)
("AcDbRaster"
((Brightness "亮度")
(Transparency "透明度")
(Fade "褪色度")
(Contrast "对比度")
(ClippingEnabled "裁剪边界")
(ImageVisibility "可见性")
(ShowRotation "旋转显示")
(ImageFile "文件")
(Name "名称")
(Origin "原点")
(Rotation "旋转角")
(ScaleFactor "比例因子")
(ImageHeight "图像高度")
(ImageWidth "图像宽度")
(Width "像素宽度")
(Height "像素高度")
)
"0 1 2 3"
)
("AcDbRay"
((BasePoint "基点")
(DirectionVector "方向")
(SecondPoint "第二点")
)
"1"
)
("AcDbRegion" ((Normal "法向")) "0")
("AcDbShape"
((Name "名称")
(Height "高度")
(ObliqueAngle "倾角")
(Rotation "旋转角")
(ScaleFactor "宽度因子")
(Thickness "厚度")
(InsertionPoint "插入点")
(Normal "法向")
)
"0"
)
("AcDbSolid"
((Thickness "厚度") (Normal "法向") (Coordinates "顶点"))
"0"
)
("AcDbSpline"
((Closed "闭合")
(ControlPoints "控制点")
(FitPoints "拟合点")
(EndTangent "终点切向")
(StartTangent "起点切向")
(FitTolerance "公差值")
(Knots "节点矢量")
(Weights "权值矢量")
)
"0"
)
("AcDbTable"
((StyleName "表样式")
(RowHeight "行高")
(ColumnWidth "列宽")
(Rows "行数")
(Columns "列数")
(FlowDirection "表流向")
(TitleSuppressed "标题")
(HeaderSuppressed "页眉")
(Width "表格宽度")
(Height "表格高度")
(HorzCellMargin "水平合并")
(VertCellMargin "竖向合并")
)
"0 1 2"
)
("AcDbText"
((StyleName "字体")
(Height "字高")
(Rotation "旋转角")
(TextString "文字")
(ObliqueAngle "倾角")
(ScaleFactor "字宽")
(Backward "反向")
(UpsideDown "颠倒")
(Thickness "厚度")
(Alignment "对齐方式")
(InsertionPoint "插入点")
(TextAlignmentPoint "对齐点")
(TextGenerationFlag "生成标志")
(HorizontalAlignment "水平对齐")
(VerticalAlignment "垂直对齐")
(Normal "法线")
)
"0 2 3"
)
("AcDbTolerance"
((StyleName "样式")
(TextStyle "字体")
(TextHeight "字高")
(PrimaryUnitsPrecision "小数位数")
(ScaleFactor "比例因子")
(TextColor "字颜色")
(TextString "文字")
(DecimalSeparator "小数点分隔符")
(DimensionLineColor "尺寸线颜色")
(Arrowhead1Type "第一箭头类型")
(DirectionVector "构造线方向")
(FractionFormat "分数类型")
(InsertionPoint "插入点")
(Normal "法线")
)
"0"
)
("AcDbXLine"
((BasePoint "基点")
(DirectionVector "方向")
(SecondPoint "第二点")
)
"0 1"
)
("TDbWall"
((Material "材料")
(Height "墙高")
(RightWidth "右厚度")
(LeftWidth "左厚度")
(Scale "出图比例")
(EndClose "墙端开口")
(EnUsage "内外特征")
(Style "材料")
(Usage "用途")
)
""
)
("TDbOpening"
((Label "编号")
(Scale "出图比例")
(TextHeight "字体高度")
(Height "门高")
(Width "门宽")
)
""
)
("TDbColumn"
((Height "柱高")
(Material "材料") ;_钢砼 40 砖 50 石材 70 金属
(Rotation "旋转")
(Scale "出图比例")
(SectionShape "柱子类型")
(SizeU "柱宽")
(SizeV "柱高")
)
""
)
("TDbAxisLabelSet"
((CirRadius "轴圈半径")
(LeaderLen1 "引线长度一")
(LeaderLen2 "引线长度二")
(Scale "出图比例")
(TextStyle "字体")
)
""
)
("TDbLineStair"
(("SegHeight" "梯段高度")
;(StepWidth "踏步宽度")
;(StepNum "踏步数")
;(StepHeight "踏步高度")
;("SegLength" "梯段长度")
(LeftBeam "左扶手")
(RightBeam "右扶手")
(SectionStyle "剖断类型")
("SegWidth" "梯段宽度")
)
""
)
("TDbBlockInsert"
((XEffectiveScaleFactor "X比例")
(YEffectiveScaleFactor "Y比例")
(ZEffectiveScaleFactor "Z比例")
(Rotation "转角")
)
""
)
)
)

;|使用说明 
添加自定义实体的属性 
子表格式 (ObjectName ((Property1 Name1) ...) key) 
其中： ObjectName 自定义实体的 ObjectName 用 vla-get-ObjectName 得到的字串 
       Property 可读写的属性，用 vlax-property-available-p 可查看是否 modified 
       Name   对应属性的中文名称 
       Key        默认的匹配选项, 为以空格分隔的索引数, 不设时为 "" 
注意： 1 Property 和 Name 必须一一对应 
       2 当特性名称为 SYM 时加引号 
 Writen By eachy Email: eachy<a href=\"http://bbs.xdcad.net/home.php?mod=space&uid=493831\" target=\"_blank\">@21cn.com</a> 2005.03.09 
|; 
(defun ea_object_property_list () 
  '(("AcDb3dPolyline" 
     ((Closed "闭合") (ConstantWidth "全局宽度")) 
     "" 
    ) 
    ("AcDbArc" 
     ((Radius "半径") 
      (Thickness "厚度") 
      (Center "圆心") 
      (StartPoint "起点") 
      (Endpoint "端点") 
      (StartAngle "起始角") 
      (EndAngle "终止角") 
      (Normal "法向") 
     ) 
     "0 1" 
    ) 
    ("AcDbAttribute" 
     ((StyleName "字体") 
      (TextString "文字") 
      (Height "高度") 
      (ScaleFactor "字宽") 
      (Rotation "旋转角") 
      (ObliqueAngle "倾角") 
      (Backward "反向") 
      (UpsideDown "颠倒") 
      (Alignment "对齐方式") 
      (Mode "模式") 
      (Verify "校验") 
      (Preset "预置") 
      (Constand "固定属性") 
      (TextGenerationFlag "文字标志") 
      (InsertionPoint "插入点") 
      (TextAlignmentPoint "字对齐点") 
      (VerticaAlignment "垂直对齐") 
      (HorzontalAlignment "水平对齐") 
      (Thickness "厚度") 
      (Normal "法向") 
     ) 
     "0 2 3 4 5" 
    ) 
    ("AcDbAttributeReference" 
     ((TextString "文字") 
      (textstyle "字体") 
      (Rotation "旋转角") 
      (ScaleFactor "字宽") 
      (Height "字高") 
      (ObliqueAngle "倾角") 
      (Backward "反向") 
      (UpsideDown "颠倒") 
      (Alignment "对齐方式") 
      (FieldLength "字段长度") 
      (TextAlignmentPoint "对齐点") 
      (InsertionPoint "插入点") 
      (Invisible "不可见模式") 
      (TagString "标记字串") 
      (TextGenerationFlag "文字生成") 
      (VerticalAlignment "垂直对齐") 
      (HorizontalAlignment "水平对齐") 
      (Thickness "厚度") 
      (Normal "法向") 
     ) 
     "0 1 2 3 4 5" 
    ) 
    ("AcDbBlockReference" 
     ((Name "块名") 
      (Rotation "转角") 
      (XScaleFactor "X比例") 
      (YScaleFactor "Y比例") 
      (ZScaleFactor "Z比例") 
      (Normal "法向") 
      (InsertionPoint "插入点") 
     ) 
     "1 2 3 4" 
    ) 
    ("AcDbCircle" 
     ((Thickness "厚度") 
      (Radius "半径") 
      (Diameter "直径") 
      (Area "面积") 
      (Circumference "周长") 
      (Center "圆心") 
      (Normal "法向") 
     ) 
     "0" 
    ) 
    ("AcDbDim3PointAngular" 
     ((StyleName "标注样式") ;_0 
      (ScaleFactor "比例因子") ;_1 
      (AngleFormat "单位格式") ;_2 
      (DimLine1Suppress "消第一尺寸线") ;_3 
      (DimLine2Suppress "消第二尺寸线") ;_4 
      (DecimalSeparator "小数分隔符") ;_5 
      (DimensionLineColor "尺寸线颜色") ;_6 
      (ExtensionLineColor "尺寸界限颜色") 
      (TextColor "字颜色") 
      (DimensionLineWeight "尺寸线宽") 
      (ExtensionLineWeight "界限线宽") 
      (ExtensionLineExtend "超出距离") 
      (ExtensionLineOffset "起点偏移") 
      (ExtLine1EndPoint "第一尺寸界限终点") 
      (ExtLine2EndPoint "第二尺寸界限终点") 
      (ExtLine1Suppress "第一尺寸界限") 
      (ExtLine2Suppress "第二尺寸界限") 
      (Fit "适合布局") 
      (HorizontalTextPosition "标注文字水平对齐") 
      (TextInside "强制内部写字") 
      (TextInsideAlign "字随标注") 
      (TextMovement "字移动位置") 
      (TextOutsideAlign "字线外方向") 
      (Rotation "旋转角") 
      (TextGap "字线间距") 
      (TextHeight "字高") 
      (TextOverride "替代文字") 
      (TextPosition "文字位置") 
      (TextPrecision "文字精度") 
      (TextPrefix "文字前缀") 
      (TextRotation "文字角度") 
      (TextStyle "文字字体") 
      (TextSuffix "文字后缀") 
      (ArrowheadSize "箭头尺寸") 
      (Arrowhead1Block "第一箭头") 
      (Arrowhead2Block "第二箭头") 
      (Arrowhead1Type "第一箭头类型") 
      (Arrowhead2Type "第二箭头类型") 
      (ForceLineInside "强制绘制尺寸线") 
      (DimLineInside "绘制尺寸线") 
      (SuppressLeadingZeros "消前导零") 
      (SuppressTrailingZeros "消后续零") 
      (AngleVertex "角顶点") 
      (ToleranceDisplay "公差显示模式") 
      (ToleranceHeightScale "公差比例因子") 
      (ToleranceJustification "公差垂直对正") 
      (ToleranceLowerLimit "最小公差极限尺寸") 
      (TolerancePrecision "公差精度") 
      (ToleranceSuppressLeadingZeros "公差前导零") 
      (ToleranceSuppressTrailingZeros "公差后续零") 
      (ToleranceUpperLimit "最大公差极限尺寸") 
      (VerticalTextPosition "文字垂直位置") 
      (Normal "法向") 
     ) 
     "0" 
    ) 
    ("AcDbAligned" 
     ((StyleName "标注样式") 
      (LinearScaleFactor "线性比例") 
      (Arrowhead1Block "第一箭头") 
      (Arrowhead1Type "第一箭头类型") 
      (Arrowhead2Block "第二箭头") 
      (Arrowhead2Type "第二箭头类型") 
      (ArrowheadSize "箭头尺寸") 
      (DecimalSeparator "小数点分隔符") 
      (DimensionLineColor "尺寸线颜色") 
      (DimensionLineExtend "尺寸线超出界线值") 
      (DimensionLineWeight "尺寸线宽") 
      (DimLine1Suppress "第一尺寸线") 
      (DimLine2Suppress "第二尺寸线") 
      (DimLineInside "绘制尺寸线") 
      (ExtensionLineColor "尺寸界限颜色") 
      (ExtensionLineExtend "超出距离") 
      (ExtensionLineOffset "起点偏移") 
      (ExtensionLineWeight "界限线宽") 
     ) 
     "0" 
    ) 
    ;|(ExtLine1Point) 
       ExtLine2Point        ExtLine1Suppress 
      ExtLine2Suppress        Fit 
      ForceLineInside        FractionFormat 
      HorizontalTextPosition    Measurement 
      Normal            PrimaryUnitsPrecision 
      Rotation            RoundDistance 
      ScaleFactor        SuppressLeadingZeros 
      SuppressTrailingZeros    SuppressZeroFeet 
      SuppressZeroInches    TextColor 
      TextGap            TextHeight 
      TextInside        TextInsideAlign 
      TextMovement        TextOutsideAlign 
      TextOverride        TextPosition 
      TextPrefix        TextRotation 
      TextStyle            TextSuffix 
      ToleranceDisplay        ToleranceHeightScale 
      ToleranceJustification    ToleranceLowerLimit 
      TolerancePrecision    ToleranceSuppressLeadingZeros 
      ToleranceSuppressTrailingZeros 
      ToleranceSuppressZeroInches 
      ToleranceSuppressZeroFeet    ToleranceUpperLimit 
      UnitsFormat        VerticalTextPosition 
      AltRoundDistance        AltSuppressLeadingZeros 
      AltSuppressTrailingZeros    AltSuppressZeroInches 
      AltSuppressZeroFeet    AltTextPrefix 
      AltTextSuffix        AltTolerancePrecision 
      AltToleranceSuppressLeadingZeros 
      AltToleranceSuppressTrailingZeros 
      AltToleranceSuppressZeroFeet 
      AltToleranceSuppressZeroInches 
      AltUnitsFormat        AltUnits 
      AltUnitsPrecision        AltUnitsScale                
      "第一尺寸界限点"        "第二尺寸界限点"      "第一尺寸界限" 
      "第二尺寸界限"        "适合布局"          "强制绘制尺寸线" 
      "分数类型"        "标注文字水平对齐"      "测量单位" 
      "法向"            "文字精度"          "转角" 
      "舍入值"            "比例因子"          "消前导零" 
      "消后续零"        "消去标注的零英尺"      "消去标注的零英寸" 
      "字颜色"            "字线间距"          "字高" 
      "强制内部写字"        "字随标注"          "字移动位置" 
      "字线外方向"        "手动文字"          "文字位置" 
      "文字前缀"        "文字角度"          "文字字体" 
      "文字后缀"        "公差显示模式"      "公差比例因子" 
      "公差垂直对正"        "最小公差极限尺寸"      "公差精度" 
      "公差前导零"        "公差后续零"      "消单位公差值的零英寸" 
      "消单位公差值的零英尺"              "最大公差极限尺寸" 
      "单位格式"        "文字垂直位置"      "换算单位距离舍入值" 
      "换算消前导零"        "换算消后续零"      "消换算零英寸" 
      "换算消零英尺"        "换算文字前缀"      "换算文字后缀" 
      "换算公差精度"        "换算单位公差值的前导零" 
      "换算单位公差值的后续零" 
      "换算单位公差值的零英尺" 
      "换算单位公差值的零英寸" 
      "换算单位标注的单位格式"              "显示换算单位标注" 
      "换算单位中小数精度"  "换算单位的比例因子"|; 
    ("AcDbAngular" ((StyleName "标注样式")) "0") 
    ;|AngleFormat 
      Arrowhead1Block          Arrowhead1Type 
      Arrowhead2Block          Arrowhead2Type 
      ArrowheadSize          DecimalSeparator 
      DimensionLineColor      DimensionLineWeight 
      DimLine1Suppress          DimLine2Suppress 
      DimLineInside          ExtensionLineColor 
      ExtensionLineExtend     ExtensionLineOffset 
      ExtensionLineWeight     ExtLine1EndPoint 
      ExtLine1StartPoint      ExtLine1Suppress 
      ExtLine2EndPoint          ExtLine2StartPoint 
      ExtLine2Suppress          Fit 
      ForceLineInside          HorizontalTextPosition 
      Measurement          Normal 
      Rotation              ScaleFactor 
      SuppressLeadingZeros    SuppressTrailingZeros 
      TextColor              TextGap 
      TextHeight          TextInside 
      TextInsideAlign          TextMovement 
      TextOutsideAlign          TextOverride 
      TextPosition          TextPrecision 
      TextPrefix          TextRotation 
      TextStyle              TextSuffix 
      ToleranceDisplay          ToleranceHeightScale 
      ToleranceJustification  ToleranceLowerLimit 
      TolerancePrecision      ToleranceSuppressLeadingZeros 
      ToleranceSuppressTrailingZeros 
      ToleranceUpperLimit     VerticalTextPosition 
     ) 
     |; 
    ("AcDbDimDiametric" ((StyleName "标注样式")) "0") 
    ;|(Arrowhead1Block 
      Arrowhead1Type        Arrowhead2Block 
      Arrowhead2Type        ArrowheadSize 
      CenterMarkSize        CenterType 
      DecimalSeparator        DimensionLineColor 
      DimensionLineWeight    DimLine1Suppress 
      DimLine2Suppress        ExtensionLineOffset 
      Fit            ForceLineInside 
      FractionFormat        HorizontalTextPosition 
      LeaderLength        LinearScaleFactor 
      LinetypeScale        Measurement 
      Normal            PrimaryUnitsPrecision 
      Rotation            RoundDistance 
      ScaleFactor        SuppressLeadingZeros 
      SuppressTrailingZeros    SuppressZeroFeet 
      SuppressZeroInches    TextColor 
      TextGap            TextHeight 
      TextInside        TextInsideAlign 
      TextMovement        TextOutsideAlign 
      TextOverride        TextPosition 
      TextPrefix        TextRotation 
      TextStyle            TextSuffix 
      ToleranceDisplay        ToleranceHeightScale 
      ToleranceJustification    ToleranceLowerLimit 
      TolerancePrecision    ToleranceSuppressLeadingZeros 
      ToleranceSuppressTrailingZeros 
      ToleranceSuppressZeroInches 
      ToleranceSuppressZeroFeet    ToleranceUpperLimit 
      UnitsFormat        VerticalTextPosition 
      AltRoundDistance        AltSuppressLeadingZeros 
      AltSuppressTrailingZeros    AltSuppressZeroInches 
      AltSuppressZeroFeet    AltTextPrefix 
      AltTextSuffix        AltTolerancePrecision 
      AltToleranceSuppressLeadingZeros 
      AltToleranceSuppressTrailingZeros 
      AltToleranceSuppressZeroInches 
      AltToleranceSuppressZeroFeet 
      AltUnitsFormat        AltUnits 
      AltUnitsPrecision        AltUnitsScale 
     ) 
     ("Arrowhead1Block"           "Arrowhead1Type" 
      "Arrowhead2Block"           "Arrowhead2Type" 
      "ArrowheadSize"           "CenterMarkSize" 
      "CenterType"           "DecimalSeparator" 
      "DimensionLineColor"     "DimensionLineWeight" 
      "DimLine1Suppress"       "DimLine2Suppress" 
      "ExtensionLineOffset"    "Fit" 
      "ForceLineInside"           "FractionFormat" 
      "HasExtensionDictionary" "HorizontalTextPosition" 
      "LeaderLength"           "线形比例" 
      "测量单位"           "法向" 
      "PrimaryUnitsPrecision"  "转角" 
      "RoundDistance"           "比例因子" 
      "标注样式"           "消前导零" 
      "消后续零"           "SuppressZeroFeet" 
      "SuppressZeroInches"     "字颜色" 
      "字线间距"           "字高" 
      "强制内部写字"           "字随标注" 
      "字移动位置"           "字线外方向" 
      "手动文字"           "文字位置" 
      "文字精度"           "文字前缀" 
      "文字角度"           "文字字体" 
      "文字后缀"           "公差显示模式" 
      "公差比例因子"           "公差垂直对正" 
      "最小公差极限尺寸"       "公差精度" 
      "公差前导零"           "公差后续零" 
      "差值的零英寸"           "差值的零英尺" 
      "最大公差极限尺寸"       "单位格式" 
      "文字垂直位置"           "AltRoundDistance" 
      "AltSuppressLeadingZeros" 
      "AltSuppressTrailingZeros" 
      "AltSuppressZeroInches"  "AltSuppressZeroFeet" 
      "AltTextPrefix"           "AltTextSuffix" 
      "AltTolerancePrecision"  "AltToleranceSuppressLeadingZeros" 
      "AltToleranceSuppressTrailingZeros" 
      "AltToleranceSuppressZeroInches" 
      "AltToleranceSuppressZeroFeet" 
      "AltUnitsFormat"           "AltUnits" 
      "AltUnitsPrecision"      "AltUnitsScale" 
     )|; 
    ("AcDbDimOrdinate" ((StyleName "标注样式")) "0") 
    ;|( ArrowheadSize 
      DecimalSeparator         DimensionLineWeight 
      ExtensionLineColor     ExtensionLineOffset 
      FractionFormat         LinearScaleFactor 
      Measurement         Normal 
      PrimaryUnitsPrecision     Rotation 
      RoundDistance         ScaleFactor 
      SuppressLeadingZeros     SuppressTrailingZeros 
      SuppressZeroFeet         SuppressZeroInches 
      TextColor             TextGap 
      TextHeight         TextMovement 
      TextOverride         TextPosition 
      TextPrefix         TextRotation 
      TextStyle             TextSuffix 
      ToleranceDisplay         ToleranceHeightScale 
      ToleranceJustification     ToleranceLowerLimit 
      TolerancePrecision     ToleranceSuppressLeadingZeros 
      ToleranceSuppressTrailingZeros 
      ToleranceSuppressZeroInches 
      ToleranceSuppressZeroFeet     ToleranceUpperLimit 
      UnitsFormat         VerticalTextPosition 
      AltRoundDistance         AltSuppressLeadingZeros 
      AltSuppressTrailingZeros     AltSuppressZeroInches 
      AltSuppressZeroFeet     AltTextPrefix 
      AltTextSuffix         AltTolerancePrecision 
      AltToleranceSuppressLeadingZeros 
      AltToleranceSuppressTrailingZeros 
      AltToleranceSuppressZeroInches 
      AltToleranceSuppressZeroFeet 
      AltUnitsFormat         AltUnits 
      AltUnitsPrecision         AltUnitsScale 
     )|; 
    ("AcDbDimRadial" ((StyleName "标注样式")) "0") 
    ;|(            ArrowheadBlock 
      ArrowheadType        ArrowheadSize 
      CenterMarkSize        CenterType 
      DecimalSeparator        DimensionLineColor 
      DimensionLineWeight    DimLineSuppress 
                  ExtensionLineOffset 
      Fit            ForceLineInside 
      FractionFormat        HorizontalTextPosition 
      LeaderLength        LinearScaleFactor 
      Measurement        Normal 
      PrimaryUnitsPrecision    Rotation 
      RoundDistance        ScaleFactor 
      SuppressLeadingZeros    SuppressTrailingZeros 
      SuppressZeroFeet        SuppressZeroInches 
      TextColor            TextGap 
      TextHeight        TextInside 
      TextInsideAlign        TextMovement 
      TextOutsideAlign        TextOverride 
      TextPosition        TextPrefix 
      TextRotation        TextStyle 
      TextSuffix        ToleranceDisplay 
      ToleranceHeightScale    ToleranceJustification 
      ToleranceLowerLimit    TolerancePrecision 
      ToleranceSuppressLeadingZeros 
      ToleranceSuppressTrailingZeros 
      ToleranceSuppressZeroInches 
      ToleranceSuppressZeroFeet    ToleranceUpperLimit 
      UnitsFormat        VerticalTextPosition 
      AltRoundDistance        AltSuppressLeadingZeros 
      AltSuppressTrailingZeros    AltSuppressZeroInches 
      AltSuppressZeroFeet    AltTextPrefix 
      AltTextSuffix        AltTolerancePrecision 
      AltToleranceSuppressLeadingZeros 
      AltToleranceSuppressTrailingZeros 
      AltToleranceSuppressZeroInches 
      AltToleranceSuppressZeroFeet 
      AltUnitsFormat        AltUnits 
      AltUnitsPrecision        AltUnitsScale 
     )|; 
    ("AcDbDimRotated" ((StyleName "标注样式")) "0") 
    ;|Arrowhead1Block 
      Arrowhead1Type        Arrowhead2Block 
      Arrowhead2Type        ArrowheadSize 
      DecimalSeparator        DimensionLineColor 
      DimensionLineExtend    DimensionLineWeight 
      DimLine1Suppress        DimLine2Suppress 
      DimLineInside        ExtensionLineColor 
      ExtensionLineExtend    ExtensionLineOffset 
      ExtensionLineWeight    ExtLine1Suppress 
      ExtLine2Suppress        Fit 
      ForceLineInside        FractionFormat 
      HorizontalTextPosition    LinearScaleFactor 
      Measurement        Normal 
      PrimaryUnitsPrecision    Rotation 
      RoundDistance        ScaleFactor 
      SuppressLeadingZeros    SuppressTrailingZeros 
      SuppressZeroFeet        SuppressZeroInches 
      TextColor            TextGap 
      TextHeight        TextInside 
      TextInsideAlign        TextMovement 
      TextOutsideAlign        TextOverride 
      TextPosition        TextPrefix 
      TextRotation        TextStyle 
      TextSuffix        ToleranceDisplay 
      ToleranceHeightScale    ToleranceJustification 
      ToleranceLowerLimit    TolerancePrecision 
      ToleranceSuppressLeadingZeros 
      ToleranceSuppressTrailingZeros 
      ToleranceSuppressZeroInches 
      ToleranceSuppressZeroFeet    ToleranceUpperLimit 
      UnitsFormat        VerticalTextPosition 
      AltRoundDistance        AltSuppressLeadingZeros 
      AltSuppressTrailingZeros    AltSuppressZeroInches 
      AltSuppressZeroFeet    AltTextPrefix 
      AltTextSuffix        AltTolerancePrecision 
      AltToleranceSuppressLeadingZeros 
      AltToleranceSuppressTrailingZeros 
      AltToleranceSuppressZeroInches 
      AltToleranceSuppressZeroFeet 
      AltUnitsFormat        AltUnits 
      AltUnitsPrecision        AltUnitsScale 
     )|; 
    ("AcDbEllipse" 
     ((StartAngle "起始角") 
      (EndAngle "终止角") 
      (StartParameter "起始参数") 
      (EndParameter "终止参数") 
      (Center "中心") 
      (StartPoint "起点") 
      (EndPoint "终点") 
      (MajorAxis "长轴方向") 
      (MinorAxis "短轴方向") 
      (MajorRadius "长轴半径") 
      (MinorRadius "短轴半径") 
      (Normal "法向") 
      (RadiusRatio "半径比") 
     ) 
     "0 1 2" 
    ) 
    ("AcDbExternalReference" 
     ((Name "名称") 
      (Rotation "转角") 
      (XScaleFactor "X比例") 
      (YScaleFactor "Y比例") 
      (ZScaleFactor "Z比例") 
      (InsertionPoint "插入点") 
      (Normal "法向") 
     ) 
     "1 2 3 4" 
    ) 
    ("AcDbHatch" 
     ((PatternName "图案名称") 
      (HatchStyle "填充方式") 
      (HatchObjectType "填充类型") 
      (PatternScale "图案比例") 
      (PatternAngle "图案角度") 
      (ISOPenWidth "ISO笔宽") 
      (Normal "法向") 
      (Elevation "标高") 
      (PatternDouble "是否双向") 
      (PatternSpace "图案间距") 
      (GradientName "渐变图案名称") 
      (GradientAngle "渐变填充角度") 
      (GradientCentered "渐变填充方式") 
      (GradientColor1 "起始颜色") 
      (GradientColor2 "结束颜色") 
     ) 
     "0 1 2 3 4" 
    ) 
    ("AcDbLeader" 
     ((StyleName "样式") 
      (ArrowheadBlock "自定义箭头块") 
      (ArrowheadSize "箭头大小") 
      (ArrowheadType "箭头类型") 
      (DimensionLineColor "尺寸线颜色") 
      (ScaleFactor "比例因子") 
      (TextGap "字线间距") 
      (Normal "法向") 
      ("Type" "类型") 
      (Coordinates "顶点集") 
      (Annotation "注释对象") 
      (VerticalTextPosition "文字垂直位置") 
     ) 
     "0" 
    ) 
    ("AcDbLightweightPolyline" 
     ((Closed "闭合") 
      (ConstantWidth "全局宽度") 
      (Thickness "厚度") 
      (Elevation "标高") 
      (LinetypeGeneration "生成方式") 
      (Normal "法向") 
      (Coordinates "顶点集") 
     ) 
     "0 1 2 3 4" 
    ) 
    ("AcDbLine" 
     ((Thickness "厚度") 
      (StartPoint "起点") 
      (EndPoint "终点") 
      (Normal "法向") 
     ) 
     "0" 
    ) 
    ("AcDbMInsertBlock" 
     ((Rows "行数") 
      (Columns "列数") 
      (RowSpacing "行间距") 
      (ColumnSpacing "列间距") 
      (Rotation "转角") 
      (Name "块名") 
      (InsertionPoint "插入点") 
      (Normal "法向") 
      (XScaleFactor "X比例") 
      (YScaleFactor "Y比例") 
      (ZScaleFactor "Z比例") 
     ) 
     "0 1 2 3" 
    ) 
    ("AcDbMLine" 
     ((StyleName "样式") (Coordinates "顶点集")) 
     "0" 
    ) 
    ("AcDbMText" 
     ((Textstyle "字体") 
      (Height "字高") 
      (Rotation "旋转角") 
      (LineSpacingDistance "行间距") 
      (LineSpacingFactor "行间距比例") 
      (LineSpacingStyle "行间距样式") 
      (AttachmentPoint "附着点") 
      (BackgroundFill "背景填充") 
      (TextString "文字") 
      (Width "宽度") 
      (DrawingDirection "阅读方向") 
      (InsertionPoint "插入点") 
      (Normal "法向") 
     ) 
     "0 1 2 3 4" 
    ) 
    ("AcDbPoint" 
     ((Coordinates "顶点") (Normal "法向") (Thickness "厚度")) 
     "0 2" 
    ) 
    ("AcDbPolyfaceMesh" (Coordinates) ("顶点集") "") 
    ("AcDbPolygonMesh" 
     ((MClose "M向闭合") 
      (NClose "N向闭合") 
      (MDensity "M向密度") 
      (NDensity "N向密度") 
      ("Type" "类型") 
      (Coordinate "顶点") 
     ) 
     "0 1 2" 
    ) 
    ("AcDbPolyline" 
     ((Closed "闭合") 
      (Elevation "标高") 
      (ConstandWidth "全局宽度") 
      (LinetypeGeneration "线形生成") 
      (Thickness "厚度") 
      ("Type" "类型") 
      (Coordinates "顶点") 
      (Normal "法向") 
     ) 
     "0 1 2 3" 
    ) 
    ("AcDbRaster" 
     ((Brightness "亮度") 
      (Transparency "透明度") 
      (Fade "褪色度") 
      (Contrast "对比度") 
      (ClippingEnabled "裁剪边界") 
      (ImageVisibility "可见性") 
      (ShowRotation "旋转显示") 
      (ImageFile "文件") 
      (Name "名称") 
      (Origin "原点") 
      (Rotation "旋转角") 
      (ScaleFactor "比例因子") 
      (ImageHeight "图像高度") 
      (ImageWidth "图像宽度") 
      (Width "像素宽度") 
      (Height "像素高度") 
     ) 
     "0 1 2 3" 
    ) 
    ("AcDbRay" 
     ((BasePoint "基点") 
      (DirectionVector "方向") 
      (SecondPoint "第二点") 
     ) 
     "1" 
    ) 
    ("AcDbRegion" ((Normal "法向")) "0") 
    ("AcDbShape" 
     ((Name "名称") 
      (Height "高度") 
      (ObliqueAngle "倾角") 
      (Rotation "旋转角") 
      (ScaleFactor "宽度因子") 
      (Thickness "厚度") 
      (InsertionPoint "插入点") 
      (Normal "法向") 
     ) 
     "0" 
    ) 
    ("AcDbSolid" 
     ((Thickness "厚度") (Normal "法向") (Coordinates "顶点")) 
     "0" 
    ) 
    ("AcDbSpline" 
     ((Closed "闭合") 
      (ControlPoints "控制点") 
      (FitPoints "拟合点") 
      (EndTangent "终点切向") 
      (StartTangent "起点切向") 
      (FitTolerance "公差值") 
      (Knots "节点矢量") 
      (Weights "权值矢量") 
     ) 
     "0" 
    ) 
    ("AcDbTable" 
     ((StyleName "表样式") 
      (RowHeight "行高") 
      (ColumnWidth "列宽") 
      (Rows "行数") 
      (Columns "列数") 
      (FlowDirection "表流向") 
      (TitleSuppressed "标题") 
      (HeaderSuppressed "页眉") 
      (Width "表格宽度") 
      (Height "表格高度") 
      (HorzCellMargin "水平合并") 
      (VertCellMargin "竖向合并") 
     ) 
     "0 1 2" 
    ) 
    ("AcDbText" 
     ((StyleName "字体") 
      (Height "字高") 
      (Rotation "旋转角") 
      (TextString "文字") 
      (ObliqueAngle "倾角") 
      (ScaleFactor "字宽") 
      (Backward "反向") 
      (UpsideDown "颠倒") 
      (Thickness "厚度") 
      (Alignment "对齐方式") 
      (InsertionPoint "插入点") 
      (TextAlignmentPoint "对齐点") 
      (TextGenerationFlag "生成标志") 
      (HorizontalAlignment "水平对齐") 
      (VerticalAlignment "垂直对齐") 
      (Normal "法线") 
     ) 
     "0 2 3" 
    ) 
    ("AcDbTolerance" 
     ((StyleName "样式") 
      (TextStyle "字体") 
      (TextHeight "字高") 
      (PrimaryUnitsPrecision "小数位数") 
      (ScaleFactor "比例因子") 
      (TextColor "字颜色") 
      (TextString "文字") 
      (DecimalSeparator "小数点分隔符") 
      (DimensionLineColor "尺寸线颜色") 
      (Arrowhead1Type "第一箭头类型") 
      (DirectionVector "构造线方向") 
      (FractionFormat "分数类型") 
      (InsertionPoint "插入点") 
      (Normal "法线") 
     ) 
     "0" 
    ) 
    ("AcDbXLine" 
     ((BasePoint "基点") 
      (DirectionVector "方向") 
      (SecondPoint "第二点") 
     ) 
     "0 1" 
    ) 
    ("TDbWall" 
      ((Material "材料") 
    (Height "墙高") 
    (RightWidth "右厚度") 
    (LeftWidth "左厚度") 
    (Scale "出图比例") 
    (EndClose "墙端开口") 
    (EnUsage "内外特征") 
    (Style "材料") 
    (Usage "用途") 
      ) 
      "" 
    ) 
    ("TDbOpening" 
     ((Label "编号") 
      (Scale "出图比例") 
      (TextHeight "字体高度") 
      (Height "门高") 
      (Width "门宽") 
     ) 
     "" 
    ) 
    ("TDbColumn" 
     ((Height "柱高") 
      (Material "材料") ;_钢砼 40 砖 50 石材 70 金属 
      (Rotation "旋转") 
      (Scale "出图比例") 
      (SectionShape "柱子类型") 
      (SizeU "柱宽") 
      (SizeV "柱高") 
     ) 
     "" 
    ) 
    ("TDbAxisLabelSet" 
     ((CirRadius "轴圈半径") 
      (LeaderLen1 "引线长度一") 
      (LeaderLen2 "引线长度二") 
      (Scale "出图比例") 
      (TextStyle "字体") 
     ) 
     "" 
    )                
    ("TDbLineStair" 
     (("SegHeight" "梯段高度") 
      ;(StepWidth "踏步宽度") 
      ;(StepNum "踏步数") 
      ;(StepHeight "踏步高度") 
      ;("SegLength" "梯段长度") 
      (LeftBeam "左扶手") 
      (RightBeam "右扶手") 
      (SectionStyle "剖断类型") 
      ("SegWidth" "梯段宽度") 
     ) 
     "" 
    ) 
    ("TDbBlockInsert" 
      ((XEffectiveScaleFactor "X比例") 
    (YEffectiveScaleFactor "Y比例") 
    (ZEffectiveScaleFactor "Z比例") 
        (Rotation "转角") 
      ) 
      "" 
    ) 
   ) 
   
)

eachy · 发表于 2013-7-6 20:53:07

使用说明：
1 可以将1楼和2楼帖子编译，3楼帖子保持lisp源码方便用户自己添加属性，编译版就不传了
2 编译的vlx 和3楼的lisp要放在 support 路径下

一直不习惯在Lisp中临时生成DCL，有兴趣的可以把 1 2 楼和在一起，如果这样做了，别忘了在这留一份{:soso_e100:}

xiaoyuzj503 · 发表于 2013-7-6 21:00:51

这么好的贴怎么没人顶勒

/db_自贡黄明儒_ · 发表于 2013-7-6 21:06:02

今天刚好看到你同wkai版的合奏，震撼了！！！

;;----------------------------------------------------强劲的刷子
;; Writen By Eachy Email: eachy@21cn.com 2004.12.23
;; http://discussion.autodesk.com/thread.jspa?messageID=3941641
;;1 获取某一个实体所有可用属性(en为Vla对象)
(defun f:vl-property-available (en)
(defun f:vla-getlist ()
(cond
(*vla-getlist*)
((setq *vla-getlist*
(mapcar
(function (lambda (x) (substr x 9)));去VLA-GET-
(vl-remove-if-not
(function (lambda (x) (wcmatch (strcase x) "VLA-GET-*")))
(atoms-family 1)
)
)
)
)
)
)
(vl-remove-if-not
(function
(lambda (x)
(vlax-property-available-p en x t)
)
)
(f:vla-getlist)
)
)
;;2 获取某一个实体所有可用方法(en为Vla对象)
(defun f:vl-method-applicable (en)
(defun f:vla-methodlist ()
(cond
(*vla-methodlist*)
((setq *vla-methodlist*
(mapcar (function (lambda (x) (substr x 5)))
(vl-remove-if-not
(function
(lambda (x)
(and
(wcmatch (strcase x) "VLA-*")
(not (wcmatch (strcase x) "VLA-GET-*,VLA-PUT-*"))
)
)
)
(atoms-family 1)
)
)
)
)
)
)
(vl-remove-if-not
(function
(lambda (x)
(vlax-method-applicable-p en x)
)
)
(f:vla-methodlist)
)
)
;;3 产生动态对话框,用户供选择 wkai
(defun zf:get_properties
(e pl / DCL_NAME E F FLAG INDEX_VALUE PL1 VAR pl2 pl0)
;;3.1 格式化字符串
;;(ZF:FORMAT_STR "ABCD" 10),"ABCD "
(defun zf:format_str (a b)
(print a)
(princ " ")
(princ (type a))
(setq a (vl-princ-to-string a))
(if (> (strlen a) b)
(setq a (strcat (substr a 1 (- b 1)) "."))
(repeat (- b (strlen a)) (setq a (strcat a " ")))
)
a
)
(defun zf:check_toggles ()
(foreach n pl0
(if (= "1"
(get_tile (vl-princ-to-string
(if (listp n)
(car n)
n
)
)
)
)
(setq pl2 (cons (if (listp n)
(car n)
n
)
pl2
)
)
)
)
(done_dialog 1)
)
(defun zf:selectall (str pl1 / mode)
(setq mode (get_tile str))
(foreach n pl1
(set_tile (vl-princ-to-string
(if (listp n)
(car n)
n
)
)
mode
)
)
)
(defun zf:get_rows (n / lst)
(cond
((< n 6) (setq b 1))
((< n 18) (setq b 2))
(t (setq b 3))
)
(setq c (1+ (fix (/ n b 1.0)))
m 1
)
(while (<= m c)
(setq r (rem n m))
(if (or (= r 0) (> r (* 0.7 m)))
(setq lst (cons m lst))
)
(setq m (1+ m))
)
(car lst)
)
(if (= 'ENAME (type e))
(setq e (vlax-ename->vla-object e))
)
(setq pl (f:vl-property-available e))
(foreach n pl
(if (not (vl-catch-all-error-p
(setq var (vl-catch-all-apply
'vlax-get-property
(list e
(if (listp n)
(car n)
n
)
)
)
)
)
)
(setq pl0 (cons n pl0))
)
)
(setq pl0 (mapcar 'read (vl-sort pl0 '<)))
(setq pl1 pl0)
(setq pl '((color "Color")
(layer "Layer")
(linetype "线型")
(lineweight "线宽")
(LinetypeScale "线型比例")
(PlotStyleName "打印样式")
)
) ;_ 此处可根据需要增减
(foreach n pl
(setq pl1 (vl-remove (car n) pl1))
)
(setq m 0
o (zf:get_rows (length pl1))
)
(or o (setq o 20))
(setq oo (fix (/ (length pl1) o 1.0)))
(if (> (rem (length pl1) o) 0)
(setq oo (1+ oo))
)
(setq oo (cadr (assoc oo '((1 6) (2 3) (3 2) (4 2) (5 2) (6 1)))))
(or oo (setq oo 1))
(setq DCL_NAME (getvar "TEMPPREFIX"))
(setq dcl_name (strcat dcl_name "easy_matchprop" ".dcl"))
(SETQ f (OPEN dcl_name "w"))
(write-line
(strcat "ss:dialog{label=\""
(vlax-get-property e 'ObjectName)
"\";"
)
f
)
(write-line
":boxed_row{label=\"Public Props\";\n:column{"
f
)
(foreach n pl
(setq m (1+ m))
(if (> m oo)
(progn (setq m 1) (write-line "}\n:column{" f))
)
(write-line
(strcat ":toggle{label=\""
(zf:format_str
(if (listp n)
(cadr n)
n
)
15
)
":"
(zf:format_str
(vlax-get-property
e
(if (listp n)
(car n)
n
)
)
15
)
"\";key=\""
(vl-princ-to-string
(if (listp n)
(car n)
n
)
)
"\";}"
)
f
)
)
(repeat (- oo m) (write-line ":spacer{}" f))
(write-line
"}}:boxed_row{label=\"Private Props\";\n:column{"
f
)
(setq m 0)
(foreach n pl1
(setq m (1+ m))
(if (> m o)
(progn (setq m 1) (write-line "}\n:column{" f))
)
(write-line
(strcat ":toggle{label=\""
(zf:format_str
(if (listp n)
(cadr n)
n
)
15
)
":"
(zf:format_str
(vlax-get-property
e
(if (listp n)
(car n)
n
)
)
15
)
"\";key=\""
(vl-princ-to-string
(if (listp n)
(car n)
n
)
)
"\";}"
)
f
)
)
(repeat (- o m) (write-line ":spacer{}" f))
(write-line
"}}:row{:toggle{label=\"Public Props\";key=\"selectall\";}:toggle{label=\"Private Props\";key=\"selectall1\";}ok_only;}}"
f
)
(close f)
(setq index_value (load_dialog dcl_name))
(new_dialog "ss" index_value)
(action_tile "selectall" "(zf:selectall \"selectall\" pl)")
(action_tile
"selectall1"
"(zf:selectall \"selectall1\" pl1)"
)
(action_tile "accept" "(zf:check_toggles)")
(setq flag (start_dialog))
(unload_dialog index_value)
(print pl2)
pl2
)
;;4 改特性的一种通用编程方法，变量名称使用特性名，用 eval 求值
(defun ea:put-property (obj plst /)
(mapcar '(lambda (p)
(if (eval p)
(vl-catch-all-apply
'vlax-put-property
(list obj p (eval p))
)
)
)
plst
)
)
;;5 用上面的函数可以做出比CAD更最强劲的并可以自由定制的刷子
(defun c:mat (/ *ERROR* E EDOC MYERR OBJ OLDERR P PL SS SSL VAR X)
(vl-load-com)
(defun myerr (msg)
(if (/= msg "取消")
(princ "\n*取消*")
)
(if pl
(progn
(mapcar '(lambda (x) (set x nil)) pl)
(setq pl nil)
)
)
(vla-endundomark eDoc)
(setq *error* olderr)
(princ)
)
(setq eDoc (vlax-get-property (vlax-get-acad-object) 'activedocument))
(vla-startundomark eDoc)
(setq olderr *error*
*error* myerr
)
(if (and (setq e (car (entsel "\n选择源对象: ")))
(setq pl (zf:get_properties e pl)) ;对话框
(progn
(princ "\n选择目标对象....")
(setq ss (ssget))
)
)
(progn
(setq obj (vlax-ename->vla-object e))
(mapcar '(lambda (p / var)
(if (not (vl-catch-all-error-p
(setq var (vl-catch-all-apply
'vlax-get-property
(list obj p)
)
)
)
)
(set p var)
(set p nil)
)
)
pl
)
(setq ssl (sslength ss))
(while (> ssl 0)
(setq
obj (vlax-ename->vla-object (ssname ss (setq ssl (1- ssl))))
)
(ea:put-property obj pl)
)
(mapcar '(lambda (x) (set x nil)) pl)
(setq pl nil)
)
)
(setq *error* olderr)
(vla-endundomark eDoc)
(princ)
)
;;----------------------------------------------------强劲的刷子

;;----------------------------------------------------强劲的刷子 
;;     Writen By Eachy Email: <a href=\"mailto:eachy@21cn.com\">eachy@21cn.com</a>   2004.12.23       
;;  <a href=\"http://discussion.autodesk.com/thread.jspa?messageID=3941641\" target=\"_blank\">http://discussion.autodesk.com/thread.jspa?messageID=3941641</a> 
 
;;1 获取某一个实体所有可用属性(en为Vla对象) 
(defun f:vl-property-available (en) 
  (defun f:vla-getlist () 
    (cond 
      (*vla-getlist*) 
      ((setq *vla-getlist* 
             (mapcar 
                (function (lambda (x) (substr x 9)));去VLA-GET- 
                (vl-remove-if-not 
                  (function (lambda (x) (wcmatch (strcase x) "VLA-GET-*"))) 
                  (atoms-family 1) 
                ) 
              ) 
       ) 
      ) 
    ) 
  ) 
  (vl-remove-if-not 
    (function 
      (lambda (x) 
        (vlax-property-available-p en x t) 
      ) 
    ) 
    (f:vla-getlist) 
  ) 
) 
 
;;2 获取某一个实体所有可用方法(en为Vla对象) 
(defun f:vl-method-applicable (en) 
  (defun f:vla-methodlist () 
    (cond 
      (*vla-methodlist*) 
      ((setq *vla-methodlist* 
              (mapcar (function (lambda (x) (substr x 5))) 
                      (vl-remove-if-not 
                        (function 
                          (lambda (x) 
                            (and 
                              (wcmatch (strcase x) "VLA-*") 
                              (not (wcmatch (strcase x) "VLA-GET-*,VLA-PUT-*")) 
                            ) 
                          ) 
                        ) 
                        (atoms-family 1) 
                      ) 
              ) 
       ) 
      ) 
    ) 
  ) 
  (vl-remove-if-not 
    (function 
      (lambda (x) 
        (vlax-method-applicable-p en x) 
      ) 
    ) 
    (f:vla-methodlist) 
  ) 
) 
 
;;3 产生动态对话框,用户供选择  wkai 
(defun zf:get_properties 
       (e pl / DCL_NAME E F FLAG INDEX_VALUE PL1 VAR pl2 pl0) 
  ;;3.1 格式化字符串 
  ;;(ZF:FORMAT_STR "ABCD" 10),"ABCD      " 
  (defun zf:format_str (a b) 
    (print a) 
    (princ " ") 
    (princ (type a)) 
    (setq a (vl-princ-to-string a)) 
    (if        (> (strlen a) b) 
      (setq a (strcat (substr a 1 (- b 1)) ".")) 
      (repeat (- b (strlen a)) (setq a (strcat a " "))) 
    ) 
    a 
  ) 
 
  (defun zf:check_toggles () 
    (foreach n pl0 
      (if (= "1" 
             (get_tile (vl-princ-to-string 
                         (if (listp n) 
                           (car n) 
                           n 
                         ) 
                       ) 
             ) 
          ) 
        (setq pl2 (cons        (if (listp n) 
                          (car n) 
                          n 
                        ) 
                        pl2 
                  ) 
        ) 
      ) 
    ) 
    (done_dialog 1) 
  ) 
 
  (defun zf:selectall (str pl1 / mode) 
    (setq mode (get_tile str)) 
    (foreach n pl1 
      (set_tile        (vl-princ-to-string 
                  (if (listp n) 
                    (car n) 
                    n 
                  ) 
                ) 
                mode 
      ) 
    ) 
  ) 
 
  (defun zf:get_rows (n / lst) 
    (cond 
      ((< n 6) (setq b 1)) 
      ((< n 18) (setq b 2)) 
      (t (setq b 3)) 
    ) 
    (setq c (1+ (fix (/ n b 1.0))) 
          m 1 
    ) 
    (while (<= m c) 
      (setq r (rem n m)) 
      (if (or (= r 0) (> r (* 0.7 m))) 
        (setq lst (cons m lst)) 
      ) 
      (setq m (1+ m)) 
    ) 
    (car lst) 
  ) 
  (if (= 'ENAME (type e)) 
    (setq e (vlax-ename->vla-object e)) 
  ) 
  (setq pl (f:vl-property-available e)) 
  (foreach n pl 
    (if        (not (vl-catch-all-error-p 
               (setq var (vl-catch-all-apply 
                           'vlax-get-property 
                           (list e 
                                 (if (listp n) 
                                   (car n) 
                                   n 
                                 ) 
                           ) 
                         ) 
               ) 
             ) 
        ) 
      (setq pl0 (cons n pl0)) 
    ) 
  ) 
  (setq pl0 (mapcar 'read (vl-sort pl0 '<))) 
  (setq pl1 pl0) 
  (setq        pl '((color "Color") 
             (layer "Layer") 
             (linetype "线型") 
             (lineweight "线宽") 
             (LinetypeScale "线型比例") 
             (PlotStyleName "打印样式") 
            ) 
 
  ) ;_ 此处可根据需要增减 
 
 
  (foreach n pl 
    (setq pl1 (vl-remove (car n) pl1)) 
  ) 
  (setq        m 0 
        o (zf:get_rows (length pl1)) 
  ) 
  (or o (setq o 20)) 
  (setq oo (fix (/ (length pl1) o 1.0))) 
  (if (> (rem (length pl1) o) 0) 
    (setq oo (1+ oo)) 
  ) 
  (setq oo (cadr (assoc oo '((1 6) (2 3) (3 2) (4 2) (5 2) (6 1))))) 
  (or oo (setq oo 1)) 
  (setq DCL_NAME (getvar "TEMPPREFIX")) 
  (setq dcl_name (strcat dcl_name "easy_matchprop" ".dcl")) 
  (SETQ f (OPEN dcl_name "w")) 
  (write-line 
    (strcat "ss:dialog{label=\"" 
            (vlax-get-property e 'ObjectName) 
            "\";" 
    ) 
    f 
  ) 
  (write-line 
    ":boxed_row{label=\"Public Props\";\n:column{" 
    f 
  ) 
  (foreach n pl 
    (setq m (1+ m)) 
    (if        (> m oo) 
      (progn (setq m 1) (write-line "}\n:column{" f)) 
    ) 
    (write-line 
      (strcat ":toggle{label=\"" 
              (zf:format_str 
                (if (listp n) 
                  (cadr n) 
                  n 
                ) 
                15 
              ) 
              ":" 
              (zf:format_str 
                (vlax-get-property 
                  e 
                  (if (listp n) 
                    (car n) 
                    n 
                  ) 
                ) 
                15 
              ) 
              "\";key=\"" 
              (vl-princ-to-string 
                (if (listp n) 
                  (car n) 
                  n 
                ) 
              ) 
              "\";}" 
      ) 
      f 
    ) 
  ) 
  (repeat (- oo m) (write-line ":spacer{}" f)) 
  (write-line 
    "}}:boxed_row{label=\"Private Props\";\n:column{" 
    f 
  ) 
  (setq m 0) 
  (foreach n pl1 
    (setq m (1+ m)) 
    (if        (> m o) 
      (progn (setq m 1) (write-line "}\n:column{" f)) 
    ) 
    (write-line 
      (strcat ":toggle{label=\"" 
              (zf:format_str 
                (if (listp n) 
                  (cadr n) 
                  n 
                ) 
                15 
              ) 
              ":" 
              (zf:format_str 
                (vlax-get-property 
                  e 
                  (if (listp n) 
                    (car n) 
                    n 
                  ) 
                ) 
                15 
              ) 
              "\";key=\"" 
              (vl-princ-to-string 
                (if (listp n) 
                  (car n) 
                  n 
                ) 
              ) 
              "\";}" 
      ) 
      f 
    ) 
  ) 
  (repeat (- o m) (write-line ":spacer{}" f)) 
  (write-line 
    "}}:row{:toggle{label=\"Public Props\";key=\"selectall\";}:toggle{label=\"Private Props\";key=\"selectall1\";}ok_only;}}" 
    f 
  ) 
  (close f) 
  (setq index_value (load_dialog dcl_name)) 
  (new_dialog "ss" index_value) 
  (action_tile "selectall" "(zf:selectall \"selectall\" pl)") 
  (action_tile 
    "selectall1" 
    "(zf:selectall \"selectall1\" pl1)" 
  ) 
  (action_tile "accept" "(zf:check_toggles)") 
  (setq flag (start_dialog)) 
  (unload_dialog index_value) 
  (print pl2) 
  pl2 
) 
 
;;4 改特性的一种通用编程方法，变量名称使用特性名，用 eval 求值 
(defun ea:put-property (obj plst /) 
  (mapcar '(lambda (p) 
             (if (eval p) 
               (vl-catch-all-apply 
                 'vlax-put-property 
                 (list obj p (eval p)) 
               ) 
             ) 
           ) 
          plst 
  ) 
) 
 
;;5 用上面的函数可以做出比CAD更最强劲的并可以自由定制的刷子       
(defun c:mat (/ *ERROR* E EDOC MYERR OBJ OLDERR P PL SS SSL VAR X) 
   
  (vl-load-com) 
 
  (defun myerr (msg) 
    (if        (/= msg "取消") 
      (princ "\n*取消*") 
    ) 
    (if        pl 
      (progn 
        (mapcar '(lambda (x) (set x nil)) pl) 
        (setq pl nil) 
      ) 
    ) 
    (vla-endundomark eDoc) 
    (setq *error* olderr) 
    (princ) 
  ) 
   
  (setq eDoc (vlax-get-property (vlax-get-acad-object) 'activedocument)) 
  (vla-startundomark eDoc) 
  (setq        olderr        *error* 
        *error*        myerr 
  ) 
  (if (and (setq e (car (entsel "\n选择源对象: "))) 
           (setq pl (zf:get_properties e pl)) ;对话框 
           (progn 
             (princ "\n选择目标对象....") 
             (setq ss (ssget)) 
           ) 
      ) 
    (progn 
      (setq obj (vlax-ename->vla-object e)) 
      (mapcar '(lambda (p / var) 
                 (if (not (vl-catch-all-error-p 
                            (setq var (vl-catch-all-apply 
                                        'vlax-get-property 
                                        (list obj p) 
                                      ) 
                            ) 
                          ) 
                     ) 
                   (set p var) 
                   (set p nil) 
                 ) 
               ) 
              pl 
      ) 
      (setq ssl (sslength ss)) 
      (while (> ssl 0) 
        (setq 
          obj (vlax-ename->vla-object (ssname ss (setq ssl (1- ssl)))) 
        ) 
        (ea:put-property obj pl) 
      ) 
      (mapcar '(lambda (x) (set x nil)) pl) 
      (setq pl nil) 
    ) 
  ) 
  (setq *error* olderr) 
  (vla-endundomark eDoc) 
  (princ) 
) 
;;----------------------------------------------------强劲的刷子

st788796 · 发表于 2013-7-6 21:07:01

xiaoyuzj503 发表于 2013-7-6 21:00
这么好的贴怎么没人顶勒

这个要求用户对ActiveX有深入了解才能定制出适合自己的刷子，比Matchprop更实用更便捷工具

eachy · 发表于 2013-7-6 21:09:54

/db_自贡黄明儒_ 发表于 2013-7-6 21:06
今天刚好看到你同wkai版的合奏，震撼了！！！

他那个所有属性太吓人，我不敢用{:soso_e100:}

sachindkini · 发表于 2013-7-6 21:42:26

Command: EA:SMAT
; error: no function definition: YBVL-CLEARCSET

eachy · 发表于 2013-7-6 21:54:48

sachindkini 发表于 2013-7-6 21:42
Command: EA:SMAT
; error: no function definition: YBVL-CLEARCSET

在论坛搜索，这个是解决ActiveX中Acitveselection的bug而写的

Free-Lancer · 发表于 2013-7-7 08:06:35

LZ程序中还用到了字符拆分合并函数来自: Android客户端

Free-Lancer · 发表于 2013-7-7 08:09:14

还有TRACE属性和内置函数同名，不适用这个方法来自: Android客户端

flyfox1048 · 发表于 2014-1-2 14:35:22

没有演示，试试看

qq564837358 · 发表于 2014-3-8 08:35:49

好东西，强顶！！！

enn09 · 发表于 2014-4-16 09:51:17

没有演示。试试看，创意很好，谢谢分享

账号		自动登录	找回密码
密码			立即注册

[原创] 可自由定制刷子完整源码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评