怎样用lisp修改填充比例

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快捷命令，选择填充图案即可。