== I work 23hours for this solution. I need more help,because is very hard
to speed-up my routinne jc_cws12.
==For DCL, language , you must store all messages inside program.Lisp
Please you, do not store messages inside DCL.
== You must have language.ini generator from Lisp, attached near path0user.
You see here language.ini generated Automated
This contain sysvar'names , but I can remove from List, bellow.
[pp_pointperppline.vlax]
001="a251err<>str"
002="You acad::eUserBreak\n"
003="\n"
004=".UNDO"
005="_END"
006="\nEnd"
007="TEMP"
008="TMP"
009="TEMPPREFIX"
010="TMP"
011="XLOADPATH"
012="TMP"
013="*[\\]*"
014="\\"
015="PROGRAM"
016="ICAD*"
017="acad*"
018="*zwc*"
019="pagefile.sys"
020="ACADVER"
021=" Warning Minim Req : AutoCAD 14.0 or highter"
022="_.undo"
023="Auto"
024="On"
025=".UNDO"
026="_BEGIN"
027="MODEMACRO"
028="UCSICON"
029="ISAVEBAK"
030="SAVETIME"
031="BLIPMODE"
==I need help, because, I need more features of String?
Any tips, guidance, tricks to make an Autolisp with DCL in several languages?
==You compare same function with language.ini and without language.ini
(DeFun dfn_cad_asysset( / rr io kj su bya lz)
(setq su "" bya "with language.ini++")
(setq;|a000|;
const_ppfiletmp (str_pathtemp)
str_pathtempA const_ppfiletmp
const_ppfiletmp (strcat const_ppfiletmp (jc_cws12 144 14))) (setq;|a000|;
rr (atof (getvar (jc_cws12 158 9)))) (if (< rr 14.0)
(alert (jc_cws12 167 46))) (if (< rr 15.0) (setq;|a000|;
*error* nil)) (setq;|a000|;
io (command (jc_cws12 213 8) (jc_cws12 221 6) (jc_cws12 227 4))) (setq;|a000|;
kj (dfn_cadver_isicad)) (if (= kj 2) (setq;|a000|;
io (list (vl-load-com) (textscr)))) (setq;|a000|;
_ax rr) (command (jc_cws12 231 7) (jc_cws12 238 8)) (setq;|a000|;
lz (list (list (jc_cws12 246 11) bya) (list (jc_cws12 257 9) 1) (list (jc_cws12 266 10) 1) (list (jc_cws12 276 10) 15) (list (jc_cws12 286 10) 0))) (setq;|a000|;
_ppcx_init_vars (syst_setvars lz)) (setq;|a000|;
_pp_var1chkm nil
lz nil
dfn_var_chkC "")
rr)
==You seen without langauge.ini
==How to upgrade together this-solution.?
(DeFun dfn_cad_asysset( / rr io kj su bya lz)
(setq su "" bya "without language.ini--")
(setq;|a000|;
const_ppfiletmp (str_pathtemp)
str_pathtempA const_ppfiletmp
const_ppfiletmp (strcat const_ppfiletmp "pagefile.sys")) (setq;|a000|;
rr (atof (getvar "ACADVER"))) (if (< rr 14.0)
(alert " Warning Minim Req : AutoCAD 14.0 or highter")) (if (< rr 15.0) (setq;|a000|;
*error* nil)) (setq;|a000|;
io (command "_.undo" "Auto" "On")) (setq;|a000|;
kj (dfn_cadver_isicad)) (if (= kj 2) (setq;|a000|;
io (list (vl-load-com) (textscr)))) (setq;|a000|;
_ax rr) (command ".UNDO" "_BEGIN") (setq;|a000|;
lz (list (list "MODEMACRO" bya) (list "UCSICON" 1) (list "ISAVEBAK" 1) (list "SAVETIME" 15) (list "BLIPMODE" 0))) (setq;|a000|;
_ppcx_init_vars (syst_setvars lz)) (setq;|a000|;
_pp_var1chkm nil
lz nil
dfn_var_chkC "")
rr)
== Is very hard, for develop more-pratically.(How run google'Translate?)
==If you are interested , then you replay here.