CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2021 开发者帮助 › 查看内容

AutoCAD 2021 开发者帮助

示例：请求密码（DCL）

2024-5-18 18:29| 发布者: admin| 查看: 484| 评论: 0|原作者: admin|来自: AutoCAD

示例：请求密码（DCL）

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

注意：磁贴的属性仅在 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