用oDCL.lsp 和lsp生成的vlx为什么还需要.ODCL文件？

taocitc · 发表于 2012-3-23 10:40:14

用oDCL.lsp 和lsp生成的vlx为什么还需要.ODCL文件？如果只用.vlx文件会提示“项目加载失败，文件未找到或读取时发成错误”
请问怎么个情况啊？

aytxq · 发表于 2012-3-23 12:20:01

你加载的语句应该有误

taocitc · 发表于 2012-3-25 16:59:06

本帖最后由 taocitc 于 2012-3-25 17:00 编辑

aytxq 发表于 2012-3-23 12:20
你加载的语句应该有误

(defun c:hello (/)
  (command "OPENDCL")
  (dcl_Project_Load "hello.oDCL" T)
  (setq bFlag t)
  (princ)
  (while bFlag
(setq bFlag nil)
(dcl_Form_Show hello_Form1)
  )
)

然后把odcl另存为.lsp

;;; Visual LISP 生成文件 [V1.0] hello saved to:[C:/Program Files/AutoCAD 2010/KSteel] at:[3/25/12]
(PRV-DEF (:target . "hello.VLX")
  (:active-x . T)
  (:separate-namespace)
  (:protected . T)
  (:load-file-list (:lsp "hello.LSP"))
  (:require-file-list (:lsp "hello.odcl.lsp"))
  (:ob-directory)
  (:tmp-directory)
  (:optimization . st)
)
;; EOF

哪里有问题啊？
最后删掉odcl和odcl.lsp就白搭了

taocitc · 发表于 2012-3-27 15:36:14

谁知道啊。捣鼓了好几天了白搭，看那个例子也看不明白

yewuqiang · 发表于 2013-1-3 17:21:59

编译vlx的时候不要用专家，用普通方式编译

革天明 · 发表于 2013-10-11 12:32:15

yewuqiang 发表于 2013-1-3 17:21
编译vlx的时候不要用专家，用普通方式编译

能说详细一点吗？是把.odcl文件再加上后缀名变成.odcl.lsp这样吗？

革天明 · 发表于 2013-10-11 12:32:58

; 编译终止
; 错误: 编译器发现致命错误 "MDocLabel.odcl.lsp"
_$

hpy · 发表于 2013-10-11 14:41:15

可能是方法有问题，把odcl文件存为lsp虽然可以编译进vlx，但是这样作的后果是程序运行时找不到ODCL文件，所以出错。
一个笨的方法是把ODCL的后缀名改为*.txt的形式，然后打包进vlx中，程序运行时还原ODCL文件到指定路径中，然后加载，应该可以正常运行了。具体怎么还原ODCL文件，可以参考下面的代码。
这个代码是从其他论坛找来的。

;;|因为用vl-get-resource读出的文本是用"\r\n"（分行回车）符分隔的，因此可以利用zhy_string_tok函数来生成字符串表。
然后根据表的内容来复原对话框。
|;;
(defun odc_make (odc_name odc_txt / fn fn2 fn_lst n m fn_txt)
(setq fn2 (open odc_name "w"));odc_name为要生成的对话框
(setq fn (vl-get-resource odc_txt));odc_txt为打包到vlx中的文本名，（不要扩展名）
(strlen fn)
(setq fn_lst (zhy_string_tok fn "\r\n"));根据读出的文本生成字符串表
(setq n (length fn_lst))
(setq m 0)
(while (< m n)
(setq fn_txt (nth m fn_lst))
(write-line fn_txt fn2)
(setq m (1+ m))
)
(close fn2)
)
(defun zhy_string_tok (sstring sstr / n1 n2 m2 str_1)
(setq string_list '())
(setq n1 (strlen sstring))
(setq n2 (strlen sstr))
(while (setq m2 (vl-string-search sstr sstring))
(setq str_1 (substr sstring 1 m2))
(setq sstring (substr sstring (+ 1 m2 n2)))
(if (/= str_1 "")
(setq string_list (cons str_1 string_list))
)
(if (= (substr sstring 1 n2) sstr)
(setq string_list (cons "" string_list))
)
)
(if (/= sstring "")
(setq string_list (cons sstring string_list))
)
(reverse string_list)
)

;;|因为用vl-get-resource读出的文本是用"\r\n"（分行回车）符分隔的，因此可以利用zhy_string_tok函数来生成字符串表。 
然后根据表的内容来复原对话框。 
|;; 
(defun odc_make (odc_name odc_txt / fn fn2 fn_lst n m fn_txt) 
  (setq fn2 (open odc_name "w"));odc_name为要生成的对话框 
  (setq fn (vl-get-resource odc_txt));odc_txt为打包到vlx中的文本名，（不要扩展名） 
  (strlen fn) 
  (setq fn_lst (zhy_string_tok fn "\r\n"));根据读出的文本生成字符串表 
  (setq n (length fn_lst)) 
  (setq m 0) 
  (while (< m n) 
    (setq fn_txt (nth m fn_lst)) 
    (write-line fn_txt fn2) 
    (setq m (1+ m)) 
    ) 
  (close fn2) 
) 
(defun zhy_string_tok (sstring sstr / n1 n2 m2 str_1) 
  (setq string_list '()) 
  (setq n1 (strlen sstring)) 
  (setq n2 (strlen sstr)) 
  (while (setq m2 (vl-string-search sstr sstring)) 
    (setq str_1 (substr sstring 1 m2)) 
    (setq sstring (substr sstring (+ 1 m2 n2)))      
    (if    (/= str_1 "") 
      (setq string_list (cons str_1 string_list)) 
    ) 
    (if (= (substr sstring 1 n2) sstr) 
      (setq string_list (cons "" string_list)) 
    ) 
  ) 
  (if (/= sstring "") 
    (setq string_list (cons sstring string_list)) 
  ) 
  (reverse string_list) 
)

革天明 · 发表于 2013-10-11 14:52:10

大概的意思就是：打开odcl的文件——在odcl里选择文件另存为——另存的文件以*.lsp做后缀——会得到一个lsp文件，文件的内容是个list表——在你原来的lisp文件中把(dcl_Project_Load "**")这句话替换为(setq project aaaa）及(dcl_project_import project nil nil)这两句，其中aaaa是刚才通过odcl文件得到的lsp文件内的那个表——保存，接下去就是把这个lisp文件按照普通的lisp文件编译就好了，不需要管对话框的那个文件了

这个方法可行

趣意人生 · 发表于 2021-2-24 15:17:30

做个记号！学习中！

账号		自动登录	找回密码
密码			注册

用oDCL.lsp 和lsp生成的vlx为什么还需要.ODCL文件？

本帖子中包含更多资源