请教，填充挖洞优化？

sbwdx

请教，各位大神，如何优化一下，我写了一下这个代码，，，选择填充后，空格，再选闭合线后空格，为啥，不能直接达到效果，必须还空格一次，才结束，能选择闭合线后，空格，达到效果，结束，就是能优化空格直接结束吗？
(defun c:tt7 ()
    (setvar "CMDECHO" 0)
    (setq SS (ssget'((0 . "hatch"))))
    (if (/= ss nil)
      (repeat (setq n (sslength ss))
        (setq en(ssname ss(setq n(1- n))))
        (Command "HATCHEDIT" EN "_AD" "S")
      )
    )
    (setvar "CMDECHO" 1)
    (princ)
)

start4444

为什么我整出来的结果和你不一样

(defun c:tt7 ()
    (setvar "CMDECHO" 0)
    (setq SS (ssget'((0 . "hatch"))) ss1 (ssget '((0 . "LWPOLYLINE,CIRCLE"))))
    (if (/= ss nil)
      (repeat (setq n (sslength ss))
        (setq en(ssname ss(setq n(1- n))))
        (Command "HATCHEDIT" EN "_AD" "S" ss1 "" "")
      )
    )
    (setvar "CMDECHO" 1)
    (princ)
)

sbwdx

start4444 发表于 2020-1-9 14:16
为什么我整出来的结果和你不一样

(defun c:tt7 ()

不知道呢 ，老师，你写的这个可以用的

烟盒迷唇

""代表一个空格呀，少了就补。

songyujie928

松树石头哥

感谢楼主分享