层帮助，请

CAB · 发表于 2022-7-6 14:59:48

一点也不适合。
这里是子程序。

(defun c:TEST ()
;;;  Returns T if On. nill if OFF or not found
 (defun islayeron (lname / entlst)
   (and (= (type lname) 'str)
        (setq entlst (tblsearch "layer" lname))
        (null (minusp (cdr (assoc 62 entlst))))
   )
 )                           ; end defun
 (if (islayeron "TEXT")      ;If TEXT layer is on,
   (c:LISProutine1)          ; run routine 1
 )                           ;endif 1
 (if (islayeron "FIND")      ;If FIND layer is on,
   (c:LISProutine2)          ; run routine 2
 )                           ;endif 2
 ;;  If both layers are off
 (if (and (not (islayeron "TEXT")) ;If TEXT layer is off *AND*
          (not (islayeron "FIND")) ;if FIND layer is off,
     )                      
   (c:LISProutine3)          ; run routine 3
 )                           ;endif 3
 (PRINC)
)

Lee Mac · 发表于 2022-7-6 15:01:02

说得好，艾伦，我犯了条件错误。。。

StevJ · 发表于 2022-7-6 15:05:14

好了，各位。
此IF版本之间的差异：

copy

 
(defun c:TEST ()
(if (> (cdr (assoc 62 (entget (tblobjname "layer" "TEXT")))) 0)
      (c:LISProutine1)
)
(if (> (cdr (assoc 62 (entget (tblobjname "layer" "FIND")))) 0)
      (c:LISProutine2)
)
(if (and (< (cdr (assoc 62 (entget (tblobjname "layer" "TEXT")))) 0)
        (< (cdr (assoc 62 (entget (tblobjname "layer" "FIND")))) 0))
        (c:LISProutine3)
)
(PRINC)
)

这个COND版本：

copy

 
(defun c:TEST ()
(COND ((> (cdr (assoc 62 (entget (tblobjname "layer" "TEXT")))) 0)
     (c:LISProutine1)
     )
     ((> (cdr (assoc 62 (entget (tblobjname "layer" "FIND")))) 0)
     (c:LISProutine2)
     )
     ((and (< (cdr (assoc 62 (entget (tblobjname "layer" "TEXT")))) 0)
           (< (cdr (assoc 62 (entget (tblobjname "layer" "FIND")))) 0))
     (c:LISProutine3)
     )
)
(PRINC)
)

对我来说似乎没有那么重要，而且它们都工作得一样好。

然而，IF版本似乎更像是一种“暴力”方法，
COND版本更干净，看起来不像是黑客作业，而不是IF版本。

CAB的入口，现在我看到它是如何实现的，也同样有效。谢谢，卡布。
不过，这似乎有点复杂。

我对丰富的选择满面春风，但有更喜欢的方法吗？

史蒂夫
.

Lee Mac · 发表于 2022-7-6 15:08:51

与COND方法的不同之处在于，当COND到达返回T的测试表达式时，它计算该表达式之后的所有语句，并在那里结束。

而对于IF语句，则依次计算每个IF语句。

因此，如果文字层处于启用状态，而查找层处于启用状态：

在第二个版本中，将显示LispRoutine1，但不会显示LispRoutine2。

在IF版本中，将对两者进行评估。

希望这有点道理。。。