entmake创建填充的时候怎么设置填充比例

fangmin723

求教用entmake创建填充的时候怎么设置填充比例？？？

1. (defun c:tt1()
   
2.   (setq lst (list
   
3.               (list '(12752.4 7612.89 0.0) '(12744.4 7612.89 0.0) '(12744.4 7459.89 0.0) '(12752.4 7459.89 0.0))
   
4.               (list '(12752.4 7451.89 0.0) '(12744.4 7451.89 0.0) '(12744.4 7298.89 0.0) '(12752.4 7298.89 0.0))
   
5.               (list '(12769.4 7336.89 0.0) '(12769.4 7322.89 0.0) '(12824.4 7322.89 0.0) '(12824.4 7336.89 0.0))
   
6.               (list '(12854.4 7336.89 0.0) '(12854.4 7322.89 0.0) '(12909.4 7322.89 0.0) '(12909.4 7336.89 0.0))
   
7.             )
   
8.   )
   
9.   (foreach lst1 lst (entmake (append (list '(0 . "HATCH") '(100 . "AcDbEntity") '(100 . "AcDbHatch") '(10 0.0 0.0 0.0) '(210 0.0 0.0 1.0) '(2 . "ANSI31") '(70 . 1) '(71 . 0) '(91 . 1) '(92 . 3) '(72 . 0) '(73 . 1) (cons 93 (length lst1))) (mapcar '(lambda (x) (cons 10 x)) lst1) (list '(97 . 0) '(75 . 0) '(76 . 1) '(98 . 0)))))
   
10. )

(defun c:tt1()<br />   (setq lst (list<br />               (list '(12752.4 7612.89 0.0) '(12744.4 7612.89 0.0) '(12744.4 7459.89 0.0) '(12752.4 7459.89 0.0))<br />               (list '(12752.4 7451.89 0.0) '(12744.4 7451.89 0.0) '(12744.4 7298.89 0.0) '(12752.4 7298.89 0.0))<br />               (list '(12769.4 7336.89 0.0) '(12769.4 7322.89 0.0) '(12824.4 7322.89 0.0) '(12824.4 7336.89 0.0))<br />               (list '(12854.4 7336.89 0.0) '(12854.4 7322.89 0.0) '(12909.4 7322.89 0.0) '(12909.4 7336.89 0.0))<br />             )<br />   )<br />   (foreach lst1 lst (entmake (append (list '(0 . "HATCH") '(100 . "AcDbEntity") '(100 . "AcDbHatch") '(10 0.0 0.0 0.0) '(210 0.0 0.0 1.0) '(2 . "ANSI31") '(70 . 1) '(71 . 0) '(91 . 1) '(92 . 3) '(72 . 0) '(73 . 1) (cons 93 (length lst1))) (mapcar '(lambda (x) (cons 10 x)) lst1) (list '(97 . 0) '(75 . 0) '(76 . 1) '(98 . 0)))))<br /> )