CrocsFun Labs Fille Elena Of S Avalor xBdCoWre D'affaires Homme Chaussures De Yxpnu En lc1FKJ3T
Posté 29 novembre 2012 - 13:35
Posté 29 novembre 2012 - 14:08
Posté 29 novembre 2012 - 14:15
(setq var(1- var))dans les routines en question!?
Posté 29 novembre 2012 - 14:45
Posté 29 novembre 2012 - 14:46
Posté 30 novembre 2012 - 10:46
Posté 30 novembre 2012 - 10:54
Posté 30 novembre 2012 - 11:48
(defun decr_txt (Txt / Boucle Decalage Val_Txt) (setq Boucle 1 Val_txt "" ) (while (<= Boucle (strlen Txt)) (setq Ascii_Txt (vl-string-elt Txt (- (strlen Txt) Boucle))) (if (not Decalage) (setq Ascii_Txt (1- Ascii_Txt)) ) (if (or (= Ascii_Txt 47) (= Ascii_Txt 64) (= Ascii_Txt 96)) (setq Ascii_Txt (cond ((= Ascii_Txt 47) 57) ((= Ascii_Txt 64) 90) ((= Ascii_Txt 96) 122) ) Decalage nil ) (setq Decalage T) ) (setq Val_Txt (strcat (chr Ascii_Txt) Val_Txt)) (setq Boucle (1+ Boucle)) ) (if (not Decalage) (setq Val_Txt (strcat (cond ((> Ascii_Txt 47) "9") ((> Ascii_Txt 90) "Z") ((> Ascii_Txt 122) "z") ) Val_Txt ) ) ) Val_Txt )
Posté 30 novembre 2012 - 12:09 1 Fitness LowChaussures Jordan Homm De wOZTXkuiP
Posté 30 novembre 2012 - 12:59
Mid 9768 Renagade nbsp;adu 320945 Lowa Gtx Ws thBQdsCrxCitation
(defun c:bono05 (/ obj) (vl-load-com) (if (vlax-property-available-p (setq obj (vlax-ename->vla-object (car (nentsel)))) 'TextString T) (vla-put-TextString obj (decr_txt (vla-get-TextString obj))) (princ "\nSélection non valable... ") ) (princ) )
Posté 30 novembre 2012 - 13:08
(defun gc:SplitNumericSuffix (str allowNegative / aux) (defun aux (l1 l2) (cond ((null l1) (list (reverse l1) l2)) ((< 47 (car l1) 59) (aux (cdr l1) (cons (car l1) l2))) ((and allowNegative (= (car l1) 45)) (list (reverse (cdr l1)) (cons (car l1) l2)) ) (T (list (reverse l1) l2)) ) ) (mapcar 'vl-list->string (aux (reverse (vl-string->list str)) nil)) ) (defun gc:NumStrPad (str num / neg) (if (= (substr str 1 1) "-") (setq neg T str (substr str 2) ) ) (while (< (strlen str) num) (setq str (strcat "0" str))) (if neg (strcat "-" str) str ) ) (defun c:decr (/ txt elst) (initget "Oui Non") (setq neg (/= (getkword "\nAccepter les nombre négatifs [Oui/Non]? <Non>: ") "Oui") ) (while (and (setq txt (car (nentsel))) (setq elst (entget txt)) ) (if (and (wcmatch (cdr (assoc 0 elst)) "*TEXT,ATTRIB") (if neg (/= (atoi (cadr (setq spl (gc:SplitNumericSuffix (cdr (assoc 1 elst)) nil)))) 0) (/= (cadr (setq spl (gc:SplitNumericSuffix (cdr (assoc 1 elst)) T))) "") ) ) (entmod (subst (cons 1 (strcat (car spl) (gc:NumStrPad (itoa (1- (atoi (cadr spl)))) (strlen (vl-string-left-trim "-" (cadr spl)))) ) ) (assoc 1 elst) elst ) ) (alert "Séléction non valide") ) ) (princ) )Light Femme Gioselin Gioselin Chaussure Chaussure Femme Sneakers Sneakers Light Gioselin dxoCeB
Posté 30 novembre 2012 - 13:17
Posté 30 novembre 2012 - 13:22
Posté 30 novembre 2012 - 13:49 Light Femme Gioselin Gioselin Chaussure Chaussure Femme Sneakers Sneakers Light Gioselin dxoCeB
Citation
Citation
Posté 30 novembre 2012 - 13:56
Citation
Posté 30 novembre 2012 - 14:04
bono05, le 30 novembre 2012 - 13:56 , dit :
(defun decr_txt (Txt / Boucle Decalage Val_Txt) (setq Boucle 1 Val_txt "" ) (while (<= Boucle (strlen Txt)) (setq Ascii_Txt (vl-string-elt Txt (- (strlen Txt) Boucle))) (if (not Decalage) (setq Ascii_Txt (1- Ascii_Txt)) ) (if (or (= Ascii_Txt 47) (= Ascii_Txt 64) (= Ascii_Txt 96)) (setq Ascii_Txt (cond ((= Ascii_Txt 47) 57) ((= Ascii_Txt 64) 90) ((= Ascii_Txt 96) 122) ) Decalage nil ) (setq Decalage T) ) (setq Val_Txt (strcat (chr Ascii_Txt) Val_Txt)) (setq Boucle (1+ Boucle)) ) (if (not Decalage) (setq Val_Txt (strcat (cond ((> Ascii_Txt 47) "9") ((> Ascii_Txt 90) "Z") ((> Ascii_Txt 122) "z") ) Val_Txt ) ) ) Val_Txt ) (defun c:bono05 (/ obj) (vl-load-com) (if (vlax-property-available-p (setq obj (vlax-ename->vla-object (car (nentsel)))) 'TextString T) (vla-put-TextString obj (decr_txt (vla-get-TextString obj))) (princ "\nSélection non valable... ") ) (princ) )
Posté 30 novembre 2012 - 14:10
Posté 30 novembre 2012 - 14:11
Posté 30 novembre 2012 - 14:11
Citation
Citation
Posté 30 novembre 2012 - 14:25
bono05, le 30 novembre 2012 - 14:11 , dit :
(defun c:bono05 (/ obj) (vl-load-com) (if (vlax-property-available-p (setq obj (vlax-ename->vla-object (car (nentsel)))) 'TextString T) (vla-put-TextString obj (decr_txt (vla-get-TextString obj))) (princ "\nSélection non valable... ") ) (c:bono05) (princ) )
Community Forum Software by IP.Board 3.1.4