0 Members and 1 Guest are viewing this topic.
Oh, so they've now broken the file version adherence to the release number. Does this mean the next file version would be 20.1 = 2016? Or will they re-invent number theory when they burn that bridge? I can see a few tools which will go screwy due to this.
I think we have enough to concern ourselves with now without worrying about something as inconsequential as this until we have enough data to make a rational decision. Trying to determine our actions based on second guessing random events leads to almost certain disaster.
(cond ( (> (atof (getvar "ACADVER")) 19.1 ) (setq #AcVer "R20" ) ) ; = 20.0 A2015 ( (> (atof (getvar "ACADVER")) 19.0 ) (setq #AcVer "R19_1") ) ; = 19.1 A2014 ( (> (atof (getvar "ACADVER")) 18.2 ) (setq #AcVer "R19" ) ) ; = 19.0 A2013 - Bricscad V14.1 "19.0 BricsCAD" ( (> (atof (getvar "ACADVER")) 18.1 ) (setq #AcVer "R18_2") ) ; = 18.2 A2012 ( (> (atof (getvar "ACADVER")) 18.0 ) (setq #AcVer "R18_1") ) ; = 18.1 A2011 - Bricscad V13 "18.1 BricsCAD" ( (> (atof (getvar "ACADVER")) 17.2 ) (setq #AcVer "R18" ) ) ; = 18.0 A2010 - Bricscad V12 "18.0Bricscad" ( (> (atof (getvar "ACADVER")) 17.1 ) (setq #AcVer "R17_2") ) ; = 17.2 A2009 - Bricscad V11 ( (> (atof (getvar "ACADVER")) 17.0 ) (setq #AcVer "R17_1") ) ; = 17.1 A2008 - Bricscad V10 ( (> (atof (getvar "ACADVER")) 16.2 ) (setq #AcVer "R17" ) ) ; = 17.0 A2007 - Bricscad V9 ( (> (atof (getvar "ACADVER")) 16.1 ) (setq #AcVer "R16_2") ) ; = 16.2 A2006 ( (> (atof (getvar "ACADVER")) 16.0 ) (setq #AcVer "R16_1") ) ; = 16.1 A2005 ( (> (atof (getvar "ACADVER")) 15.06) (setq #AcVer "R16" ) ) ; = 16 A2004 ( T (setq #AcVer "R15" ) ) ; = 2000 2000i 2002)
This is my table also for Bricscad:...
(getvar '_vernum) ; => "14.2.09 (UNICODE)"
Why err how does the version number of AutoCAD affect past and present lisp routines?
Quote from: Marc'Antonio Alessi on April 03, 2014, 09:07:35 AMThis is my table also for Bricscad:...For BricsCAD using _VERNUM is easier:Code: [Select](getvar '_vernum) ; => "14.2.09 (UNICODE)"
(defun ALE_Doslib (BitFlg / ArxNam PrcArc AcaVer) (setq AcaVer (getvar "ACADVER") PrcArc (getenv "PROCESSOR_ARCHITECTURE"); restituisce "AMD64" anche su processore Intel e "x86" su 32 Bit ArxNam (cond ( #BCFlg ; is Bricscad (if (eq "x86" PrcArc) (cond ( (= 17.1 (atof AcaVer)) "DOSLib10.brx"); V10 "17.1 Bricscad" ( (= 17.2 (atof AcaVer)) "DOSLib11.brx"); V11 "17.2 Bricscad" ( (= 18.0 (atof AcaVer)) "DOSLib12.brx"); V12 "18.0Bricscad" ( (= 18.1 (atof AcaVer)) "DOSLib13.brx"); V13 "18.1 BricsCAD" ( (= 19.0 (atof AcaVer)) "DOSLib14.brx"); V14.1 "19.0 BricsCAD" ) (cond ( (= 18.1 (atof AcaVer)) "DOSLib13x64.brx"); V13 "18.1 BricsCAD" ( (= 19.0 (atof AcaVer)) "DOSLib14x64.brx"); V14.1 "19.0 BricsCAD" ) ) ) ( (and (< 1 (strlen PrcArc)) (eq "64" (substr PrcArc (1- (strlen PrcArc)))) ) (strcat "DOSLIB" (itoa (atoi AcaVer)) "x64.ARX") ; DOSLib18x64 ) ( T (strcat "DOSLIB" (itoa (atoi AcaVer)) ".ARX") ) ; DOSLib18 ) ) (if DOS_COPY (if (= 0 BitFlg) (arxunload ArxNam nil) ) (if (= 1 BitFlg) ;if DOSLib non è gia' caricato (if (findfile ArxNam) (arxload ArxNam nil) (prompt "\nDOSLIB not found. Verify your Asso Tools folders. ") ) ) ))
< .. > is there anyone who has something more concise?