(defun BD:get_localization (/ LocaleName LocalFileName LocalFile LanguagePack file)
(setq LocaleName (vl-registry-read
"HKEY_CURRENT_USER\\Control Panel\\International"
"LocaleName"
)
LocalFileName (strcat "LanguagePack_" LocaleName ".csv")
)
(if
(or (setq LocalFile (findfile LocalFileName))
(setq LocalFile (findfile (strcat
(getenv "programdata")
"\\Autodesk\\ApplicationPlugins\\"
"Beardyugin Slope.bundle"
"\\Contents\\Resources\\"
LocalFileName
)
)
)
)
(progn
(setq file (open LocalFile "r"))
(while (setq line (read-line file))
(setq LanguagePack
(cons (csv_delim line)
LanguagePack
)
)
)
(close file)
)
(princ
(strcat "\nLanguage file \"" LocalFileName "\" not found")
)
)
(mapcar
(function (lambda (x)
(setq key (car x)
val (cadr x)
)
(set (read key)
(if (and
(setq temp (assoc key LanguagePack))
(setq temp (caddr temp))
)
temp
val
)
)
)
)
(list
(list "word_1" "Make")
(list "word_2" "Version")
(list "word_3" "Yes")
(list "word_4" "No")
(list
"warning_1"
"The names of the layers are not allowed use \nof the following symbols:"
)
(list "warning_2"
"Not admissible value \nThere should be a number"
)
(list "warning_3" "Zero step is not valid")
(list "warning_4" "Zero length not allowed")
(list "warning_5"
"The brow and sole must be either both closed or both open"
)
(list "warning_6" "The first and last can not be same")
(list "request_1" "Specify curb slope: <Exit>")
(list "request_2" "Specify toe of slope: <Exit>")
(list "request_3" "Edit dash?")
(list "request_4" "Enter the start of the range <Exit>:")
(list "request_5" "Enter the end of border editing <Exit>:")
(list "request_6" "Select a dash for editing <Exit>:")
(list "reg_word_1" "write")
(list "reg_phrase_1" "Days left")
(list "d_trial" "Trial version ")
(list "d_reg" " Buy ")
(list "d_cancel" "Cancel")
(list "d_Ser_num" " Serial number: ")
(list "d_reg_cod" "Registration code:")
(list "d_have_dif" "If you have any difficulties, ")
(list "bd_sel_1" "Miss")
(list "bd_sel_2" "Bad object that must be")
(list "bd_sel_3" "Selected object not dash slope")
(list "dial_t" "Drawing the slope")
(list "shag_t" "Hatch patern - Step:")
(list "kor_net_t" "Do not touch to sole:")
(list "kor_len_t" "Short stroke length:")
(list "ed_t" "Drawing units ")
(list "pr_t" "% length")
(list "join_t" "Group objects")
(list "group_t" "Group")
(list "bloc_t" "Block")
(list "Wipeout_t" "Hiding the background")
(list "type_t" "Type")
(list "izi_t" "Normal")
(list "pro_t" "Designed")
(list "dob_t" "The mining")
(list "ukrep_t" "Blanket")
(list "sten_t" "Retaining")
(list "gorn_t" "Thin")
(list "lay_t" "Layer")
)
)
(setq
ed_list (list ed_t pr_t)
group_list (list word_4 group_t bloc_t)
type_list (list izi_t pro_t dob_t ukrep_t sten_t)
)
)
