Netload and run dll

st788796

lucas3 发表于 2014-12-1 17:38
大师您的意思是判断 mytest.dll有没有加载 这一点不好办是吗？

xdapi有个获取加载的lisp 和 arx函数, 你可以试试能不能获取dll

lucas3

st788796 发表于 2014-12-1 18:08
xdapi有个获取加载的lisp 和 arx函数, 你可以试试能不能获取dll

那大师就帮帮我如何获取这个dll的完整路径吧 ，把这个路径赋值给变量 dllpath

(setq dllpath (findfile "mytest.dll"))   这样吗？？？

XDSoft

lucas3 发表于 2014-12-1 18:26
那大师就帮帮我如何获取这个dll的完整路径吧 ，把这个路径赋值给变量 dllpath

(setq dllpath (findfil ...

你把这段代码贴到命令行看，看看得到的是什么？ 如果是NIL，就说明dll文件没在搜索目录里面。

lucas3

st788796 发表于 2014-12-1 18:08
xdapi有个获取加载的lisp 和 arx函数, 你可以试试能不能获取dll

1. (defun c:test ()
   
2. (
   
3.     (lambda ( / dll )
   
4.         (if (setq dll (findfile "mytest.dll"))
   
5.             (command "_.netload" dll)
   
6.             (princ "\nmytest.dll not found.")
   
7.         )
   
8.         (princ)
   
9.     )
   
10. )
    
11. )

(defun c:test ()<br /> (<br />     (lambda ( / dll )<br />         (if (setq dll (findfile "mytest.dll"))<br />             (command "_.netload" dll) <br />             (princ "\nmytest.dll not found.")<br />         )<br />         (princ)<br />     )<br /> )<br /> )

ST大师，这样只是找到加载，没找到提示， 怎么改成找到加载dll ，然后运行命令cmdtest 呢 ? 这一句 (command "cmdtest")加到哪里？

st788796

lucas3 发表于 2014-12-1 19:29
ST大师，这样只是找到加载，没找到提示， 怎么改成找到加载dll ，然后运行命令cmdtest 呢 ? 这一句 ( ...

先判断命令，没有提示

lucas3

st788796 发表于 2014-12-1 19:40
先判断命令，没有提示

？？？{:soso_e134:}

ST大师，你误解了吧，我意思是

这一小段程序是 找到mytest.dll ,就加载，没找到就提示：nmytest.dll not found  


怎么改成找到mytest.dll ,就加载 ，加载后还要运行命令cmdtest   , 这一句 (command "cmdtest")加到哪里？

st788796

lucas3 发表于 2014-12-1 19:46
？？？

ST大师，你误解了吧，我意思是

首先用type判断命令，没有，提示并加载，判断后才是command命令

lucas3

st788796 发表于 2014-12-1 20:05
首先用type判断命令，没有，提示并加载，判断后才是command命令

大师，等明天您用电脑上的时候帮我写一个吧，谢谢啦

st788796

lucas3 发表于 2014-12-1 20:08
大师，等明天您用电脑上的时候帮我写一个吧，谢谢啦

1. (if (and (/= (type 'CMDTEST) 'SYM)
   
2.          (findfile "mytest.dll")
   
3.     )
   
4.   (progn
   
5.     (princ "\nmytest.dll not loaded!")
   
6.     (setvar "cmdecho" 0)
   
7.     (command "netload" (findfile "mytest.dll"))
   
8.     (princ "\nOk, ")
   
9.     (princ (findfile "mytest.dll"))
   
10.     (princ " loaded!")
    
11.   )
    
12.   (progn
    
13.     (princ "\nmytest.dll not find!")
    
14.     (exit)
    
15.   )
    
16. )
    
17. (command "cmdtest")
    

(if (and (/= (type 'CMDTEST) 'SYM)<br />          (findfile "mytest.dll")<br />     )<br />   (progn<br />     (princ "\nmytest.dll not loaded!")<br />     (setvar "cmdecho" 0)<br />     (command "netload" (findfile "mytest.dll"))<br />     (princ "\nOk, ")<br />     (princ (findfile "mytest.dll"))<br />     (princ " loaded!")<br />   )<br />   (progn<br />     (princ "\nmytest.dll not find!")<br />     (exit)<br />   )<br /> )<br /> (command "cmdtest")<br />

lucas3

st788796 发表于 2014-12-2 08:06

谢谢ST大师！{:soso_e179:}
刚试了，怎么dll文件存在，也提示mytest.dll not find!; 错误: quit / exit abort

st788796

lucas3 发表于 2014-12-2 08:59
谢谢ST大师！
刚试了，怎么dll文件存在，也提示mytest.dll not find!; 错误: quit / exit  ...

and 多了

1. (if (findfile "mytest.dll")
   
2.   (if (/= (type 'CMDTEST) 'SYM)
   
3.     (progn
   
4.       (princ "\nmytest.dll not loaded!")
   
5.       (setvar "cmdecho" 0)
   
6.       (command "netload" (findfile "mytest.dll"))
   
7.       (princ "\nOk, ")
   
8.       (princ (findfile "mytest.dll"))
   
9.       (princ " loaded!")
   
10.       (command "cmdtest")
    
11.     )
    
12.     (command "cmdtest")
    
13.   )
    
14.     (princ "\nmytest.dll not find!")
    
15. )
    

(if (findfile "mytest.dll")<br />   (if (/= (type 'CMDTEST) 'SYM)<br />     (progn<br />       (princ "\nmytest.dll not loaded!")<br />       (setvar "cmdecho" 0)<br />       (command "netload" (findfile "mytest.dll"))<br />       (princ "\nOk, ")<br />       (princ (findfile "mytest.dll"))<br />       (princ " loaded!")<br />       (command "cmdtest")<br />     )<br />     (command "cmdtest")<br />   )<br />     (princ "\nmytest.dll not find!")<br /> )<br />

lucas3

st788796 发表于 2014-12-2 09:07
and 多了

还是不行哟 ，命令: test
CMDTEST 未知命令“CMDTEST”。按 F1 查看帮助。

怎么两个(command "cmdtest")

st788796

lucas3 发表于 2014-12-2 09:22
还是不行哟 ，命令: test
CMDTEST 未知命令“CMDTEST”。按 F1 查看帮助。

给你的是示意，你也没说 命令名 是什么！ 把 CMDTEST 改成 mytest.dll 中定义的命令名

lucas3

st788796 发表于 2014-12-2 09:25
给你的是示意，你也没说 命令名 是什么！ 把 CMDTEST 改成 mytest.dll 中定义的命令名

命令名就是命令: CMDTEST ，dll名 就是mytest.dll , 我手动运行netload 加载mytest.dll ，运行cmdtest是没有问题的哟

lucas3

st788796 发表于 2014-12-2 09:07
and 多了

大师，应该是没有加载就转去执行命令了，{:soso_e101:}