CAD开发者社区 › 首页 ›AutoCAD二次开发指南› AutoLISP 开发指南› AutoLISP：开发人员指南› DCL相关概念› 关于管理对话框（DCL）› 关于隐藏对话框的函数（DCL） › 查看内容

AutoLISP 开发指南

示例：请求密码（DCL）

2023-1-6 09:13| 发布者: admin| 查看: 446| 评论: 0|来自: AutoCAD

摘要: 此示例演示如何使用简单的对话框向用户请求密码。

此示例演示如何使用简单的对话框向用户请求密码。

注意：磁贴的属性仅在 Windows 上受支持。password_charedit_box

下面定义一个名为的对话框，其中包含两个磁贴：用户在其中输入密码的磁贴和磁贴。它使用 DCL 属性来屏蔽用户输入的文本：passdlgedit_boxok_cancelpassword_char

// GETPASS.DCL
//
passdlg : dialog
{
  label = "Password Protected";
  : edit_box
  {
    label = "Password:";
    edit_width = 20;
    key = "password";
    password_char = "?";
  }
  ok_cancel;
}

下面定义了一个名为的函数。此函数加载getpass.dcl文件并显示对话框。当用户在编辑框中输入文本时，它将被 DCL 文件中定义的字符遮盖。分配给编辑框的操作可确保用户输入的字符设置为变量：GETPASSpassdlgpassword_charpass

;; GETPASS.LSP
;;
(defun GETPASS ( / dcl_id pass )
  (setq dcl_id (load_dialog "getpass.dcl"))
  (if (new_dialog "passdlg" dcl_id)
    (progn
      (action_tile "password" "(setq pass $value)")
      (start_dialog)
      (unload_dialog dcl_id)
    )
    (princ "Error: Unable to load GETPASS.DCL. ")
  )
  pass
)

该函数返回用户输入的字符串。GETPASS