对话框按钮。。。帮助

NDCADTECH · 发表于 2022-7-5 18:50:44

因此，我试图编写下面的代码来运行defun“STR”（在我的原始.lsp文件中写在这段代码上面，它本身运行良好，没有对话框），并且在单击“隐藏”按钮时不会返回对话框（我正在添加第二个“填充信息，而不是从图形中选择信息”选项，这就是我需要对话框的原因）。我承认我不知道我在做什么，我已经为此工作了两天。对话框按指示弹出，但所有三个按钮（隐藏、接受、取消）做相同的事情，关闭对话框，什么也不做。我需要改变和/或添加什么才能使它按我需要的方式工作？

copy

;STR_test2.lsp 23July2015 AAR (yippyskippy86@gmail.com) 
(defun C:STR_test ()
 (if(not(setq dcl_id (load_dialog "STR_test2.dcl")))
   (progn(alert "The DCL file could not be loaded.")(exit))
   (progn(if(not(new_dialog "STR_test2" dcl_id))(progn(alert "The STR_test2 definition could not be found in the DCL file!")(exit))
       (progn(action_tile "hide" "("STR")")(action_tile "accept" "(done_dialog 1)")(action_tile "cancel" "(done_dialog 0)")
       (start_dialog)(unload_dialog dcl_id))
   )
 )
)
(princ))