1、(defun c:xgbl()
(setq ent (entget (car (entsel))))
(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快捷命令，选择填充图案即可。