lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Lista Forumurilor Pe Tematici
|
lisp2arx | Reguli | Inregistrare | Login
POZE LISP2ARX
Nu sunteti logat.
|
Nou pe simpatie:
deiutza20 pe Simpatie
 | Femeie
21 ani
Bacau
cauta Barbat
21 - 44 ani |
|
|
zauchan
Moderator
Inregistrat: acum 12 ani
Postari: 180
|
|
Ex: (dfn_getx_int "\nMailmaverick:" "roy_043"
values ? If not, shouldn't this be a very basic functionality provided by AutoCAD ?
(setq vlax_true :Vlax-True
vlax_false :Vlax-False
kHomeRegistry "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD"
Code:
(Defun dfn_getx_int(a194 tzxelse / $ri tx8 cc $br $in $st $sy hc85)
(setq;|a36417|;
hc85 nil) (terpri) (if (= (type asserte) (type dfn_getx_int)) (asserte "A194")) (setq;|a36481|;
$in (quote INT)
$st (quote STR)
$sy (quote SYM)) (if (and (= (type tzxelse) $st) (= (type kHomeRegistry) $st)) (setq;|a36593|;
hc85 (strcat "a194pas_" tzxelse)
tzxelse (vl-registry-read kHomeRegistry hc85))) (setq;|a36661|;
tx8 (if (= (type a194) $sy) (eval a194) a194)
tx8 (if (= (type tx8) $st) tx8 "a194errS,")
tzxelse (if (= (type tzxelse) $in) tzxelse nil)) (if (= tzxelse nil) (setq;|a36807|;
tx8 (strcat tx8 "_a194errI")
tzxelse 0)) (setq;|a36859|;
$ri (getint (strcat tx8 "<" (itoa tzxelse) " >:"))) (if (and (/= $ri nil) kHomeRegistry) (vl-registry-write kHomeRegistry hc85 $ri) (setq;|a36971|;
$ri tzxelse))
$ri) |
_______________________________________
psw: cea de la wjndowsXP gigabyte..
|
|
| pus acum 3 ani |
|
|
zauchan
Moderator
Inregistrat: acum 12 ani
Postari: 180
|
|
Code:
(Defun dfn_getx_int(a194 tzxelse / $ri tx8 cc $br $in $st $sy hc85)(setq hc85 nil)(js_aro10"C092terpri"(list))(if(=(type asserte)(type dfn_getx_int))(js_aro10"C093asserte"(list"A194")))(setq $in(quote INT)$st(quote STR)$sy(quote SYM))(if(and(=(type tzxelse)$st)(=(type kHomeRegistry)$st))(setq hc85(strcat"a194pas_"tzxelse)tzxelse(js_aro10"C094vl-registry-read"(list kHomeRegistry hc85))))(setq tx8(if(=(type a194)$sy)(eval a194)a194)tx8(if(=(type tx8)$st)tx8"a194errS,")tzxelse(if(=(type tzxelse)$in)tzxelse nil))(if(= tzxelse nil)(setq tx8(strcat tx8"_a194errI")tzxelse 0))(setq $ri(js_aro10"C095getint"(list(strcat tx8"<"(itoa tzxelse)" >:"))))(if(and(/= $ri nil)kHomeRegistry)(js_aro10"C096vl-registry-write"(list kHomeRegistry hc85 $ri))(setq $ri tzxelse))$ri) |
38.1KB
_______________________________________
psw: cea de la wjndowsXP gigabyte..
|
|
| pus acum 3 ani |
|
