社区 › Auto Lisp › 帮助：Lisp隔离一组

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

帮助：Lisp隔离一组

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

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例程中包含我的函数“隔离”，以隔离层名称列表，如下所示。
 

(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)
)

 
功能的使用：
 

(_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隔离一组