Filehost.ro - gazduire fisiere
lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms.. 		Nou pe simpatie:
surender_lady la Simpatie.ro
Femeie
25 ani
Arad
cauta Barbat
26 - 47 ani
lisp2arxReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
lisp2arx / Listof AutoLisp.100 /

vla-AutoLispR4-Top GetInt with Save and Restore in all drawings

 Pagini: 1 Moderat de zauchan
#1
zauchan
Moderator
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..
 
   
#2
zauchan
Moderator
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)



vla-AutoLispR4-Top GetInt with Save and Restore in all drawings - zauchan - Listof AutoLisp.100
vla-AutoLispR4-Top GetInt with Save and Restore in all drawings – poza de zauchan, in Listof AutoLisp.100 · 38.1KB


_______________________________________
psw: cea de la wjndowsXP gigabyte..
 
   

Topicuri similare

Pagini: 1  
Mergi la