xdzcp 发表于 2022-8-25 20:44:05

批量布尔求交

哪位大神能否写个lisp批量布尔求交。像这样谢谢

434939575 发表于 2022-8-25 20:44:06

(defun c:tt ()
(princ "\n选取a部分")
(princ "\n选取b部分")
(setq ss (ssget))
(setq ss2 (ssget))
(setq y (entlast))
(command "REGION" ss "")
(setq y (next:add y))
(command "_union" y "")
(setq y2 (entlast))
(command "REGION" ss2 "")
(setq y2 (next:add y2))
(command "_union" y2 "")
(command "_intersect" y y2 "")       
)
(defun next:add        (en / ss)
(setq ss (ssadd))
(while (setq en (entnext en)) (setq ss (ssadd en ss)))
(if (/= (sslength ss) 0)
    ss
)
)

434939575 发表于 2022-8-31 21:50:28

演示都有了

xdzcp 发表于 2022-9-1 09:02:49

434939575 发表于 2022-8-31 21:50
演示都有了

你好 这个演示不是cad软件。

xdzcp 发表于 2022-9-2 13:23:05

434939575 发表于 2022-8-25 20:44


大师你好，非常感谢，太牛了。能否在给我做一个批量差集。也就是用一组减去另一组。谢谢

xdzcp 发表于 2022-9-2 14:03:58

本帖最后由 xdzcp 于 2022-9-6 15:03 编辑

434939575 发表于 2022-8-25 20:44

大师这种批量差集能否帮我在做一个好吗 ? 非常 谢谢。
页: [1]
查看完整版本: 批量布尔求交