XD::PLOT:GetPlotToFilePath

newer

1. ;; ------------------------------------------------------------------------
   
2. ;;; 函数名称 / function name: XD::PLOT:GetPlotToFilePath
   
3. ;;;
   
4. ;;; 【功能说明 / description】
   
5. ;;;     获取 AutoCAD 中的默认“打印到文件”输出路径。
   
6. ;;;     使用错误捕获机制（vl-catch-all-apply）防止访问失败时中断程序。
   
7. ;;;     成功时返回路径字符串，失败返回 NIL。
   
8. ;;;
   
9. ;;; 【参数说明 / parameters】
   
10. ;;;     无参数。
    
11. ;;;
    
12. ;;; 【返回值 / return value】
    
13. ;;;     字符串 - 成功时返回默认输出路径
    
14. ;;;     NIL    - 获取失败（如未能访问 Preferences 对象）
    
15. ;;;
    
16. ;;; 【示例 / example】
    
17. ;;;     (XD::PLOT:GetPlotToFilePath)
    
18. ;; ------------------------------------------------------------------------
    
19. 
    
20. (defun XD::PLOT:GetPlotToFilePath (/ preferences output)
    
21.   (vl-catch-all-error-p
    
22.     (setq output
    
23.       (vl-catch-all-apply
    
24.         'vla-get-DefaultPlotToFilePath
    
25.         (list
    
26.           (vla-get-Output
    
27.             (vla-get-Preferences
    
28.               (vlax-get-acad-object)
    
29.             )
    
30.           )
    
31.         )
    
32.       )
    
33.     )
    
34.   )
    
35.   ;; 如果 output 是错误对象，返回 nil，否则返回路径
    
36.   (if (vl-catch-all-error-p output)
    
37.     nil
    
38.     output
    
39.   )
    
40. )
    
41. 
    

;; ------------------------------------------------------------------------<br /> ;;; 函数名称 / function name: XD::PLOT:GetPlotToFilePath<br /> ;;;<br /> ;;; 【功能说明 / description】<br /> ;;;     获取 AutoCAD 中的默认“打印到文件”输出路径。<br /> ;;;     使用错误捕获机制（vl-catch-all-apply）防止访问失败时中断程序。<br /> ;;;     成功时返回路径字符串，失败返回 NIL。<br /> ;;;<br /> ;;; 【参数说明 / parameters】<br /> ;;;     无参数。<br /> ;;;<br /> ;;; 【返回值 / return value】<br /> ;;;     字符串 - 成功时返回默认输出路径<br /> ;;;     NIL    - 获取失败（如未能访问 Preferences 对象）<br /> ;;;<br /> ;;; 【示例 / example】<br /> ;;;     (XD::PLOT:GetPlotToFilePath)<br /> ;; ------------------------------------------------------------------------<br /> <br /> (defun XD::PLOT:GetPlotToFilePath (/ preferences output)<br />   (vl-catch-all-error-p<br />     (setq output<br />       (vl-catch-all-apply<br />         'vla-get-DefaultPlotToFilePath<br />         (list<br />           (vla-get-Output<br />             (vla-get-Preferences<br />               (vlax-get-acad-object)<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   ;; 如果 output 是错误对象，返回 nil，否则返回路径<br />   (if (vl-catch-all-error-p output)<br />     nil<br />     output<br />   )<br /> )<br /> <br />

happyending

学习一下代码是怎样工作的。感谢分享。