查找时需要紧急帮助

tnvsb · 发表于 2022-7-5 17:50:57

亲爱的朋友们：，

我正在尝试开发一个代码，该代码应该接受用户输入，然后它应该匹配指定的列表值，然后它应该将输出作为警报框。
下面是代码，我写道。但不起作用。请帮帮我。。

（定义C:LSTBRKER（）

（setq BRKLST（列表
（列出“SM”6 16 32 64 100）
（列表“MED”125 160 200 250 315 400）
（列出“HVY”600 800 950 1000 1500 2000 3000）
（列表“HY+”3500 4500 5700 6200 8500）
)

（setq RQBLST（getstring“\n请输入所需的断路器类别=”））
（SETQ REQCAP（STRCASE RQBLST））
（如果（=（REQCAP）（assoc BRKLST列表））
（程序
（Princ（assoc BRKLST））
)
)
)

高级谢谢

Tharwat · 发表于 2022-7-5 18:02:11

欢迎来到CADTutor。

这就是你想要的吗？

copy


(defun c:test  (/ lst st f)
 (setq lst '(("SM" 6 16 32 64 100)
             ("MED" 125 160 200 250 315 400)
             ("HVY" 600 800 950 1000 1500 2000 3000)
             ("HY+" 3500 4500 5700 6200 8500))
       )
 (if (and (/= ""
              (setq st
                     (getstring
                       "\n Please Enter the Required Breaker Catogories = ")))
          (setq f (assoc (strcase st) lst))
          )
   (alert (vl-princ-to-string f))
   )
 (princ)
 )

David Bethel · 发表于 2022-7-5 18:07:52

在这些类型的场景中，我更喜欢（getkword）：

copy


[b][color=BLACK]([/color][/b]defun c:lstbrker [b][color=FUCHSIA]([/color][/b]/ brklst input data[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq brklst '[b][color=NAVY]([/color][/b]
   [b][color=MAROON]([/color][/b][color=#2f4f4f]"SM"[/color] 6 16 32 64 100[b][color=MAROON])[/color][/b]
   [b][color=MAROON]([/color][/b][color=#2f4f4f]"MED"[/color] 125 160 200 250 315 400[b][color=MAROON])[/color][/b]
   [b][color=MAROON]([/color][/b][color=#2f4f4f]"HVY"[/color] 600 800 950 1000 1500 2000 3000[b][color=MAROON])[/color][/b]
   [b][color=MAROON]([/color][/b][color=#2f4f4f]"HY+"[/color] 3500 4500 5700 6200 8500[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 1 [color=#2f4f4f]"Sm Med hVy Hy+"[/color][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq input [b][color=NAVY]([/color][/b]strcase [b][color=MAROON]([/color][/b]getkword [color=#2f4f4f]"\n Please Enter the Required Breaker Catogories - Sm/Med/hVy/Hy+ "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq data [b][color=NAVY]([/color][/b]assoc input brklst[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]terpri[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1 data[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

-大卫

BIGAL · 发表于 2022-7-5 18:18:10

我现在最喜欢的是使用列表框函数see lee mac。com仅强制正确拾取。

copy


(LM:listbox "Please pick" '("SM" "MED" HVY" "HY+") 1)

tnvsb · 发表于 2022-7-5 18:25:56

您好，非常感谢您的快速支持和准确回复。。。。。。

tnvsb · 发表于 2022-7-5 18:30:51

非常感谢Tharwat的快速回复。。很好的解决方案。。。

Tharwat · 发表于 2022-7-5 18:36:27

非常欢迎你。

tnvsb · 发表于 2022-7-5 18:50:06

嗨，大卫·贝瑟尔，非常感谢你的宝贵意见，看起来很不错。您的选择使lisp代码输出很棒。它还显示了所需的输入。。。太棒了。。。。再次感谢。。

David Bethel · 发表于 2022-7-5 18:57:54

哈哈，我想我更像是一个键盘手而不是鼠标手

[编程交流] 查找时需要紧急帮助

发表回复

精选推荐