如何正确地将 DCL 链接到 AutoLisp？

Question

我正在尝试构建一个非常基本的 AutoLisp 界面。我在这方面完全是个初学者，所以在从头开始编码失败后，我开始正确地学习 DCL。我按照这个教程进行操作：

http://www.afralisp.net/dialog-control-language/tutorials/dialog-boxes-and-autolisp-part-1.php

我也遇到了同样的错误。AutoCAD 基本上退出执行该函数，就好像 dcl 文件根本不存在一样。

我尝试将地址完全输入其中，但我认为它应该能够像将 HTML 链接到同一文件夹中的图像一样工作。

下面是我的代码：

数据保护层：

samp1 : dialog {
    label = "Structural Holes";

    ok_cancel;
}

口齿不清：

(defun C:samp1()
  (setq dcl_id (load_dialog "samp1.dcl"))
  (if (not (new_dialog "samp1" dcl_id))
    (exit)
    )

  (action_tile
       "cancel"
       "(done_dialog)(setq userclick nil)"
       )
  (action_tile
    "accept"
    "(done_dialog)(setq userclick T))"
    )

  (start_dialog)

  (unload_dialog dcl_id)

  (princ)

 )

(princ)

感谢任何愿意花时间帮助我解决这个问题的人。我开始非常绝望，这是我的第一个也是唯一一个 autolisp 项目，所以我没有任何经验......

LE：请注意，dcl 文件和 lisp 文件都位于同一文件夹中，没有其他子文件夹或其他任何内容。

Answer 1

1. 找不到* *.DCL 文件
2. 错误：退出/退出中止

3. 错误：加载失败

   这通常意味着找不到 autolisp 文件或 DCL 文件。要解决此问题，请确保将 autolisp 和 DCL 文件放入 AutoCAD 搜索路径中。更具体地说，将它们放在“支持文件和搜索路径”的目录中。要查找 AutoCAD 支持文件和搜索路径列表，请执行以下操作：

4. 在 AutoCAD 中，单击“工具”下拉菜单。

5. 转到“选项”菜单项。
6. 单击“文件”选项卡。

7. 单击支持文件和搜索路径前面的加号 +。

   这是您的搜索路径位置。此处列出的目录将按顺序从上到下搜索您尝试加载的任何 autolisp 程序。它还用于查找块和 DCL 文件。

   添加存储 autolisp 和 DCL 文件的目录，或者将 autolisp 和 DCL 文件移动到此处列出的目录之一。这应该会结束上面列出的错误。

我在这里偶然发现了这条信息：

http://www.jefferypsanders.com/autolisp_nodcl.html

非常感谢杰弗里·桑德斯......