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

AutoCAD 文档中心

示例：请求密码（DCL）

2023-1-8 08:45| 发布者: admin| 查看: 392| 评论: 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