Netload and run dll

st788796

lucas3 发表于 2014-12-2 10:44
大师，应该是没有加载就转去执行命令了，

这样试试

1. (if (member "MYTEST.DLL" (mapcar 'strcase (arx)))
   
2.   (command "cmdtest")
   
3.   (if (findfile "mytest.dll")
   
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.       (command "cmdtest")
    
12.     )
    
13.     (princ "\nmytest.dll not find!")
    
14.   )
    
15. )
    

(if (member "MYTEST.DLL" (mapcar 'strcase (arx)))<br />   (command "cmdtest")<br />   (if (findfile "mytest.dll")<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 />     (princ "\nmytest.dll not find!")<br />   )<br /> )<br />

lucas3

st788796 发表于 2014-12-2 10:54
这样试试

谢ST大师！
测试过了，
假如文件dll 移出后，测试： mytest.dll not find!"\nmytest.dll not find!"    会出现2句.........not find.
移回文件再测试，已经能够正常运行，但是还出现 mytest.dll not loaded!

lucas3

st788796 发表于 2014-12-2 10:54
这样试试

ST大师，再帮我看看哈

st788796

lucas3 发表于 2014-12-2 18:42
ST大师，再帮我看看哈

最后加一句  (princ)

lucas3

st788796 发表于 2014-12-2 18:51
最后加一句  (princ)

大师，这样改之后只是 没有dll文件时，不会出现2次not find, 但是dll已经存在的情况下
运行后，UI界面都弹出来了，但是还提示mytest.dll not loaded! 而且关掉UI界面后又弹出
Ok, E:\Program Files\AutoCAD 2007\Support\test\mytest.dll loaded!

st788796

lucas3 发表于 2014-12-2 19:19
大师，这样改之后只是 没有dll文件时，不会出现2次not find, 但是dll已经存在的情况下
运行后，UI界面都 ...

实在搞不懂你的情况，给你加了注释自己看着该吧

1. (if (member "MYTEST.DLL" (mapcar 'strcase (arx))) ;_检查是否加载了 mytest.dll
   
2.   (command "cmdtest") ;_加载了直接执行命令
   
3.   (if (findfile "mytest.dll") ;_没有加载时，查找文件
   
4.     (progn
   
5.       (princ "\nmytest.dll not loaded!") ;_提示没有加载
   
6.       (setvar "cmdecho" 0) ;_抑制命令行提示
   
7.       (command "netload" (findfile "mytest.dll")) ;_加载
   
8.       (princ (strcat "\nOk, " (findfile "mytest.dll") " loaded!")) ;_提示加载成功
   
9.       (command "cmdtest") ;_执行命令
   
10.     )
    
11.     (princ "\nmytest.dll not find!") ;_没有找到mytest.dll
    
12.   )
    
13. )
    
14. (princ)
    

(if (member "MYTEST.DLL" (mapcar 'strcase (arx))) ;_检查是否加载了 mytest.dll<br />   (command "cmdtest") ;_加载了直接执行命令<br />   (if (findfile "mytest.dll") ;_没有加载时，查找文件<br />     (progn<br />       (princ "\nmytest.dll not loaded!") ;_提示没有加载<br />       (setvar "cmdecho" 0) ;_抑制命令行提示<br />       (command "netload" (findfile "mytest.dll")) ;_加载<br />       (princ (strcat "\nOk, " (findfile "mytest.dll") " loaded!")) ;_提示加载成功<br />       (command "cmdtest") ;_执行命令<br />     )<br />     (princ "\nmytest.dll not find!") ;_没有找到mytest.dll<br />   )<br /> )<br /> (princ)<br />

lucas3

st788796 发表于 2014-12-2 20:04
实在搞不懂你的情况，给你加了注释自己看着该吧

谢谢ST大师，老好人！{:soso_e160:}
注释掉 这两句就行了
  ;;(princ "\nTextToGeom.dll not loaded!")
;;(princ (strcat "\nOk, " (findfile "TextToGeom.dll") " loaded!"))

spp_wall

这个如何判断CAD的版本加载DLL？ 比如10版本以下加载CAD2010*.dll，10以上的版本加载CAD2010+.dll