sbwdx 发表于 2020-1-9 13:00:08

请教，填充挖洞优化？

本帖最后由 sbwdx 于 2020-1-9 13:13 编辑

请教，各位大神，如何优化一下，我写了一下这个代码，，，选择填充后，空格，再选闭合线后空格，为啥，不能直接达到效果，必须还空格一次，才结束，能选择闭合线后，空格，达到效果，结束，就是能优化空格直接结束吗？
(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 发表于 2020-1-9 13:00:09

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

(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 发表于 2020-1-9 15:34:55

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

(defun c:tt7 ()


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

烟盒迷唇 发表于 2020-1-9 17:48:14

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

songyujie928 发表于 2020-1-10 14:54:23

松树石头哥 发表于 2020-1-10 17:08:28

感谢楼主分享
页: [1]
查看完整版本: 请教，填充挖洞优化？