[求助]：关于ARX＋lisp实现地问题！求助ing！！

HillMan

今天用ARX写了一段函数，来实现一个求面域的功能，用LISP调用没有问题，可以实现相关的功能，但是这个LISP函数用VLISP的编译器编译成ARX文件后，再运行就会提示函数没有定义的错误！这是怎么回事啊？《注：R14下开发的》，大家也可以用LISP调用XDAPI的函数，然后将这个LISP编译成ARX试试看看什么问题！！
谢谢！！

eachy

最初由 HillMan 发布
[B]今天用ARX写了一段函数，来实现一个求面域的功能，用LISP调用没有问题，可以实现相关的功能，但是这个LISP函数用VLISP的编译器编译成ARX文件后，再运行就会提示函数没有定义的错误！这是怎么回事啊？《注：R14下开发... [/B]

用 (vl-arx-import "acadapp.arx") 输入你的 arx 才可以。

语法

    (vl-arx-import ['function | "application"])

功能

    它 将 ObjectARX/ADSRX 函数输入到独立名称空间 VLX

说明 函数输入到独立名称空间 VLX

    1）缺省情况下，独立名称空间 VLX 应用程序不从 ObjectARX/ADSRX 应用程序输入任何函数。使用 vl-arx-import 可以从 ObjectARX/ADSRX应用程序中显式输入函数。

    2）如果从文档 VLX 执行，则该函数不做任何操作并返回 nil，而所有ADS-DEFUN函数名将自动输入到文档 VLX 应用程序中。   

   返回值：

         未确定。

   样例：

        执行以下操作，观察 vl-arx-import 如何工作：

       1.将下列代码复制到 VLISP 编辑器，并保存文件：

                (vl-doc-export 'testarx)

                     (defun testarx ()

                       (princ "This function tests invoking an ARX app ")

                       (vl-arx-import 'c:ok)

                        (c:ok)

                      )

      2.使用“生成应用程序”将该代码编译为 VLX。选择“独立名称空间应用程序”选项。

      3.加载 geomcal.arx（如果尚未加载）。

      4.加载并运行应用程序。

要验证 vl-arx-import 的效果，可以注释掉代码中的 vl-arx-import 调用，保存修改，然后在此生成并运行应用程序。没有了 vl-arx-import 调用，将找不到 c:ok 函数。

在上面的样例中，可以用下列代码取代 vl-arx-import 调用：

(vl-arx-import "geomcal.arx")

这样将输入 geomcal.arx 中定义的所有函数，包括 c:ok 在内。



R14下没有这个函数，你确保在Lisp运行前ARX加载了吗？

HillMan

谢谢 eachy兄！明天到公司去试试！

eachy

最初由 HillMan 发布
[B]谢谢 eachy兄！明天到公司去试试！ [/B]

R14下是这个函数
(vlisp-import-exsubrs '("app-name" "entry-name" ["entry-name"...]))

Registers the entry point of an ADS or ARX application within the Visual LISP environment (VLISP Function)

(vlisp-import-exsubrs '("app-name" "entry-name" ["entry-name"...]))

app-name - base name of the application load module
entry-name - names of application functions to be defined in Visual LISP

Returns:

Indeterminate

Examples:

_$ (VLISP-IMPORT-EXSUBRS '("acadapp.exe" "appload"))
("ACADAPP" "appload" "C:PSDRAG" "MTPROP" "MTEDIT" "C:PSFILL" "BHATCH" "BPOLY" "C:PSIN" "ACAD_COLORDLG" "STARTAPP" "ISMNUGRPLOADED" "INITDIA")