[LISP程序]：请各位高人帮助修改一下程序？

neteasy

这个程序给所选尺寸文字加上背景色，但在对象特性管理器的文字填充色却为“无”，只要移动尺寸，背景就没了。如何解决？另外这个程序一次只能选一个尺寸，我想一次多选几个，怎么修改？这个程序只在CAD2005下有效。

(defun c:DIM_MASK ()
(prompt "\nApply Dimension Mask")
(setq parent_en (entget (car (entsel))))
(setq mask_list (list (cons 90 3)(cons 63 256)(cons 45 1.2)(cons 441
1616860)))
(if (/= parent_en nil)
(progn
(setq en (tblobjname "block" (cdr (assoc 2 parent_en))))
(setq dim_sub_en en)

(while (/= en nil)
(if (= (cdr (assoc 0 (entget en))) "MTEXT")
(progn
(setq EN_LIST (append (entget EN) mask_list))
(entmod EN_LIST)
)
)

(setq en (entnext en))
)
(command ".regen")
)
)

(princ)
)

lsjjm

最初由 neteasy 发布
[B]...另外这个程序一次只能选一个尺寸，我想一次多选几个，怎么修改？... [/B]

(setq ss (ssget '((0 . "DIMENSION"))))