帮助：Lisp隔离一组

vernonlee · 发表于 2022-7-5 22:10:51

善良的灵魂能想出一个宏脚本，根据它们的名字来隔离一组预定义的层吗。

谢谢

vernonlee · 发表于 2022-7-5 22:17:05

上面有什么帮助吗？

谢谢

BIGAL · 发表于 2022-7-5 22:17:55

-la s 1stlayername关闭*

在第2层
在第3层

等

vernonlee · 发表于 2022-7-5 22:22:44

谢谢试过了。

我还有很多层。是否可以只为需要打开的层设置关键帧，而不为需要关闭的其余层设置关键帧？

vernonlee · 发表于 2022-7-5 22:25:01

有人能想出一个lisp，它可以根据层名称隔离一组预定义的层（通过将其添加到lisp）。

谢谢

BIGAL · 发表于 2022-7-5 22:29:32

Off space*然后ON do层列表可以是part*或part*、bolt*、nut*或part、nut、bolt，或者只是重复ON bolt ON part ON nut

只需观察命令行中的正确提示。

Tharwat · 发表于 2022-7-5 22:31:08

在lisp例程中包含我的函数“隔离”，以隔离层名称列表，如下所示。

copy


(defun _isolate (layers / l c n e)
 ;;    Tharwat 17.Nov.2014    ;;
 ;; --------------------------    ;;
 ;; Isolate a specifc list of     ;;
 ;; Layer names .        ;;
 (while (setq l (tblnext "LAYER" (not l)))
   (setq c (cdr (assoc 62
                       (setq e
                              (entget (tblobjname "LAYER" (setq n (cdr (assoc 2 l)))))
                       )
                )
           )
   )
   (if (member n layers)
     (if (minusp c)
       (entmod (subst (cons 62 (abs c)) (assoc 62 e) e))
     )
     (if (not (minusp c))
       (entmod (subst (cons 62 (- c)) (assoc 62 e) e))
     )
   )
 )
 (princ)
)

功能的使用：

copy


(_isolate '("Layer1" "Layer2" "Layer3"))

vernonlee · 发表于 2022-7-5 22:34:11

嗨，兄弟。

一开始我没有弄明白，但试过了&它很管用。

这是一个很好的解决方法，但只有当我回到之前的分层设置时，它才会起作用。你知道吗？

谢谢

vernonlee · 发表于 2022-7-5 22:39:15

嗨，塔尔瓦特。

我没有要隔离的lisp例程。可以澄清吗？

谢谢

Tharwat · 发表于 2022-7-5 22:40:02

但是您在第一篇帖子中提到，您希望代码将它们添加到lisp中？

你要求什么澄清？

[编程交流] 帮助：Lisp隔离一组

发表回复

精选推荐