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:
draghici_elena2000
 | Femeie
24 ani
Dambovita
cauta Barbat
24 - 62 ani |
|
|
admin
Administrator
Din: Bucharest
Inregistrat: acum 13 ani
Postari: 516
|
|
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))
) |
23.1KB
_______________________________________
|
|
| pus acum 3 ani |
|
