社区 › Auto Lisp › 我需要在fr上提前一层

autolisp 发表于 2022-7-6 10:49:15

我需要在fr上提前一层

尊敬的各位：，
我需要在freez解冻锁定解锁时关闭高级层
 
我在用这个
请帮我推进freez上下分层
（defun c:LTT（）（命令“layer”“th”“*”“”）
（defun c:LFF（）（命令“layer”“f”“*”“”）
（defun c:Lon（）（命令“layer”“on”“*”“”））
（defun c:LoF（）（命令“layer”“off”“*”“”“”）

Tharwat 发表于 2022-7-6 10:59:33

就这样，
 
(defun c:LTT ()
(command "_.-layer" "_thaw" "Name of Layer" "")
(princ)
)
 
所以剩下的也应该是。。。。。试试看。
 
塔瓦特

alanjt 发表于 2022-7-6 11:00:41

你想取得什么“进步”？

autolisp 发表于 2022-7-6 11:10:18

 
尊敬的先生：
thx回复
是，制作新lsp

autolisp 发表于 2022-7-6 11:11:34

（定义c:lOF（）
（setq ss（entsel“\n Select Entity Layer To Off:”））
（setq el（entget（车辆ss）））
（setq la（cdr（assoc 8 el）））
（命令“layer”“off”la“”）
（普林斯）
)

Lee Mac 发表于 2022-7-6 11:18:44

一些注意事项：
 
1.
(entget nil)将出错，因此最好使用IF语句检查用户是否选择了某些内容。
 
2、使用
 
(command "_.-layer"...

 
允许语言变化并强制非对话菜单。
 
3、定位变量。

Lee Mac 发表于 2022-7-6 11:22:18

还有，“裁员”有什么错？

Lee Mac 发表于 2022-7-6 11:32:33

另一种方法，就像学术练习一样：
 

(defun c:lOff ( / ent def )
;; © Lee Mac 2010

(if (setq ent (car (entsel)))
   (progn
   (setq def
       (entget
         (tblobjname "LAYER"
         (cdr
             (assoc 8
               (entget ent)
             )
         )
         )
       )
   )
   (entmod
       (subst
         (cons 62
         (-
             (cdr
               (assoc 62 def)
             )
         )
         )
         (assoc 62 def) def
       )
   )
   )
)
(princ)
)

Lt Dan's l 发表于 2022-7-6 11:33:30

似乎这是一个非常相似的线程。。。
 
http://www.cadtutor.net/forum/showthread.php?t=45943

Tharwat 发表于 2022-7-6 11:41:25

有一些修正，以避免出现层dlg，这将打破你的行动。。。。
(defun c:lOF ()
(setq ss (entsel "\n Select Entity Layer To Off :"))
(setq el (entget (car ss)))
(setq la (cdr (assoc 8 el)))
(command "_.-layer" "_off" la "")
(PRINC)
)

 
当做
塔瓦特

查看完整版本: 我需要在fr上提前一层