我需要在fr上提前一层

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

尊敬的各位：，
我需要在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

就这样，

copy

(defun c:LTT () 
(command "_.-layer" "_thaw" "[color="Red"]Name of Layer[/color]" "")
(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.

copy

(entget nil)

将出错，因此最好使用IF语句检查用户是否选择了某些内容。

2、使用

copy

(command "_.-layer"...

允许语言变化并强制非对话菜单。

3、定位变量。

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

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

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

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

copy


(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，这将打破你的行动。。。。

copy

(defun c:lOF ()
(setq ss (entsel "\n Select Entity Layer To Off :"))
(setq el (entget (car ss)))
(setq la (cdr (assoc 8 el)))
(command "[color=Red]_.-[/color]layer" "[color=Red]_[/color]off" la "")
(PRINC)
)

当做
塔瓦特

[编程交流] 我需要在fr上提前一层

发表回复

精选推荐