寻求DOSLIB开源库
本帖最后由 尘缘一生 于 2019-3-25 23:25 编辑加载LISP程序，取得它的路径，进而把路径加到CAD搜索路径上，已有代码出来，但是需要DOSLIB支持，目前，DOSLIB没有支持CAD高版本的，就是支持，也不是万能解决办法！
然而，据说DOSLIB开源过，那么谁能提供里面支持这个问题的源码吗？万望奉献出来，这对于整合智能安装程序很重要。
下面提供“晓东论坛”的代码，原帖地址如下：
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=17999
加载
[*];返回lisp自身路径,需要DOSLIB支持
[*](defun QAEC_Lisp_Path (fnam_in / str1 lst1 str_out x)
[*](setq str1 (strcat "*\" fnam_in))
[*](setq lst1 (dos_lisplist T))
[*](foreach x lst1
[*] (if (wcmatch x str1)
[*] (setq str_out (vl-filename-directory x))
[*] );if
[*]);foreach
[*]str_out
[*]);end
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif
是这个么 Doslib在github上
你查一下我的帖子，里面有链接。 真要做安装程序，可以试试 python python要怎么做安装程序，有没有相关资料
页:
[1]