Aller au contenu

LISP TRAITEMENT AFFICHAGE CONTENU MLEADER


jcouaknine

Messages recommandés

Bonjour,

 

Est ce bien le résultat de cette routine que tu désire?

 

(vl-load-com)
(defun c:test ( / js n ent mLeader)
(princ "\nSélectionner les lignes de repère multiples.")
(or
	(setq js (ssget "_I" '((0 . "MULTILEADER"))))
	(setq js (ssget "_P" '((0 . "MULTILEADER"))))
)
(cond
	(js
		(sssetfirst nil js)
		(initget "Existant Nouveau _Existent New")
		(if (eq (getkword "\nTraiter jeu de sélection [Existant/Nouveau] <Existant>: ") "New")
			(progn (sssetfirst nil nil) (setq js (ssadd) js (ssget '((0 . "MULTILEADER")))))
		)
	)
	(T
		(setq js (ssget '((0 . "MULTILEADER"))))
	)
)
(cond
	(js
		(repeat (setq n (sslength js))
			(setq mLeader (vlax-ename->vla-object (setq ent (ssname js (setq n (1- n))))))
			(vlax-put mLeader 'TextString (strcat "{\\C7;" (vlax-get mLeader 'TextString) "}"))
			(vlax-put mLeader 'TextBackgroundFill -1)
			(entmod (subst '(291 . 0) (assoc 291 (entget ent)) (entget ent)))
		)
	)
)
(prin1)
)

Choisissez un travail que vous aimez et vous n'aurez pas à travailler un seul jour de votre vie. - Confucius

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

 

Change simplement la ligne

(entmod (subst '(291 . 0) (assoc 291 (entget ent)) (entget ent)))

 

par,

 

(entmod (subst '(141 . 5.0) (assoc 141 (entget ent)) (entget ent)))

 

Sachant que 5.0 est la valeur maxi pour la taille du masque (c'est une valeur d'échelle), à toi de mettre une valeur qui te convienne.

 

Cette substitution devrait répondre à tes remarques.

Choisissez un travail que vous aimez et vous n'aurez pas à travailler un seul jour de votre vie. - Confucius

Lien vers le commentaire
Partager sur d’autres sites

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é