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:
Gaby3197 pe Simpatie
Femeie
25 ani
Iasi
cauta Barbat
24 - 40 ani
lisp2arx / Listof AutoLisp.100 / vla-AutoLispR14- *error* syst_error detect Moderat de zauchan
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 506


Code:

(Defun syst_error (merr / rr a c o m g w k) ;_ASSERT_OK
      (setq *error* const_error  const_error nil)
 (setq;|a000|;
     k 0
     w (jc_aro10 (list "C103dfn_var_isstr" merr))
     c (jc_aro10 (list "C104dfn_var_isstr" erlsp))) (setq;|a000|;
     o (if w merr const_urlmyemail)) (setq;|a000|;
     m (if c (asserte c) "")) (setq;|a000|;
     m (strcat m "RTERROR:\n" merr "\nMyEmail:" const_urlmyemail "\nErrorDetected:" _ERRCHECK "\nAdress:" const_acad_assert)) (if (and  w (/= const_getvarlist nil)) (setq;|a000|;
     k (jc_aro10 (list "C105syst_getvars")))) (if (>  k 0) (progn  (princ m) (princ c))) (jc_aro10 (list "C106_trace0speak" m)) (if (>  k 0) (jc_aro10 (list "C107alert" m))) 
)

Eu il cred pe domnul  Cristian Dascalul, multa tehnologie invizibilă există deja pe Terra. si anume "Fizica si Chimia" de la liceu _IX--XII -se transforma deja , in "fizica algoritimica" "programarea IT chimista" doar religia Borgilor sau Matrix Reloaded ne mai salveaza..Ex. adica "Javaficarea Chimiei" ....Voi ce credeti?. In Romănia căta JavaficareaChimiei există deja ?

Code:

(Defun _TRACE0SPEAK(eroare / rr g)
   (setq g (vlax-create-object "SAPI.SpVoice"))
   (if (and (dfn_var_isstr eroare) g)
     (progn (vlax-invoke g 'speak (substr eroare 1 31))
            (vlax-release-object g)
     )
   )
   (alert eroare)
rr)


(defun dfn_cad_initgetvars(a097 / $rr item rstr)
 (setq;|a000|;
     rstr (read "STR")
     $rr nil) (foreach item a097 (setq;|a000|;
     $rr (if (and (=  (type item) rstr) (>  item "")) (cons (getvar item) $rr) $rr))) (setq;|a000|;
     $rr (reverse $rr)) 
$rr)


(Defun syst_error (merr / rr a c o m g w k) ;_ASSERT_OK
      (setq *error* const_error  const_error nil)
 (setq;|a000|;
     k 0
     w (dfn_var_isstr merr)
     c (dfn_var_isstr erlsp)) (setq;|a000|;
     o (if w merr const_urlmyemail)) (setq;|a000|;
     m (if c (asserte c) "")) (setq;|a000|;
     m (strcat m "RTERROR:\n" merr "\nMyEmail:" const_urlmyemail "\nErrorDetected:" _ERRCHECK "\nAdress:" const_acad_assert)) (if (and  w (/= const_getvarlist nil)) (setq;|a000|;
     k (syst_getvars))) (if (>  k 0) (progn  (princ m) (princ c))) (_trace0speak m) (if (>  k 0) (alert m)) 
)



*error* syst_error detect syst_error (merr (setq *error* nil)
 (jc_aro10 (list merr))
 (jc_aro10

23.1KB


_______________________________________


pus acum 2 ani
   
Pagini: 1  

Mergi la