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:
i.oana 20 ani
 | Femeie
20 ani
Bucuresti
cauta Barbat
20 - 45 ani |
|
|
admin
Administrator
Din: Bucharest
Inregistrat: acum 13 ani
Postari: 515
|
|
Please help how to convert
-- str_pathtemp10 to
-- str_pathtemp12
How to calculate others version/s on same defun-names?
n same source defun?
How to detect inside "str_pathtemp10" the list of variabiles
"TEMP" "TMP" "TEMPPREFIX" "XLOADPATH" )
and generate automatically the source.ascii str_pathtemp12.lsp
Code:
(defun;;{$N}
str_pathtemp10
( / rr e f k) (asserte "A131")
(setq;|a8424|;
rr nil
f (dfn_var_isstr (getenv "TEMP"))) (if (and (not rr) f) (setq;|a8533|;
rr f)) (setq;|a8563|;
f (if (not f) (dfn_var_isstr (getenv "TMP")) f)) (if (and (not rr) f) (setq;|a8674|;
rr f)) (setq;|a8706|;
f (dfn_var_isstr (getvar "TEMPPREFIX"))
f (if (not f) (dfn_var_isstr (getenv "TMP")) f)) (setq;|a8835|;
f (dfn_var_isstr (getvar "XLOADPATH"))
f (if (not f) (dfn_var_isstr (getenv "TMP")) f)) (if (= rr nil) (setq;|a8989|;
rr "")) (setq;|a9019|;
k (strlen rr)) (if (> k 2) (progn (while (and (> k 1) (= (substr rr k 1) " ")) (setq;|a9169|;
rr (substr rr 1 (- k 1)))) (progn (while (and (> k 1) (wcmatch rr "*[\\]*")) (if (= (substr rr k 1) "\\") (setq;|a9369|;
rr (strcat (substr rr 1 (- k 1)) "/" (substr rr (+ k 1))))) (setq;|a9505|;
k (- k 1)))) (setq;|a9549|;
c (substr rr (strlen rr))) (if (/= c "/") (setq;|a9630|;
rr (strcat rr "/"))))) rr) |
Code:
(Defun str_pathtemp12 ( / rr e f k) (setq rr nil)
(
(lambda (f)
(if (and (= rr nil) (dfn_var_isstr (getenv f))) (setq rr f))
)
"TEMP" "TMP" "TEMPPREFIX" "XLOADPATH" )
)
(setq
k (strlen rr)) (if (> k 2) (progn (while (and (> k 1) (= (substr rr k 1) " ")) (setq;|a9169|;
rr (substr rr 1 (- k 1)))) (progn (while (and (> k 1) (wcmatch rr "*[\\]*")) (if (= (substr rr k 1) "\\") (setq;|a9369|;
rr (strcat (substr rr 1 (- k 1)) "/" (substr rr (+ k 1))))) (setq;|a9505|;
k (- k 1)))) (setq;|a9549|;
c (substr rr (strlen rr))) (if (/= c "/") (setq;|a9630|;
rr (strcat rr "/"))))) rr) |
Best regards.
38.9KB
_______________________________________
|
|
| pus acum 2 saptamani |
|
