Hi Bill
OK. Actually, you can look at the system variable for the main dictionary.
(getvar "dctmain"). US English returns "enu". I am not familiar with other
names of international AutoCAD dictionaries by default.
'dctmain' is a user setting in options and not the real AutoCAD language. I
can set my german AutoCAD to every installed dictionary of the OS. To get the
real AutoCAD language you've to use:
Code:
;
; -- Function MeGetAcadLanguage
; Returns the *program* language of the current AutoCAD version.
; Copyright:
; ©2004 MENZI ENGINEERING GmbH, Switzerland
; Arguments [Typ]:
; None
; Return [Typ]:
; > Language ("English", "Deutsch", "Français", etc.) [STR]
; Notes:
; None
;
(defun MeGetAcadLanguage ( / AcaKey AcaVer AppKey TmpKey)
(setq AcaVer (substr (getvar "ACADVER") 1 4)
AppKey (strcat"\\Software\\Autodesk\\AutoCAD\\R" AcaVer)
TmpKey (strcat "HKEY_LOCAL_MACHINE" AppKey)
AcaKey (if (> (atof AcaVer) 15.0)
(vl-registry-read (strcat "HKEY_CURRENT_USER" AppKey) "CurVer")
(vl-registry-read TmpKey "CurVer")
)
)
(vl-registry-read (strcat TmpKey "\\" AcaKey) "Language")
)
Cheers
--
Juerg Menzi
MENZI ENGINEERING GmbH, Switzerland
http://www.menziengineering.ch