（XD::Doc:CheckAcadVersion）检测程序适合的ACAD版本

Lispboy

1. (defun XD::Doc:CheckAcadVersion (sym version info / n var)
   
2.   (setq var (ver))
   
3.   (if (and
   
4.         (setq n (xdrx_string_regexps "(-?[0-9]+)(\\.[0-9]+)?" 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) " " version
   
10.                            "的平台下使用！"
    
11.                    )
    
12.         )
    
13.       )
    
14.       (princ info)
    
15.       (exit)
    
16.     )
    
17.   )
    
18.   t
    
19. )
    
20. 
    

(defun XD::Doc:CheckAcadVersion (sym version info / n var)<br />   (setq var (ver))<br />   (if (and<br />         (setq n (xdrx_string_regexps "(-?[0-9]+)(\\.[0-9]+)?" 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) " " version<br />                            "的平台下使用！"<br />                    )<br />         )<br />       )<br />       (princ info)<br />       (exit)<br />     )<br />   )<br />   t<br /> )<br /> <br />

在2012平台下执行下面代码：

命令: (XD::DOC:CHECKACADVERSION '>= "2012" "")
T
命令: (XD::DOC:CHECKACADVERSION '>= "2013" "")
本程序只能在ACAD >= 2013的平台下使用！