1、(defun c:xgbl() (setq ent (entget (car (e艘绒庳焰ntsel)))) (entmod (subst (cons 41 50) (assoc 41 ent) ent)) (setq a (cdr (assoc 45 ent))) (setq b (cdr (assoc 46 ent))) (setq c (* n a)) (setq d (* n b)) (entmod (subst (cons 45 c) (assoc 45 ent) ent)) (entmod (subst (cons 46 d) (assoc 46 ent) ent)) )autolisp中编辑以上代码，点击加载。
2、在CAD中输入xgbl快捷命令，选择填充图案即可。