[求助]谁能帮我修改一下发送邮件程序？

胡-志勇

初学lisp和DCL，想编写一个对话框，实现点击按钮发送邮件功能，可是运行时AutoCAD总是没响应，请高手帮帮忙，指点一下，谢谢！

胡-志勇

以下是LSP文件内容：
=====================
(defun c:mail()
  (setq dcl_id (load_dialog "mail"))
  (new_dialog "Readme" dcl_id)
  (action_tile "Email" "(youjian)")
  (start_dialog)
)

(defun youjian()
  (command "start" "mailto:test@163.com")
)

=====================

以下是DCL文件内容：
====================
Readme:dialog{
  label="邮件发送例程V1.0";
  :boxed_column{
    :text{value="点击按钮发送邮件";}
    :button{key="Email";label="联系作者：test@163.com";height=2;fixed_height=true;}
    spacer;
  }
  ok_only;
}
=============================

alin

(defun c:mail()
  (setq dcl_id (load_dialog "mail"))
  (new_dialog "Readme" dcl_id)
  (action_tile "Email" "(done_dialog 1)")
  (action_tile "accept" "(done_dialog 0)")
  (if (= (start_dialog) 1)
    (youjian))
  (unload_dialog dcl_id)
  (princ)
)

(defun youjian()
  (command "start" "mailto:test@163.com")
)

胡-志勇

谢谢版主，已测试成功！