PHIL-lang

Bonjour Gilles quelqu’un a solutionner le problème, voici le code (defun c:pp() (setq ss (ssget "_:L" '((0 . "INSERT")(66 . 1)))) (repeat (setq i (sslength ss)) (setq b1 (ssname ss (setq i (1- i))) b0 (entget b1)) (while (and (/= (cdr (assoc 0 (setq b1l (entget b1)))) "SEQEND") (/= (cdr (assoc 2 b1l)) "ORDRE")) (setq b1 (entnext b1)) ) (setq txt (cdr (assoc 1 b1l))) (setq p (1+ (strlen txt)) nr nil) (while (and (> p 0) (not nr)) (setq c1 (substr txt (setq p (1- p)) 1)) (setq nr (if (numberp (read c1)) nil (read (substr txt (1+ p))))) ) (setq b0 (subst (list 10 nr 0.0 0.0) (assoc 10 b0) b0)) (entmod b0) ) (command "_.ATTSYNC" "" (ssname ss 0) "") (setq ss nil) )

Bonjour oui c'est toujours le même signe (-) exemple L1-001 L2-002 L3-003...ETC OU 1/1/1-001 1/1/1-002 1/1/1-003....ETC Merci de ton aide 😉 tab ADRESS.dwg

on m'a proposé ceci mais soi je n'arrive pas a l'integrer au lisp d’origine soi c'est une mauvaise direction (defun en(txt) ; EndingNumber (setq i (1+ (strlen txt)) lst nil) (while (> i 0) (setq c1 (substr txt (setq i (- i 1)) 1)) (cond ((numberp (read c1)) (setq lst (cons c1 lst))) (t (setq i nil)) ) ) (setq nr 0) (foreach x lst (setq nr (+ (* 10 nr) (read x))) ) )

merci

Bonjour, j'ai un programme Lisp synoptique qui classe les blocs en fonction des "attributs" ADRESSE. Il fonctionne si l'adresse est saisie comme ceci : 001 002 003 004, etc. ou 1 2 3 4, etc. J'aimerais qu'il puisse mettre les blocs dans l'ordre avec l'adresse saisie comme suit : L1-001 L1-002 L1-003, etc. ou 1/1/1-001 1/1/1-002 1/1/1-003 1/1/1-004, etc. Merci pour votre aide. Cordialement, Philip. (defun c:SYNOD (/ *error* _No-p sel i sn en p) (defun *erro* (x) (setvar 'cmdecho 1) (princ "*Cancel*")) (defun _No-p (nxt / e No) (while (not (eq (cdr (assoc 0 (setq e (entget nxt)))) "SEQEND")) (if (and (eq (cdr (assoc 0 e)) "ATTRIB") (numberp (read (cdr (assoc 1 e)))) ) (setq No (cdr (assoc 1 e))) ) (setq nxt (entnext nxt)) ) No ) (if (setq sel (ssget "_:L" '((0 . "INSERT") (66 . 1)))) (repeat (setq i (sslength sel)) (setq sn (ssname sel (setq i (1- i)))) (if (and (setq p (read (_No-p (entnext sn)))) (numberp p) ) (progn (setvar 'cmdecho 0) (command "_.move" sn "" "_none" (cdr (assoc 10 (entget sn))) "_none" (list p 0. 0.) ) (setvar 'cmdecho 1) ) ) ) ) (princ) )