（XD::DOC:AcadVersions）获取ACAD详细的版本号

marting

1. (defun XD::DOC:AcadVersions ( / a b c d )
   
2.     (setq a (getvar 'dimzin)
   
3.           b (atof (getvar 'acadver))
   
4.     )
   
5.     (setvar 'dimzin 0)
   
6.     (setq c (list (substr (ver) 13 (- (strlen (ver)) 17)) (rtos b 2 0) (rtos b 2 1))
   
7.           d (append c (mapcar 'strcat '("r" "r" "r") c))
   
8.     )
   
9.     (setvar 'dimzin a)
   
10.     d
    
11. )
    

(defun XD::DOC:AcadVersions ( / a b c d )<br />     (setq a (getvar 'dimzin)<br />           b (atof (getvar 'acadver))<br />     )<br />     (setvar 'dimzin 0)<br />     (setq c (list (substr (ver) 13 (- (strlen (ver)) 17)) (rtos b 2 0) (rtos b 2 1))<br />           d (append c (mapcar 'strcat '("r" "r" "r") c))<br />     )<br />     (setvar 'dimzin a)<br />     d<br /> )<br />

命令: (XD::DOC:ACADVERSIONS)
("2019" "23" "23.0" "r2019" "r23" "r23.0")

sh_h

大师出品，必属精品！！！

konglong604

很给力,经验\技术要点\资料分享奖！