分解除一个以外的所有块

abobneil · 发表于 2022-7-6 06:39:31

我叫尼尔，是autolisp的新手。我正在尝试编写一个lisp文件，该文件将分解除用户选择的块之外的所有块。这样做的目的是，当我从架构师那里收到一个文件，我将使用它作为我工作的基础文件，我希望能够分解所有块。有时，建筑师使用具有属性的块作为房间标记。我不想爆炸。下面是我到目前为止编写的代码。我可能做错了，如果有更好的方法，请告诉我。另外，如果你能解释一下你发布的任何代码，这样我就可以学习了。以下是我的代码：

（defun C：重新选择（）
（提示“选择所有不希望分解的块。”）
（setq a（ssget“_X”'（（0。“插入”）））
（setq b（ssget（）））
（setq c（？）
（命令“_.explode”c”）
（普林斯）
)

Lee Mac · 发表于 2022-7-6 07:02:18

欢迎来到CADTutor Neil

请尝试以下代码：

copy

(defun c:myexplode ( / all ent inc qaf sel )
   (if
       (and
           (setq sel (ssget      '((0 . "INSERT"))))
           (setq all (ssget "_X" '((0 . "INSERT"))))
       )
       (progn
           (repeat (setq inc (sslength all))
               (if (ssmemb (setq ent (ssname all (setq inc (1- inc)))) sel)
                   (ssdel ent all)
               )
           )
           (setq qaf (getvar 'qaflags))
           (setvar 'qaflags 1)
           (command "_.explode" all "")
           (setvar 'qaflags qaf)
       )
   )
   (princ)
)

只要问问你是否对代码有什么不理解的地方。

fabriciorby · 发表于 2022-7-6 07:15:19

copy

(defun c:dontexplode(/ contss contssall ss ssall)
(setq contss 0)
(setq contssall 0)
(princ "Select the blocks you don't want to explode.")
(setq ss (ssget '((0 . "INSERT"))))
(setq ssall (ssget "_X" '((0 . "INSERT"))))
(repeat (sslength ss)
(repeat (sslength ssall)
        (if (not(eq (ssname ss contss) (ssname ssall contssall)))
        (command "explode" (ssname ssall contssall))
        )
(setq contssall( + 1 contssall))
)
(setq contss(+ 1 contss))
(setq contssall 0)
)
)