请各位高人帮助修改一下程序？
这个程序给所选尺寸文字加上背景色，但在对象特性管理器的文字填充色却为“无”，只要移动尺寸，背景就没了。另外这个程序一次只能选一个尺寸，我想一次多选几个，怎么修改？这个程序只在CAD2005下有效。(defun c:DIM_MASK ()<BR>(prompt "\nApply Dimension Mask")<BR>(setq parent_en (entget (car (entsel))))<BR>(setq mask_list (list (cons 90 3)(cons 63 256)(cons 45 1.2)(cons 441<BR>1616860)))<BR>(if (/= parent_en nil)<BR>(progn<BR>(setq en (tblobjname "block" (cdr (assoc 2 parent_en))))<BR>(setq dim_sub_en en)<BR><BR>(while (/= en nil)<BR>(if (= (cdr (assoc 0 (entget en))) "MTEXT")<BR>(progn<BR>(setq EN_LIST (append (entget EN) mask_list))<BR>(entmod EN_LIST)<BR>)<BR>)<BR><BR>(setq en (entnext en))<BR>)<BR>(command ".regen")<BR>)<BR>)<BR><BR>(princ)<BR>)<BR> ;;这是R2005的新属性,只在R2005下有效<BR>;;BY 龙龙仔(LUCAS)<BR>;;注意:由尺寸物件的xdata控制(知道这点----程序其实很简单)<BR>;;Sorry!只提供vlx版!
老大，在2005下不行啊！ 龙龙仔 发表于 2004-9-1 17:09 static/image/common/back.gif
;;这是R2005的新属性,只在R2005下有效;;BY 龙龙仔(LUCAS);;注意:由尺寸物件的xdata控制(知道这点----程序其 ...
龙龙版主，太好用了，能不能给我lsp,非常感谢，我一直在找这个程序 龙龙仔 发表于 2004-9-1 17:09 static/image/common/back.gif
;;这是R2005的新属性,只在R2005下有效;;BY 龙龙仔(LUCAS);;注意:由尺寸物件的xdata控制(知道这点----程序其 ...
http://bbs.mjtd.com/thread-92337-1-1.html
请帮我看看
页:
[1]