[问题已解决]：我在编译VLX时加载了DCL，但是加载VLX时却提示未找到DCL文件？

jeepsheep

我在编译VLX时加载了DCL，但是加载VLX时却提示未找到DCL文件？

jeepsheep

这是我建VLX的步骤：
帮我看看哪错了！

andyhua5240

难怪楼主的那个程序不行的呢！原来在这里发表求助了！
嘻嘻，加油哦！

aidraft

楼主的LISP程序加载DCL时是不是用了ai_utils.lsp里的函数ai_dcl
如果是,会有问题,将(ai_dcl ...)改成(load_dialog ....)可解决.

(defun ai_dcl (dcl_file / dcl_handle)
  (cond
    ;; If the specified .DCL is already loaded then
    ;; just return its handle to the caller.
    ((ai_return (cdr (assoc dcl_file ai_support))))

    ;; Otherwise, try to FIND the .DCL file, and display a
    ;; an appropriate message if it can't be located, and
    ;; return Nil to the caller:
    ((not (findfile (strcat dcl_file ".dcl")))
      (ai_alert
        (strcat
          "未找到对话框定义文件 " dcl_file
          ".dcl\n请检查支持目录。"))
      (ai_return nil)
    )
    ;; The file has been found.  Now try to load it.  If it
    ;; can't be succesfully loaded, then indicate such, and
    ;; abort the caller:
    ((or (not (setq dcl_handle (load_dialog dcl_file)))
         (> 1 dcl_handle))
      (ai_alert
        (strcat
          "无法加载对话框控制文件 " dcl_file ".dcl"
          "\n请检查支持目录。"))
      (ai_return nil)
    )
    ;; Otherwise, the file has been loaded, so add it's handle
    ;; to the FILE->HANDLE association list AI_SUPPORT, and
    ;; return the handle to the caller:
    (t (setq ai_support (cons (cons dcl_file dcl_handle) ai_support))
      (ai_return dcl_handle)
    )
  )
)

aeo

最初由 jeepsheep 发布
[B]我在编译VLX时加载了DCL，但是加载VLX时却提示未找到DCL文件？ [/B]

你的程序是怎么写的？
加载的那一段.

xazhji

我怀疑你的dcl有问题，你先不要编译，看看有没有问题。

砼皮铁骨

我的程序中需要读取外部数据，我把外部数据存在*.dat 文件中。但是，编译vlx之后，程序不能运行，是什么原因呀。希望高手能帮我解答。谢谢

它山之石

最初由 aeo 发布
[B]

你的程序是怎么写的？
加载的那一段. [/B]

其实就是R14下的DDMODIFY程序，加载是没有什么问题的。如果DCL文件也在CAD的搜索路径中，也可以正常使用。但DCL文件不能加入VLX文件中。我估计是4楼说的原因。

jeepsheep

最初由 aidraft 发布
[B]楼主的LISP程序加载DCL时是不是用了ai_utils.lsp里的函数ai_dcl
如果是,会有问题,将(ai_dcl ...)改成(load_dialog ....)可解决.

(defun ai_dcl (dcl_file / dcl_handle)
  (cond
    ;; If the specified .DCL... [/B]

高人就是高人!
我将(ai_dcl ...)改成(load_dialog ....)真的就解决问题了.
非常感谢!
http://www.xdcad.net/forum/showt ... 1488633#post1488633
这的VLX就更简单多了!