Netload and run dll

lucas3

假如我有一个dll （mytest.dll） ,命令是cmdtest

1. (defun c:test ()
   
2.   (command "_netload" "C:\\Test\\mytest.dll")
   
3.   (command "cmdtest")
   
4. )
   

(defun c:test ()<br />   (command "_netload" "C:\\Test\\mytest.dll")<br />   (command "cmdtest")<br /> )<br />

上面的一段代码显示没有技术含量，{:soso_e101:}
想请大师来一段高大上的代码{:soso_e113:}，
这个mytest.dll 在CAD支持路径下， 具体位置不知 ，所以代码中最好不要绝对路径，代码能自动找到这个dll

搜了一段代码，放入到ACAD.lisp中自动加载

1. ((lambda (path)
   
2.    (if (wcmatch path "*\\DEBUG\\*")
   
3.      (foreach f  (vl-directory-files path "*.DLL" 1)
   
4.        (if
   
5.    (wcmatch path
   
6.       (strcat "*\\" (strcase (vl-filename-base f)) "\\*")
   
7.    )
   
8.     (command "_.netLoad" f)
   
9.        )
   
10.      )
    
11.    )
    
12. )
    
13.   (strcase (getvar 'dwgprefix))
    
14. )

((lambda (path)<br />    (if (wcmatch path "*\\DEBUG\\*")<br />      (foreach f  (vl-directory-files path "*.DLL" 1)<br />        (if<br />    (wcmatch path<br />       (strcat "*\\" (strcase (vl-filename-base f)) "\\*")<br />    )<br />     (command "_.netLoad" f)<br />        )<br />      )<br />    )<br /> )<br />   (strcase (getvar 'dwgprefix))<br /> )

st788796

lucas3 发表于 2014-12-1 16:57
这段代码怎么用呢？

这个应该是 Net 程序调试用的，加载 dwg 文件目录的  debug 子目录下的 dll 文件

lucas3

1. (if (wcmatch path
   
2.                          (strcat "*\\" (strcase (vl-filename-base f)) "\\*")
   
3.                 )
   
4.                 (progn (prompt (strcat "\n DEBUG NETLOADING :\n" path f))
   
5.                        (command "_.netLoad" f)
   
6.                 )
   
7.             )

(if (wcmatch path<br />                          (strcat "*\\" (strcase (vl-filename-base f)) "\\*")<br />                 )<br />                 (progn (prompt (strcat "\n DEBUG NETLOADING :\n" path f))<br />                        (command "_.netLoad" f)<br />                 )<br />             )

另外如何 获取dll的路径 ，还是假如 mytest.dll ,  不知道在哪，运行后能获取路径C:\\Test\\mytest.dll
如果没找不到就弹提示，如果找到了 就把这个路径 给到一个变量dllpath

csharp

lucas3 发表于 2014-12-1 15:35
另外如何 获取dll的路径 ，还是假如 mytest.dll ,  不知道在哪，运行后能获取路径C:\\Test\\mytest.dll ...

既然在 support 下，直接 netload 即可，非要知道路径用 findfile

lucas3

csharp 发表于 2014-12-1 15:47
既然在 support 下，直接 netload 即可，非要知道路径用 findfile

这个我知道啊，但是不会编程，所以....求助啊

csharp

lucas3 发表于 2014-12-1 15:54
这个我知道啊，但是不会编程，所以....求助啊

这个不需要编程啊!
(command "netload" "mytest.dll")

mytest.dll 在 support 路径即可

lucas3

csharp 发表于 2014-12-1 16:12
这个不需要编程啊!
(command "netload" "mytest.dll")

沙发的问题怎么解决啊

csharp

lucas3 发表于 2014-12-1 16:23
沙发的问题怎么解决啊

获取已加载的 dll 路径可以写个 Net 工具来获取，很简单，网上有现成代码，不在 support 下的用lisp获取不好办

lucas3

csharp 发表于 2014-12-1 16:27
获取已加载的 dll 路径可以写个 Net 工具来获取，很简单，网上有现成代码，不在 support 下的用lisp获取 ...

不是获取已加载的dll ，而是未加载的， 用findfile 不行吗？  要静待大师们解决了

st788796

lucas3 发表于 2014-12-1 16:31
不是获取已加载的dll ，而是未加载的， 用findfile 不行吗？  要静待大师们解决了

只要在 support 的 findfile 就可以，在 support 下的不需要 findfile

lucas3

st788796 发表于 2014-12-1 16:34
只要在 support 的 findfile 就可以，在 support 下的不需要 findfile

怎么听了云里雾里？

lucas3

st788796 发表于 2014-12-1 16:34
只要在 support 的 findfile 就可以，在 support 下的不需要 findfile

1. (if (wcmatch path
   
2.                          (strcat "*\\" (strcase (vl-filename-base f)) "\\*")
   
3.                 )
   
4.                 (progn (prompt (strcat "\n DEBUG NETLOADING :\n" path f))
   
5.                        (command "_.netLoad" f)
   
6.                 )
   
7.             )

(if (wcmatch path<br />                          (strcat "*\\" (strcase (vl-filename-base f)) "\\*")<br />                 )<br />                 (progn (prompt (strcat "\n DEBUG NETLOADING :\n" path f))<br />                        (command "_.netLoad" f)<br />                 )<br />             )

这段代码怎么用呢？

lucas3

st788796 发表于 2014-12-1 17:04
这个应该是 Net 程序调试用的，加载 dwg 文件目录的  debug 子目录下的 dll 文件

谢谢ST大师解答
我需要这样的一个功能，大师帮帮我，
我想运行命令test ，判断mytest.dll有没有加载， 如果已经加载了，就执行命令cmdtest ，如果没有加载，就查找mytest.dll  ，如果找不到就弹提示并退出，如果找到了，就princ 这个dll文件路径，如：C:\\Test\\mytest.dll  ，然后加载，并执行命令cmdtest  


大师帮帮我！ 谢谢！

st788796

lucas3 发表于 2014-12-1 17:29
谢谢ST大师解答
我需要这样的一个功能，大师帮帮我，
我想运行命令test ，判断mytest.dll有没有加载，  ...

这个不好办，怎么知道这个是 dll 定义还是 lsp 定义，不过也可以仿照 autoload 写一个 自动加载 dll 的函数

lucas3

st788796 发表于 2014-12-1 17:35
这个不好办，怎么知道这个是 dll 定义还是 lsp 定义，不过也可以仿照 autoload 写一个 自动加载 dll 的函 ...

大师您的意思是判断 mytest.dll有没有加载 这一点不好办是吗？