KRBeckman 发表于 2022-7-6 11:36:14

循环直到层“0”上出现圆弧

我正在编写一个lisp，它将提示用户选择一个弧。。。我遇到的问题是，我不知道如何确保用户通过循环选择位于层“0”上的圆弧，直到满足该标准。
 
提前感谢您的帮助。

CALCAD 发表于 2022-7-6 11:42:22

KRBeckman，
根据您的简要描述，似乎您可能希望关闭除“0”之外的所有层，以便用户无法从错误的层中进行选择。还是我不明白他的意图？

Lee Mac 发表于 2022-7-6 11:43:31

怎么样：
 

(ssget "_:S" '((0 . "ARC") (8 . "0")))

 
或者更具体地说，在循环中：
 

(while (not ss)
(setq ss (ssget "_:S" '((0 . "ARC") (8 . "0")))))

 
但一定要本地化“ss”。

KRBeckman 发表于 2022-7-6 11:46:11

 
你介意解释一下while函数是如何工作的吗？更具体地说，为什么
 
 
使其循环。

Lee Mac 发表于 2022-7-6 11:49:56

在用户做出有效选择之前，变量“ss”为零，因此（不是ss）返回T，迫使While继续。
 
为了尽可能简洁地解释WHILE，在每个循环之前对测试表达式进行求值，并且仅当文本表达式返回非nil值时才对测试表达式后面的语句进行求值。

KRBeckman 发表于 2022-7-6 11:53:31

啊，当我看到（不是ss）时，我想它是在检查ss是否等于零，当用户没有选择正确类型的对象时，这将是错误的。我现在明白了。。。（非ss）检查ss是否等于零。和我想象的有点倒退，但我明白了。那么你可以用（=ss nil）替换（不是ss），对吗？

Lee Mac 发表于 2022-7-6 11:57:14

 
是的，但没有那么优雅

KRBeckman 发表于 2022-7-6 12:00:14

对，我只是想确定我做对了。我必须开始使用它。再次感谢您的帮助。

alanjt 发表于 2022-7-6 12:02:12

不要忘记额外的编码。

Lee Mac 发表于 2022-7-6 12:07:32

如果你更喜欢entsel的行为，还有两种方法：
 

(while
(progn
   (setq ent (car (entsel "\nSelect Arc: ")))

   (cond ((eq 'ENAME (type ent))
         
            (if (not (and (eq "ARC" (cdr (assoc 0 (entget ent))))
                        (eq "0"   (cdr (assoc 8 (entget ent))))))
            
            (princ "\n** Object is not an Arc on Layer \"0\" **")))

         ((princ "\n** Nothing Selected **")))))

 

(while (not ss)
(setq ss (ssget "_+.:E:S" '((0 . "ARC") (8 . "0")))))

 
李
页: [1] 2
查看完整版本: 循环直到层“0”上出现圆弧