实用绘图中的冻结

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

抢手货

解决方案：

copy

(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、这是我完成的代码

copy

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

不要担心使用命令调用！这对你的目的来说已经足够了

[编程交流] 实用绘图中的冻结

发表回复

精选推荐