Simpatie.ro - matrimoniale
lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms.. 		Nou pe simpatie:
Lolo
Femeie
24 ani
Galati
cauta Barbat
25 - 52 ani
lisp2arxReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
lisp2arx / Listof AutoLisp.100 /

Vla-autoLisp14- Lambda01vovka

 Pagini: 1 Moderat de zauchan
#1
admin
Administrator
Din: Bucharest
Postari: 523
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.

Vla-autoLisp14- Lambda01vovka - Please help how to convert -- str_pathtemp10 to - Listof AutoLisp.100
Vla-autoLisp14- Lambda01vovka – poza de admin, in Listof AutoLisp.100 · 38.9KB


_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf
 
   
#2
admin
Administrator
Din: Bucharest
Postari: 523


Code:

; anonymous functions
 (setq _initget_options (lambda (l) (substr (apply 'strcat (mapcar (function (lambda (k) (strcat " " k " " (strcase k)))) l)) 2)))
 (setq _prompt_options  (lambda (l) (substr (apply 'strcat (mapcar (function (lambda (k) (strcat "/" (strcase k)))) l)) 2))) 
 (setq _isDynamicBlock  (lambda (l) (vl-every (function (lambda (ent) (= (getpropertyvalue ent "IsDynamicBlock") 1))) l)))
 (setq _isBlockValid    (lambda (ents names) (vl-every (function (lambda (ent name) (eq (strcase (getpropertyvalue ent "BlockTableRecord/Name")) name))) ents names)))
 (setq _setAttribValue  (lambda (ents tags vals) (mapcar (function (lambda (ent tag val) (setpropertyvalue ent tag val))) ents tags vals)))
 (setq _genValue        (lambda (l) (mapcar (function (lambda (n) (strcat prefix (_format (itoa n) 3)))) l)))



_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf
 
   
Pagini: 1  
Mergi la