[求助]：急求调用DCL对话框的解决方法

bobo200

各位DX:
        小弟最近编了个程序，包括一个DCL文件和一个调用DCL的lsp文件，打包成VLX文件，可是加载后就无法调用DCL文件了,估计原因是lisp文件里的(load_dialog "*.dcl")这句命令失效，所以想请教各位如何解决这个问题啊。谢谢！

wkai

(load_dialog "*.dcl")不要包含路径！

如 (load_dialog "sample.dcl")

bobo200

最初由 wkai 发布
[B](load_dialog "*.dcl")不要包含路径！

如 (load_dialog "sample.dcl") [/B]

斑竹，你好！
   我的程序里并没有包含路径啊，和你写的一样，就是写了个dcl文件的名字，但没用，是不是捆绑成VLX文件后，cad就找不到dcl文件的路径啊？原文件如下:
(defun C:DCL_help ( / ove2 dcl_id)
   (setq ove2 (getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (setq dcl_id (load_dialog "dcl_help.dcl"))
   (if (not (new_dialog "dcl_h" dcl_id)) (exit))
    (action_tile "bplot_button" "(done_dialog)")
    (start_dialog)
    (unload_dialog dcl_id)
    (setvar "cmdecho" ove2)
)
望给予指教！！

aliu22

只要放在相对路径就可以了,你可以先改为绝对路径试一下,看看能不能.

bobo200

感谢楼上的答复，不是路径的问题，主要是当lsp文件和DCL文件合并成VLX后，cad就找不到DCL文件加载了，路径没有意义了，因为DCL文件已经没了，所以我就不知道怎么加载这个DCL了。各位大虾们，给点提示啊，拜托了！！

dezhang

不用把*.DCL编译,试试

惟有杜康

调用对话框应用“new_dialog"命令啊

bobo200

不用编译肯定可以的，只要把DCL文件放在cad的搜索路径下就可以了，但我想解决的问题就是编译成VLX后能正常使用啊，呵呵

wujimmy

编译后是可以使用的!
这么简单的问题,你随便下一个.vlx 都在带对话框的,
你编译的时候要把对话框加进来

[PHP]
(defun c:test(/)
  (setq dcl_id (load_dialog "test"))
  (setq flag 3)
  
  (while (> flag 2)
    (if        (not (new_dialog "test" dcl_id))
      (exit)
    )

    (if        (null wjm_focus_test)
      (progn
        (set_tile "wjm_focus_test" "1")
        (setq wjm_focus_test "1")
      )
      (set_tile "wjm_focus_test" wjm_focus_test)
    )
   (action_tile "wjm_paxis_layer_button" "(done_dialog 3)")
   (action_tile "accept" "(done_dialog 1)")
   (action_tile "cancel" "(done_dialog 0)")  
   (setq flag (start_dialog))
    (cond
   ((= flag 0)(alert "cancel"))
   ((= flag 1)(alert "accept"))
   ((= flag 3);_select paxis
    (alert "selcet")   
    )  
   )   
  )
  (unload_dialog dcl_id)
  (princ)
)


test.dcl:

test : dialog{
//common_fields;
label="<LJL工具箱>";
: boxed_radio_row {
            label = "检查选项";
            :column{

: toggle {
    label = "提示(&J)";
    key = "wjm_lose_jsj";
    }
    }
        :button{
        label = "选择 <";
        key = "wjm_paxis_layer_button";
    }
    }

spacer_1;
ok_cancel;
}

test.prv
;;; Visual LISP 生成文件 [V1.0] test saved to:[D:/wuJimmy/程序/Autolisp程序/wujimmy/Tmp] at:[12/21/05]
(PRV-DEF (:target . "test.VLX")
         (:active-x . T)
         (:separate-namespace)
         (:protected . T)
         (:load-file-list
           (:lsp "D:/wuJimmy/程序/Autolisp程序/wujimmy/test.LSP")
         )
         (:require-file-list
           (:DCL "D:/wuJimmy/程序/Autolisp程序/wujimmy/test.DCL")
         )
         (:ob-directory)
         (:tmp-directory)
         (:optimization . st)
)
;; EOF[/PHP]

bobo200

谢谢楼上的答复啊，我编译的时候是把DCL文件和LSP文件一起编译。我再看看你上面的例子吧，谢谢啊。

wkai

会不会是你打包生成 vlx 时候的方法有误？

bobo200

应该不会吧，生成VLX不是很简单的么，按步骤添加需要打包的文件就好了啊，还有九楼的wujimmy朋友，你上传的文件我下载不下来啊，我把你贴的l程序分成lsp和dcl两个文件后，打包成vlx后好像也不行么。提示是test有错，估计是找不到dcl了。你可以把你的VLX发给我再试试么？我的EMAIL是czbobo@126.com

zyun0169

我试了也不行