使用if初始化getkword（&G）

broncos15 · 发表于 2022-7-5 17:29:13

我试图用if和语句让用户选择一个对象，然后我问用户一个问题。我试图用默认选项提示，并且只允许最大值/最小值。然而，当我将initget语句放在（if）之前时，它似乎工作不正常

(initget "Maximum mInimum")
 (if
   (and
     (setq ent (selectif "\nSelect structure type to test: " prd))
     (setq *dropans*
            (cond
              (
               (getkword
                 (strcat "\nDo you want to test for [Maximum/mInimum] drop <"
                         (setq *dropans*
                                (cond (*dropans*)
                                      ("Maximum")
                                )
                         )
                         ">: "
                 )
               )
              )
              (*dropans*)
            )
     )

Lee Mac · 发表于 2022-7-5 17:52:35

我建议如下：

copy

(if (setq ent (selectif "\nSelect structure type to test: " prd))
   (progn
       (or *dropans* (setq *dropans* "Maximum"))
       (initget "Maximum mInimum")
       (if (setq tmp (getkword (strcat "\nDo you want to test for [Maximum/mInimum] drop <" *dropans* ">: ")))
           (setq *dropans* tmp)
       )
   )
)

不需要在if语句的测试表达式中包含第二个提示，因为第二个提示不能返回null。