entmake创建填充的时候怎么设置填充比例
本帖最后由 fangmin723 于 2017-7-26 13:55 编辑求教用entmake创建填充的时候怎么设置填充比例？？？
(defun c:tt1()
(setq lst (list
(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))
(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))
(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))
(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))
)
)
(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)))))
)
页:
[1]