组合条件

satishrajdev · 发表于 2022-7-6 03:20:09

大家好，
我有一个矿脉如下

(setq dta nil
     lonzone nil
     Hem nil
)
(while (= dta nil)
 (setq dta (ssget '((0 . "text,mtext"))))
 (if (= dta nil)
   (alert "Please select text to continue...")
 )
)
(while (= lonzone nil)
 (setq lonzone (getint "\n Enter Zone:"))
 (if (= lonzone nil)
   (alert "Please Enter Zone to Continue...")
 )
)
(while (= Hem nil)
 (initget "N S")
 (setq Hem (getkword "\n Enter the Hemisphere (S/N):"))
 (if (= Hem nil)
   (alert "Please Enter Correct Option to Continue...")
 )
)

我们可以合并3个while条件吗。。。。。。。。。

David Bethel · 发表于 2022-7-6 03:39:28

可能简化为：

copy


 [b][color=BLACK]([/color][/b]setq dta nil
       lonzone nil
       Hem nil[b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]while [b][color=FUCHSIA]([/color][/b]not dta[b][color=FUCHSIA])[/color][/b]
        [b][color=FUCHSIA]([/color][/b]princ [color=#2f4f4f]"\nPlease select text to continue..."[/color][b][color=FUCHSIA])[/color][/b]
        [b][color=FUCHSIA]([/color][/b]setq dta [b][color=NAVY]([/color][/b]ssget '[b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]0 . [color=#2f4f4f]"text,mtext"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]initget 1[b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]setq lonzone [b][color=FUCHSIA]([/color][/b]getint [color=#2f4f4f]"\n Enter Zone:"[/color][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]initget 1 [color=#2f4f4f]"N S"[/color][b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]setq Hem [b][color=FUCHSIA]([/color][/b]getkword [color=#2f4f4f]"\n Enter the Hemisphere [b][color=NAVY]([/color][/b]S/N[b][color=NAVY])[/color][/b]:"[/color][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]