已知此程序包含院长内库，给出此程序，求推导出这个内库的替代函数，不知哪位大神可以

664571221

已知此程序包含院长内库，给出此程序，求推导出这个内库的替代函数，不知哪位大神可以补充一个替代函数

此程序为小韩所写，求各位大神补充一个替代函数替代这个(xyp-Shell-Open (strcat ml "\\" (nth i lst3)) nil)

;;    =============================================
;;    |           打开文件夹内所有图纸            |
;;    =============================================
(defun c:DKTZ (/ a1 cd fn i lst2 lst3 n qz)
        (or ml (setq ml ""))
        (setq               
                fn (GetFiled "选择dwg文件" ml "dwg" 16)
                qz (substr (VL-FILENAME-BASE fn) 1 1)
                cd (strlen qz)
                ml (vl-filename-directory fn)
                lst2 (vl-directory-files ml "*.dwg");列出文件夹内文件               
                lst3 '()
                n 0
        )
        (while (< n (length lst2))
                (setq        a1 (substr (nth n lst2) 1 cd))
                (if (= a1 qz)
                        (setq lst3 (cons (nth n lst2) lst3))
                )
                (setq n (1+ n))
        )
(setq i 0)
        (repeat (length lst3)
                (xyp-Shell-Open (strcat ml "\\" (nth i lst3)) nil)
                (setq i (1+ i))
        )       
        (princ)
)

south

跟open打开有区别吗

664571221

south 发表于 2024-6-8 17:01
跟open打开有区别吗

应该有区别吧

你有种再说一遍

估计是arx写的吧

czb203

让院长分享

jun353835273

2. (defun myopenpath (filepath )
   
3.        (or *winshell
   
4.        (setq *winshell (vlax-create-object "Shell.Application" ))
   
5.         )
   
6.        (vlax-invoke-method *winshell 'Open filepath)
   
7. )
   
8. ;;    =============================================
   
9. ;;    |           打开文件夹内所有图纸            |
   
10. ;;    =============================================
    
11. (defun c:DKTZ (/ fn ml lst2 file)
    
12.   (or ml (setq ml ""))
    
13.   (setq
    
14.     fn         (GetFiled "选择dwg文件" ml "dwg" 16)
    
15.     ml         (vl-filename-directory fn)
    
16.     lst2 (vl-directory-files ml "*.dwg");列出文件夹内文件               
    
17. 
    
18.   )
    
19.   (foreach file        lst2
    
20.     (myopenpath (strcat ml "\" file))
    
21.   )
    
22.   (princ)
    
23. )
    
24. 这样不行吗
    

(defun myopenpath (filepath )<br />        (or *winshell<br />        (setq *winshell (vlax-create-object "Shell.Application" ))<br />         )<br />        (vlax-invoke-method *winshell 'Open filepath)<br /> )<br /> ;;    =============================================<br /> ;;    |           打开文件夹内所有图纸            |<br /> ;;    =============================================<br /> (defun c:DKTZ (/ fn ml lst2 file)<br />   (or ml (setq ml ""))<br />   (setq<br />     fn         (GetFiled "选择dwg文件" ml "dwg" 16)<br />     ml         (vl-filename-directory fn)<br />     lst2 (vl-directory-files ml "*.dwg");列出文件夹内文件               <br /> <br />   )<br />   (foreach file        lst2<br />     (myopenpath (strcat ml "\" file))<br />   )<br />   (princ)<br /> )<br /> 这样不行吗<br />

alexmai

jun353835273 发表于 2024-6-8 22:26

2010 不能用

黄翔

1. (defun hx:Opendwg (FilePath Activate / oFile)
   
2.     (vl-load-com)
   
3.     (if(findfile FilePath)
   
4.       (if
   
5.         (vl-catch-all-error-p
   
6.           (setq oFile(vl-catch-all-apply 'vla-open (list(vla-get-Documents(vlax-get-acad-object)) FilePath)))
   
7.         )
   
8.         (alert (strcat "错误!\n 无法打开文件: " FilePath))
   
9.         (if Activate (vla-Activate oFile))
   
10.       )
    
11.       (alert(strcat "错误!\n 找不到文件: " FilePath))
    
12.     ); end if
    
13. oFile
    
14. )

(defun hx:Opendwg (FilePath Activate / oFile)<br />     (vl-load-com)<br />     (if(findfile FilePath)<br />       (if <br />         (vl-catch-all-error-p<br />           (setq oFile(vl-catch-all-apply 'vla-open (list(vla-get-Documents(vlax-get-acad-object)) FilePath)))<br />         )<br />         (alert (strcat "错误!\n 无法打开文件: " FilePath))<br />         (if Activate (vla-Activate oFile))<br />       )<br />       (alert(strcat "错误!\n 找不到文件: " FilePath))<br />     ); end if<br /> oFile<br /> )

664571221

jun353835273 发表于 2024-6-8 22:26

谢谢大哥，大哥牛逼.

664571221

黄翔 发表于 2024-6-11 11:57

谢谢大哥，大哥威武.