IF中的问题

satishrajdev · 发表于 2022-7-6 03:35:12

以下代码有错误，请给我一个解决方案：-

(Defun ProceedT ()
 (if (AND (/= scty "V")
   (/= scty "v")
   (/= scty "E")
   (/= scty "e")
     )
(alert "Invalid Option Please Enter Correct Option")
   )
 )
 (if (AND (= scty "V") (= scty "v"))
   (setq proceed T)
 )
 (if (AND (= scty "E") (= scty "e"))
   (progn (setq proceed T)
   (setq export 1)
   )
 )
)

如果我的scty是e或e
它正在返回零

sepultura · 发表于 2022-7-6 03:48:11

我认为你对最后两个假设有问题。将“AND”替换为“OR”。因为你们不能有相同的时间“E”和“E”条件。

satishrajdev · 发表于 2022-7-6 03:52:35

谢谢sepultura。。。。。。。。。。。。。。成功了：拇指支撑：

Tharwat · 发表于 2022-7-6 03:56:05

在我看来，这就足够了。

copy


(= (strcase scty) "E")

Lee Mac · 发表于 2022-7-6 04:06:28

我建议cond：

copy

(defun proceedt ( )
   (setq scty (strcase scty))
   (cond
       (   (= "V" scty)
           (setq proceed t)
       )
       (   (= "E" scty)
           (setq proceed t
                 export  1
           )
       )
       (   (alert "Invalid option!\nPlease enter correct option."))
   )
)

satishrajdev · 发表于 2022-7-6 04:12:48

谢谢Tharwat&Lee Mac先生。。。。。。。。。。

pBe · 发表于 2022-7-6 04:17:29

为什么不阻止用户在开始时指定错误的值呢？

David Bethel · 发表于 2022-7-6 04:24:49

+1

此外，（cond）测试也足以：

copy


 [b][color=BLACK]([/color][/b]cond [b][color=FUCHSIA]([/color][/b][b][color=NAVY]([/color][/b]not [b][color=MAROON]([/color][/b]member scty '[b][color=GREEN]([/color][/b][color=#2f4f4f]"E"[/color] [color=#2f4f4f]"e"[/color] [color=#2f4f4f]"V"[/color] [color=#2f4f4f]"v"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]alert [color=#2f4f4f]"Invalid Option"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
       [b][color=FUCHSIA]([/color][/b][b][color=NAVY]([/color][/b]member scty '[b][color=MAROON]([/color][/b][color=#2f4f4f]"V"[/color] [color=#2f4f4f]"v"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq proceed T[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
       [b][color=FUCHSIA]([/color][/b][b][color=NAVY]([/color][/b]member scty '[b][color=MAROON]([/color][/b][color=#2f4f4f]"E"[/color] [color=#2f4f4f]"e"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq proceed T[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
       [b][color=FUCHSIA]([/color][/b]T
        [b][color=NAVY]([/color][/b]setq export 1[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]