Chris24 Posté(e) le 23 avril 2009 Posté(e) le 23 avril 2009 Routine TOT_TXT.LSP;; Fonctionne en principe sur les TEXT & MTEXT de type numerique (defun c:tot_txt (/ doc sel tot pt) (vl-load-com) (setq tot 0 doc (vla-get-activedocument (vlax-get-acad-object)) ) (princ "\nSélectionnez les textes") (if (ssget (list (cons 0 "TEXT,MTEXT"))) (progn (setq suf (getstring T "\nEntrez le suffixe: ")) (vlax-map-collection (setq sel (vla-get-activeselectionset doc)) '(lambda (x) (setq tot (+ (atof (vla-get-textstring x)) tot)) ) ) (vla-delete sel) (if (setq pt (getpoint "\nPositionnez le résultat: ")) (vla-addText (vla-get-ModelSpace doc) (strcat (rtos tot) " "suf) (vlax-3d-point pt) (getvar "TEXTSIZE") ) ) ) )) Bonjour Sur ce lisp, peut-on rajouter 2 paramêtres supplémentaire, avoir la même police de caractère ainsi que la même hauteur que les textes sélectionnés, et donner une orientation lors de la position du résultat. Cordialement Chris24
(gile) Posté(e) le 23 avril 2009 Posté(e) le 23 avril 2009 Salut, ;; Fonctionne en principe sur les TEXT & MTEXT de type numerique (defun c:tot_txt (/ doc suf sel tot ref pt res) (vl-load-com) (setq tot 0 doc (vla-get-activedocument (vlax-get-acad-object)) ) (princ "\nSélectionnez les textes") (if (ssget (list (cons 0 "TEXT,MTEXT"))) (progn (setq suf (getstring T "\nEntrez le suffixe: ")) (vlax-map-collection (setq sel (vla-get-activeselectionset doc)) '(lambda (x) (setq tot (+ (atof (vla-get-textstring x)) tot)) ) ) (setq ref (vla-item sel 0)) (vla-delete sel) (if (setq pt (getpoint "\nPositionnez le résultat: ")) (progn (setq res (vla-addText (vla-get-ModelSpace doc) (strcat (rtos tot) " " suf) (vlax-3d-point pt) (vla-get-Height ref) ) ) (vla-put-Rotation res (vla-get-Rotation ref)) (vla-put-StyleName res (vla-get-StyleName ref)) ) ) ) ) (princ) ) Gilles Chanteau - gileCAD - GitHub Développements sur mesure pour AutoCAD
Chris24 Posté(e) le 3 mai 2009 Auteur Posté(e) le 3 mai 2009 Bonjour à toutes et à tous Est-il possible concernant la rotation du texte à ce que l'utilisateur puisse déterminer son angle de rotation et aussi de pouvoir orienter le texte avec le curseur élastique en traitillés en saidant de la touche F8 avec une Fonction du type: (setq ang (getangle "Spécifiez l'angle de rotation du texte")) bon dimanche @+ Merçi pour votre disponibilité
Messages recommandés
Créer un compte ou se connecter pour commenter
Vous devez être membre afin de pouvoir déposer un commentaire
Créer un compte
Créez un compte sur notre communauté. C’est facile !
Créer un nouveau compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant