;;获取块中属性值的LIST,如不是属性块,返回nil;;en为块的图元名 (DEFUN swp_get_attrib (en / f dxf) (WHILE en (SETQ dxf (ENTGET en)) (IF(= (CDR (ASSOC 0 dxf)) "ATTRIB") (SETQ f (APPEND f &n ...
;;设置"style"中文字高度为0 ;;sample ;;_$ (sw_revise_text_height "sm-new") ;;The Text Height Has Been Changed From 5 To 0! ;;_$ (DEFUN sw_revise_text_height (textstyle / ent textheight) (SETQ ent (ENTGET (TBLOBJNAME "style" textstyle))) (SETQ textheight (CDR (ASSOC 40 ent))) (I ...