alanjt 发表于 2022-7-6 09:29:40

是的，我保持了它的简单性，并尽可能接近他的编码。

Tharwat 发表于 2022-7-6 09:32:18

 
天啊。。。。。。。。

Lee Mac 发表于 2022-7-6 09:35:26

为了消除OP的混淆，这里有一种使用entmod解决问题的方法：
 
(defun c:test ( / e )
   (if
       (and
         (eq (strcase (getvar 'DWGNAME)) "BATTERS.DWG")
         (setq e (tblobjname "LAYER" "BATTERS"))
       )
       (progn
         (if (eq "BATTERS" (strcase (getvar 'CLAYER)))
               (setvar 'CLAYER "0")
         )
         (setq e (entget e))
         (entmod (subst (cons 70 (logior 1 (cdr (assoc 70 e)))) (assoc 70 e) e))
       )
   )
   (princ)
)

alanjt 发表于 2022-7-6 09:40:47

不要忘记说明0正在冻结。。。。。我们把事情复杂化了。

Lee Mac 发表于 2022-7-6 09:45:26

 
抢手货
 
解决方案：
(defun c:test ( / e l )
   (if
       (and
         (eq (strcase (getvar 'DWGNAME)) "BATTERS.DWG")
         (setq e (tblobjname "LAYER" "BATTERS"))
       )
       (progn
         (if (eq "BATTERS" (strcase (getvar 'CLAYER)))
               (progn
                   (setq l (entget (tblobjname "LAYER" "0")))
                   (entmod (subst (cons 70 (boole 4 1 (cdr (assoc 70 l)))) (assoc 70 l) l))
                   (setvar 'CLAYER "0")
               )
         )
         (setq e (entget e))
         (entmod (subst (cons 70 (logior 1 (cdr (assoc 70 e)))) (assoc 70 e) e))
       )
   )
   (princ)
)
 
但我同意-“-层”对于这项任务来说要容易得多。

SunnyTurtle 发表于 2022-7-6 09:47:26

谢谢你们的帮助。
 
但如果我想在绘图名称的条件下重复冻结多层。
 
有没有一种方法可以包括一个简单的用户界面，比如excel工作表。
 
晴朗的
 
P、 这是我完成的代码
(
(if (and (eq (strcase (getvar 'DWGNAME)) "GLRL-01DC-DWG-PW-GE-SMC-0202-A.DWG") ;ADD DWG NAME HERE IN CAPITALS
   )
(if (eq (strcase (getvar 'CLAYER)) "X_PW_GE_SMC_LS_GINT|DP_BH103") ;ADD LAYER NAME HERE IN CAPITALS
   (command "_.-layer" "_T" "0" "_S" "0" "_F" "X_PW_GE_SMC_LS_GINT|DP_BH103" "") ;ADD LAYER NAME HERE IN CAPITALS
   (command "_.-layer" "_F" "X_PW_GE_SMC_LS_GINT|DP_BH103" "") ;ADD LAYER NAME HERE IN CAPITALS
)
)
(if (and (eq (strcase (getvar 'DWGNAME)) "GLRL-01DC-DWG-PW-GE-SMC-0210-A.DWG") ;ADD DWG NAME HERE IN CAPITALS
   )
(if (eq (strcase (getvar 'CLAYER)) "X_PW_GE_SMC_LS_GINT|DP_BH103") ;ADD LAYER NAME HERE IN CAPITALS
   (command "_.-layer" "_T" "0" "_S" "0" "_F" "X_PW_GE_SMC_LS_GINT|DP_TP17" "") ;ADD LAYER NAME HERE IN CAPITALS
   (command "_.-layer" "_F" "X_PW_GE_SMC_LS_GINT|DP_TP17" "") ;ADD LAYER NAME HERE IN CAPITALS
)
)
(if (and (eq (strcase (getvar 'DWGNAME)) "GLRL-01DC-DWG-PW-GE-SMC-0215-A.DWG") ;;ADD DWG NAME HERE IN CAPITALS
   )
(if (eq (strcase (getvar 'CLAYER)) "X_PW_GE_SMC_LS_GINT|SB_24") ;ADD LAYER NAME HERE IN CAPITALS
   (command "_.-layer" "_T" "0" "_S" "0" "_F" "X_PW_GE_SMC_LS_GINT|SB_24" "") ;ADD LAYER NAME HERE IN CAPITALS
   (command "_.-layer" "_F" "X_PW_GE_SMC_LS_GINT|SB_24" "") ;ADD LAYER NAME HERE IN CAPITALS
)
)
)
是的，我感到欣慰的是，我仍然在使用命令调用，请给我几天时间查看您的代码入口

Lee Mac 发表于 2022-7-6 09:53:03

 
不要担心使用命令调用！这对你的目的来说已经足够了
页: 1 [2]
查看完整版本: 实用绘图中的冻结