[推荐]：关于ObjectDCL 对话框的新发现.

zhynt

大家知道原先的odc文件是编译过的,想要将它打包到VLX文件中是不可能的,
现在好了,新版本的ObjectDCL生成的是未编译的文本文件,我们在做好ODC文件后,降后缀改为TXT,然后打包到VLX中,程序运行时只要将它读出,并重新生成ODC文件,程序结束后再将其删除即可,

再有就是,新版本的ObjectDCL2004.ARX可以加载新版的文本状态的ODC文件,因此该方法在CAD2004~2007均可行.

qjcpj

赶紧试试。

lidejun_55

如果autdesk不把这个工具收购真可惜

fsxm

autdesk最该做的不是收购ObjectDCL
而是把vba的对话框整合到lisp中来
没必要一个软件自己开发一个对话框程序吧？
走向统一标准化才是出路！
如果整合好vba了，ObjectDCL就它妈的见鬼去吧！

szmax

是个好方法,不过中间操作还是不清楚.

zhynt

做一个通用函数：
[php]
;|因为用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)
)
[/php]

调用格式如：
(odc_make  "name.odc" "name")

shghe

高人啊
看来是学海无崖啊

netbee

新版安装文件的下载地址？？？

szmax

不知道置顶的贴子里面objectdlc是不是可以用.

dandee

向objectdcl的创造者致敬。
感谢楼主的发现
对vba感冒
享受lisp的独特

zhynt

置顶帖子已经更新，里面有新版文件。

JQKA

厉害，不错的思路。向楼主学习

qfcad

objectdcl确实很好用。

ywqq

好方法，
谢谢了。