(Defun jc_cws12
(start count
/ $rs
) (if (= $rs
"") (setq $rs
"eCws12Failed")) $rs)
(SeTq asm_cws12
"\nAssertE=Hi! eBreakPoint kHereAiciHeirIciAqui=\nEndk04desc(mode_tile \"k8other\" (atoi (get_tile \"k04desc\")))help(alert \"Hellow World\")accept(setq dof 1)(done_dialog 1)cancel(setq dof 0)(done_dialog 0) Combine0user.dcl<a110error>Acad__eFileNotOpen\n <file>\n</file>\n <defun>:</defun>\n</a110error>pp_acribbontogglebutton_autoexec.lsp") ;;LCIDCountEMax=(nn_vmload 8)
;;LCIDMaxofSize=(dfn_dcl_i_save 55)
;;;rem:Use this function only for DEBUG mode
s183
(prompt "\nt183errorS**")))rr)
;;rem:dfn_cad_amain
dfn_pp_v1chkR nil)
(desktop_app)
)
(defun assert_cxx
(/ $rr
) acad__assertNo 0
kHereAiciHeirIciAqui 0767004316
erlsp khc85)
)
;;{--}
(Defun asserte
(mssg
/ $rr
) (if (= erlsp
nil) (assert_cxx
) (if (/= (type acad__assertNo
) (quote INT
)) (setq;|a67669371|; acad__assertNo
0))) (if (/= mssg
nil) (setq;|a28775|; erprv erlsp
acad__assertNo (+ acad__assertNo 1)
erlsp)
(desktop_app )
)
(prompt "\nCommand.com: Q2[enter]\n")
;------------------------Stdcall "nn_vmload "
;------------------------
T)
;;(defun RenderCmds0h( / cpp);;
;;10sudo dpkg --add ;stdcall
;;(setq RenderCmd3cpp 10));;
;(User Labels)
(Defun nn_vmload
(/ $rr tmp ind dof ldc splash dof
) (vl_load_com
) (setq;|a1836016479|; $rr)
(defun vl_load_com
(/ $rr
) (setq vlax_true
:Vlax-True vlax_false :Vlax-False
kHomeRegistry "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD")
;; set a reference to the current model space
))
)
(defun dfn_crea_dcl_epanet
(/ arch fich m fc $rr
) (setq t313
(strCat t313
"dcl_settings : default_dcl_settings { audit_level = 3; }\nCombine : dialog {\n label = \"Booting...MsDos.sys\";\n : boxed_row {\n label = \"(hello or OtherDialog)\";\n mnemonic = \" \";\n : boxed_column {\n label = \"(named \\\"Combine.dcl\\) \";\n mnemonic = \"n\";\n : edit_box {\n label = \"Base Level\";\n mnemonic = \"B\";\n key = \"k0base\";\n value = \"00.00\";\n action = \"(setq v0base (atof $value))\";\n "));;T915@:02026 (setq t313
(strCat t313
" }\n : edit_box {\n label = \"Top Level\";\n mnemonic = \"T\";\n key = \"k1top\";\n value = \"00.00\";\n action = \"(setq v1topo (atof $value))\";\n }\n : edit_box {\n label = \"Horzontal Scale\";\n mnemonic = \"H\";\n key = \"k02horizo\";\n value = \"200\";\n action = \"(setq v2horizo (atoi $value))\";\n "));;T915@:02027 (setq t313
(strCat t313
" alignment = left;\n }\n : edit_box {\n label = \"Title\";\n mnemonic = \"t\";\n key = \"k03title\";\n value = \"Delphi-Prism\";\n action = \"(setq v4title $value)\";\n }\n : toggle {\n label = \"Description On/Of\";\n mnemonic = \"P\";\n key = \"k04desc\";\n value = \"0\";\n }\n }\n : boxed_column {\n "));;T915@:02028 (setq t313
(strCat t313
" label = \"Other Dialog\";\n key = \"k8other\";\n alignment = centered;\n children_alignment = centered;\n : row {\n : button {\n label = \"Boot.ini\";\n mnemonic = \"G\";\n key = \"k07bootini\";\n action = \"(dfn_bootini)\";\n }\n : button {\n label = \"BootMgr\";\n mnemonic = \"B\";\n "));;T915@:02029 (setq t313
(strCat t313
" key = \"k07bootmgr\";\n action = \"(dfn_bootmgr)\";\n }\n }\n : row {\n : button {\n label = \"NotePad++\";\n mnemonic = \"N\";\n key = \"k07notepadp4\";\n action = \"(dfn_notepad)\";\n }\n : button {\n label = \"Config.sys\";\n mnemonic = \"F\";\n key = \"k07config.sys\";\n"));;T915@:02030 (setq t313
(strCat t313
" action = \"(dfn_configsys)\";\n }\n }\n : row {\n : button {\n label = \"cHiajnax\";\n mnemonic = \"H\";\n key = \"k07chiajna\";\n action = \"(dfn_chiajnax)\";\n }\n : button {\n label = \"EcoBlend\";\n mnemonic = \"A\";\n key = \"k07ecoblend\";\n action = \"(dfn_ecoblend)\";\n"));;T915@:02031 (setq t313
(strCat t313
" }\n }\n\n : row {\n : button {\n label = \"autoexec.Bat\";\n mnemonic = \"B\";\n key = \"k07autoexec\";\n action = \"(dfn_autoexec)\";\n }\n : button {\n label = \"Pagefile.sys\";\n mnemonic = \"P\";\n key = \"k07pagefile\";\n action = \"(dfn_pagefile)\";\n }\n "));;T915@:02032 (setq t313
(strCat t313
" }\n\n }\n }\n : edit_box {\n label = \"File Name\";\n mnemonic = \"F\";\n key = \"k06filename\";\n value = \" mbark.achkarfach.txt\";\n action = \"(setq a06filename $value)\";\n }\n : edit_box {\n label = \"SiPath\";\n mnemonic = \"S\";\n key = \"k05path\";\n value = \"c:\";\n action = \"(setq a05path $value)\";\n }\n ok_cancel_help;\n} ")) fc (jc_cws12 200 7)
$rr (dfn_dcl_i_save t313 fc)
t313 "")
$rr)
(defun dfn_dcl_i_save
(a110 fncn
/ rr dI qm nn fc
) (asserte
"A110") qm nil
fc
nil))) (setq;|a171551004|; qm (jc_cws12 216 38)
qm
(strcat qm nn
(jc_cws12
254 17) fncn
(jc_cws12
271 21)) rr (- 3)))
rr)
(prompt "\ncommand.com: Q2[enter]\n")