XD::Doc:CheckVersion检查ACAD版本号是否满足程序运行要求

newer

1. (defun XD::Doc:CheckVersion (sym version info / n var)
   
2.   (setq var (getvar "acadver"))
   
3.   (if (and
   
4.         (setq n (XD::String:IsNumStart var))
   
5.         (not (eval (list sym (car n) version)))
   
6.       )
   
7.     (progn
   
8.       (if (= info "")
   
9.         (setq info (strcat "\n本程序只能在ACAD " (vl-symbol-name sym) " R" version
   
10.                            "的平台下使用！"
    
11.                    )
    
12.         )
    
13.       )
    
14.       (princ info)
    
15.       (exit)
    
16.     )
    
17.   )
    
18.   t
    
19. )
    
20. 
    

(defun XD::Doc:CheckVersion (sym version info / n var)<br />   (setq var (getvar "acadver"))<br />   (if (and<br />         (setq n (XD::String:IsNumStart var))<br />         (not (eval (list sym (car n) version)))<br />       )<br />     (progn<br />       (if (= info "")<br />         (setq info (strcat "\n本程序只能在ACAD " (vl-symbol-name sym) " R" version<br />                            "的平台下使用！"<br />                    )<br />         )<br />       )<br />       (princ info)<br />       (exit)<br />     )<br />   )<br />   t<br /> )<br /> <br />

david-liu

检查ACAD版本号 子函数？

VBAVBAA

学习学习，好看

sicky111

谢谢分享。

land100

发多少vvxvdfvf 是否vfsvfv方式vfdv