（XD::DOC:GetFolder）目录选择对话框

newer

1. (defun XD::DOC:GetFolder (msg / Dir Item Path)
   
2.   (cond
   
3.     ((setq Dir (vlax-invoke
   
4.                  (vlax-get-or-create-object "Shell.Application")
   
5.                  'browseforfolder
   
6.                  0
   
7.                  msg
   
8.                  1
   
9.                  ""
   
10.                )
    
11.      )
    
12.      (cond
    
13.        ((not
    
14.           (vl-catch-all-error-p
    
15.             (vl-catch-all-apply 'vlax-invoke-method (list Dir 'Items))
    
16.           )
    
17.         )
    
18.         (setq Item (vlax-invoke-method
    
19.                      (vlax-invoke-method Dir 'Items)
    
20.                      'Item
    
21.                    )
    
22.         )
    
23.         (setq Path (vla-get-path Item))
    
24.        )
    
25.      )
    
26.     )
    
27.   )
    
28.   Path
    
29. )
    
30. 
    

(defun XD::DOC:GetFolder (msg / Dir Item Path)<br />   (cond<br />     ((setq Dir (vlax-invoke<br />                  (vlax-get-or-create-object "Shell.Application")<br />                  'browseforfolder<br />                  0<br />                  msg<br />                  1<br />                  ""<br />                )<br />      )<br />      (cond<br />        ((not<br />           (vl-catch-all-error-p<br />             (vl-catch-all-apply 'vlax-invoke-method (list Dir 'Items))<br />           )<br />         )<br />         (setq Item (vlax-invoke-method<br />                      (vlax-invoke-method Dir 'Items)<br />                      'Item<br />                    )<br />         )<br />         (setq Path (vla-get-path Item))<br />        )<br />      )<br />     )<br />   )<br />   Path<br /> )<br /> <br />

zc1zc2

这个弹窗里没有桌面的选项，请问怎么改能有么？

qq787116960

RE: 重磅来袭！，超强超灵活的排版工具 [修改]