How to know AutoCAD language

Is it there any variable to know the language of the AutoCAD in use
(English, Spanish. etc.) and where can I get the name of the default block
name for each language for OBLIQUE "CLOSED" to set DIMBLK in order to let a
routine go ahead and not stop telling that the block (becouse in the
language in use is different) doesn't exist

Thanks

 

That's a great idea! Set a variable in AutoCAD to instantly know the
language of AutoLISP! (setvar "getbrains" 1)
LOL!

Oh, I continue reading, and I see that's not what you meant. Oh, well,
I'll keep it in for laughs.

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. However, you being
from Argentina, should have to problem figuring that one out. Merry
Christmas and keep smiling.

Que no deje de pensar en Cristo después de la Navidad.

 

My laugh of the day - "(setvar "getbrains" 1)". Wonderful; I look forward to
another.

 

Gustavo,

you don't need to know the language. If you add an underscore
to the english blockname it should work in all localizations:
_oblique
_closed
and so on.

Stephan

 

Absolutely correct.

 

Hi Bill

'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

 

Gustavo,
For AutoLisp code,, use the (underscore) for International.
Examples:
_insert
_rotate
_copy
etc.
To 'see' what the local language equivalent is.
Do:
(command "_insert") ...... complete the command and then..
Hit Enter Key. This will repeat the 'last' command, and show
you at the Command: prompt, the 'equivalent' command and
options..

Bob

 

I will prove the underscore.

I knew it for commands but supose that for blocks names doesn't work

Thanks