Originally Posted by
Leif_Erickson
BWAHAHAHAHAH!! Good one
okey, doke. you proved me wrong. I have only used the Ref Man a few times. Though, i seem to be one of the only users around the company that are even aware it exists.
Well, I am always eager to learn new things and grateful to those who take time to teach. I do try and pass along what I have learned too, returning the favor.
thanks again!
*Tips hat* I appreciate your having a good sense of humor, my friend... You're going to do just fine here.
I do a lot of custom code, so it's a rarity that I can recommend the built-in means by which to perform a given 'special' task such as this.
To make reference manager more 'accessible' so-to-speak, this may be of use to you, and your coworkers:
Code:
(vl-load-com)
(defun c:REFMAN () (c:ReferenceManager))
(defun c:ReferenceManager (/ vrsn file)
(princ "\rREFERENCEMANAGER ")
(if
(and
(setq vrsn
(cond
((vl-string-search "20.0" (setq vrsn (getvar 'acadver)))
"2015"
)
((vl-string-search "19.1" vrsn) "2014")
((vl-string-search "19.0" vrsn) "2013")
((vl-string-search "18.2" vrsn) "2012")
((vl-string-search "18.1" vrsn) "2011")
((vl-string-search "18.0" vrsn) "2010")
((vl-string-search "17.2" vrsn) "2009")
((vl-string-search "17.1" vrsn) "2008")
((vl-string-search "17.0" vrsn) "2007")
((vl-string-search "16.2" vrsn) "2006")
((vl-string-search "16.1" vrsn) "2005")
((vl-string-search "16.0" vrsn) "2004")
((vl-string-search "15.06" vrsn) "2002")
((vl-string-search "15.05" vrsn) "2000i")
)
)
(setq file
(findfile
(strcat
(vl-registry-read
(strcat "HKEY_LOCAL_MACHINE\\"
(if vlax-user-product-key ; If 2013+
(vlax-user-product-key) ; Use new function
(vlax-product-key) ; Use legacy function
)
)
"ACADLOCATION"
)
"\\AdRefMan.exe"
)
)
)
(princ (strcat "\n... Opening \"Reference Manager\" for " vrsn))
)
(startapp "explorer" file)
(prompt "\n** File not found ** ")
)
(princ)
)
Cheers