lsp调用bat

长风（尚品）

(defun c:zjaz()
(command "shell" "D:/soft/极速绘图工具箱/增加安装/安装.bat"))
为什么找不到指定文件 请高手指教

自贡黄明儒

.bat文件同.txt文件好像差不多
试一下（startapp (findfile "安装.bat"))

jh1005

2. ;;------------------------=={ Open }==------------------------;;
   
3. ;;                                                            ;;
   
4. ;;  Uses the 'Open' method of the Shell Object to open the    ;;
   
5. ;;  specified file or folder.                                 ;;
   
6. ;;------------------------------------------------------------;;
   
7. ;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
   
8. ;;------------------------------------------------------------;;
   
9. ;;  Arguments:                                                ;;
   
10. ;;  target - file, folder or ShellSpecialFolderConstants enum ;;
    
11. ;;------------------------------------------------------------;;
    
12. ;;  Returns:  T if successful, else nil                       ;;
    
13. ;;------------------------------------------------------------;;
    
14. (defun LM:Open ( target / shell result )
    
15.     (if
    
16.         (and
    
17.             (or
    
18.                 (eq 'INT (type target))
    
19.                 (setq target (findfile target))
    
20.             )
    
21.             (setq shell (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application"))
    
22.         )
    
23.         (progn
    
24.             (setq result (vl-catch-all-apply 'vlax-invoke (list shell 'open target)))
    
25.             (vlax-release-object shell)
    
26.             (not (vl-catch-all-error-p result))
    
27.         )
    
28.     )
    
29. )
    
30. (vl-load-com)
    
31. ;(LM:Open (getfiled "Select File to Open" "" "" 16))
    
32. ;(LM:Open "C:\\My Folder\\File.dwg")
    
33. ;(LM:Open "C:\\My Folder\\My SubFolder")
    
34. ;(LM:Open 20)

;;------------------------=={ Open }==------------------------;;<br /> ;;                                                            ;;<br /> ;;  Uses the 'Open' method of the Shell Object to open the    ;;<br /> ;;  specified file or folder.                                 ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Author: Lee Mac, Copyright &copy; 2011 - www.lee-mac.com       ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Arguments:                                                ;;<br /> ;;  target - file, folder or ShellSpecialFolderConstants enum ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Returns:  T if successful, else nil                       ;;<br /> ;;------------------------------------------------------------;;<br /> (defun LM:Open ( target / shell result )<br />     (if<br />         (and<br />             (or<br />                 (eq 'INT (type target))<br />                 (setq target (findfile target))<br />             )<br />             (setq shell (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application"))<br />         )<br />         (progn<br />             (setq result (vl-catch-all-apply 'vlax-invoke (list shell 'open target)))<br />             (vlax-release-object shell)<br />             (not (vl-catch-all-error-p result))<br />         )<br />     )<br /> )<br /> (vl-load-com)<br /> ;(LM:Open (getfiled "Select File to Open" "" "" 16))<br /> ;(LM:Open "C:\\My Folder\\File.dwg")<br /> ;(LM:Open "C:\\My Folder\\My SubFolder")<br /> ;(LM:Open 20)

669423907

你的程序没问题，是 “极速绘图工具箱” 有问题

jicqj

jh1005 发表于 2013-1-20 10:12

这个代码很棒  收藏了

masterlong

这个代码确实是牛

cqu20104225

jh1005 发表于 2013-1-20 10:12

好程序啊！！！