加载对话框文件

您的程序首先需要使用函数加载 DCL 文件。此函数根据 AutoCAD 支持文件搜索路径搜索对话框文件，除非您指定了完整路径名。load_dialog

对于每个函数，代码后面应该有一个相应的函数。您稍后会看到这一点。现在，看看您需要如何在对话框中加载：load_dialogunload_dialog

;; Load the dialog box.  Set up error checking to make sure   
;; the dialog file is loaded before continuing           
(if (= -1 (setq dcl_id (load_dialog "gpdialog.dcl")))
    (progn
      ;; There's a problem - display a message and set the
      ;; dialogLoaded flag to nil
      (princ "\nCannot load gpdialog.dcl")
      (setq dialogLoaded nil)
    ) ;_ end of progn
) ;_ end of if

变量指示对话框是否成功加载。在设置对话框初始值的代码中，设置为初始值 。正如您在上面的代码片段中看到的，设置为如果加载有问题。dialogLoadeddialogLoadedTdialogLoadednil