请教一下，关于 lisp 能不能制作交互的弹出窗口？

mokson

(alert "info") 只能弹出窗口提示，但不能产生用户交互。
lisp 有没有一种方法产生一个交互的窗口？
比如：在弹出窗口里点“是”就执行A代码，点“否”就执行B代码。
如果做不到，用自定义的图像按钮也可以吧。

lijiao

(acet-ui-message message [caption [type]])

Displays a message box.

Arguments
message A text string containing the message to display. Multiple lines may be separated by ' ' characters.
caption If provided, the caption for the dialog. Defaults to "Error".
type If provided, a bitmap of various flags used to achieve different effects.
The following type flags are available:
Base types
   0 = Acet:OK
   1 = Acet:OKCANCEL
   2 = Acet:ABORTRETRYIGNORE
   3 = Acet:YESNOCANCEL
   4 = Acet:YESNO
   5 = Acet:RETRYCANCEL
Icons
  16 = Acet:ICONSTOP
  32 = Acet:ICONQUESTION
  48 = Acet:ICONWARNING
  64 = Acet:ICONINFORMATION
Default buttons
   0 = Acet:DEFBUTTON1
256 = Acet:DEFBUTTON2
512 = Acet:DEFBUTTON3
768 = Acet:DEFBUTTON4

Return Values
Returns one of the following values:

1 = Acet:IDOK
2 = Acet:IDCANCEL
3 = Acet:IDABORT
4 = Acet:IDRETRY
5 = Acet:IDIGNORE
6 = Acet:IDYES
7 = Acet:IDNO
8 = Acet:IDCLOSE
9 = Acet:IDHELP

mokson

lijiao 发表于 2020-8-24 14:19
(acet-ui-message message [caption [type]])

Displays a message box.

论坛真是个藏龙卧虎的地方。
感谢 lijiao 兄的指导！
做个简单的应用实例以表示感谢：

;Acet函数，需要你当前的AutoCAD系统中安装有ExpressTools
(defun c:msg ()
(setq StrInfo "小朋友，我带你去明经论坛\n你去不去？")
(setq Caption " ----->> 明经论坛 <<----- "
(setq answer (acet-ui-message Strinfo Caption 3))
(cond
  ((= answer 6) (acet-ui-message "你同意了!" caption 64))
  ((= answer 7) (acet-ui-message "你不想去!" caption 64))
  ((= answer 2) (acet-ui-message "你没有回答我!" caption 64))
)
)

yanshengjiang

陨落 发表于 2020-8-27 12:41
acet函数对expresstools有依赖

你好 我的是cad2016  这还是公司的电脑，但一直是我一个人用。

我记得是没装expresstools的  为什么支持这个函数呢  是高版本的cad都内置expresstools了吗

Bao_lai

DCL交互了解下

烟盒迷唇

只能用DCL去做了

mokson

烟盒迷唇

这种方法还要带个灯泡才行，很多人都不带灯泡的。

陨落

用Wscript.shell好像也可以

陨落

acet函数对expresstools有依赖

yanshengjiang

这个功能很爽很爽