Aller au contenu

Cumul des chiffres


Messages recommandés

Posté(e)

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

Posté(e)

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

Posté(e)

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é

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 compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité