多个o的命令印记

marmo · 发表于 2022-7-6 01:20:00

你好

有一个类似Lisp程序的句子：

（定义c:im（）
（命令“_SOLIDEDIT”“B”“I”）
)

但这允许您首先选择实体，然后一次选择多个对象以压印选定实体，并始终在命令结束时删除它们。

或者，更好的方法是，首先一次选择一个或多个实体，然后一次选择其各自面上的所有对象，然后删除所有用于压印的对象（直线、多段线、圆等）。

谢谢并致以最良好的问候。

毫米

marmo · 发表于 2022-7-6 01:54:05

没有人

GP_ · 发表于 2022-7-6 02:16:38

你好，Marco，
您可以使用直接压印代替SOLIDEDIT？

copy


(defun c:im ( / sol ob_imp  )
   (if
       (and
           (princ "\nSelect a 3D solid")
           (setq sol (ssget "_+.:S" '((0 . "3DSOLID"))))
           (setq sol (ssname sol 0))
           (princ "\nSelect objects to imprint")
           (setq ob_imp (ssget))
       )
       (repeat (setq n (sslength ob_imp))
           (vl-cmdf "_imprint" sol (ssname ob_imp (setq n (1- n))) "_y" "")
       )
   )
)

marmo · 发表于 2022-7-6 02:23:05

你好，Gian Paolo，

Lisp程序很好用！

我使用了很多命令印记，因此对于我来说使用soliedit是很不舒服的。。。身体立即打印并选择每个元素。

谢谢！
再见
马可

[编程交流] 多个o的命令印记

发表回复

精选推荐