décaler les textes chevauchés de profils covadis

[fredbross]

Bonjour, vous voulez en finir avec les superpositions de textes des profils covadis ou autopiste mais sans perdre d'informations, voici un petit lisp qui décale les textes chevauchés autant que nécessaire.

 

(DEFUN C:DECTEXT()
;pour décaler les textes chevauchés de profils covadis
;par F.Brosseau SARL PROJSUR le 18/02/2010
 (setq n 0 sel (ssget "X" '((0 . "TEXT"))))
 (repeat (sslength sel)
   (if (> n 0) (setq xo x yo y ))
   (setq entname(ssname sel n)
     	  ent (entget entname)
	  x (car(cdr(assoc 10 ent)))
	  y (cadr(cdr(assoc 10 ent)))
	  n (+ n 1)
   )
   (if (and (> n 1) (< (- xo x) (cdr (assoc 40 ent))) (= yo y)) (progn
	(setq x (- xo (* 2 (cdr (assoc 40 ent)))) pt (list x y 0))
	(entmake (list '(0 . "TEXT")
			'(100 . "AcDbEntity")
			'(100 . "AcDbText")
			(assoc 1 ent)
			(assoc 7 ent)
			(assoc 8 ent)
			(cons  10 pt)
			(cons  11 pt)
			(assoc 40 ent)
			(cons  50 1.570796)
			(cons  71 0)
			(cons  72 0)
			(cons  73 2)
			)
	)
	(entdel entname)
   ))
 )
 (setq ss nil)
 (PRINC)) 

 

Voilà, il est brut de décoffrage mais fonctionne bien pour moi, ainsi les profils sont enfin lisibles.

 

Bonne journée.[Edité le 18/2/2010 par fredbross]

[lili2006]

Bonjour à toutes et tous,

 

En effet efficace !

 

Seul pb, il ne garde pas la couleur des textes imposées dans le fichier de paramétrages,..

 

De plus, est-il possible de réduire un peu l'espacement entre les textes ainsi décalés ?

 

Avant =>

 

http://free0.hiboox.com/images/0710/5ff076476c06e79f2c9e97f0fb0f0ec8.jpg

 

 

Après =>

 

http://free0.hiboox.com/images/0710/654d58657a760332fb0f5c352de9443f.jpg

 

 

[Cyrchap]

Salut

l'idée est bonne mais il faudrait peut etre pouvoir faire une selection, sinon on ne maitrise pas les modifications. Si tu as un gros fichier ....

Il faudrait, soit agir sur une selection de calque, soit donner une zone à traiter.

A suivre

 

[lili2006]

Re,

 

C'est à dire que le fichier de paramétrage "prend la main" sur les couleurs des entités, indépendamment des couleurs de calques,... :casstet:

 

Je vois mal comment on peut gérer ça d'une autre façon,..

 

Dommage, car bien pratique ce lisp,... :o

[thierry.garré]

Bonsoir Fred

 

bien vu ce lisp

 

l'inconveniant c'est que dans certains cas le texte décales n'est plus du tout sous le sommet concerne

 

a savoir qu'une nouveauté dans ce sens est en cours de prepartion,qui permettra de choisir sur le profil type les points a coter obligatoirement,ceux qui ne doivent jamais l'être .en ce cas ceux qui doivent absolument aparaitre et qui se superpose seront décales en automatique.

 

En attendant cette nouveauté,ton lisp va dépanner pas mal de monde

 

cordialement

 

question: c'est quoi la SARL projsur ???

[fredbross]

Voilà le lisp modifier pour conserver les couleurs et pour pouvoir sélectionner les textes par fenêtre ou autre.

 

(DEFUN C:DT()
;pour décaler les textes chevauchés de profils covadis
;par F.Brosseau SARL PROJSUR le 18/02/2010
 (command "annuler" "D")
 (setq n 0 sel (ssget '((0 . "TEXT"))))
 (repeat (sslength sel)
   (if (> n 0) (setq xo x yo y ))
   (setq entname(ssname sel n)
     	  ent (entget entname)
	  x (car(cdr(assoc 10 ent)))
	  y (cadr(cdr(assoc 10 ent)))
	  n (+ n 1)
   )
   (if (and (> n 1) (< (- xo x) (cdr (assoc 40 ent))) (= yo y)) (progn
	(setq x (- xo (* 2 (cdr (assoc 40 ent)))) pt (list x y 0))
	(entmake (list '(0 . "TEXT")
			'(100 . "AcDbEntity")
			'(100 . "AcDbText")
			(assoc 1 ent)
			(assoc 7 ent)
			(assoc 8 ent)
		        (assoc 62 ent)
			(cons  10 pt)
			(cons  11 pt)
			(assoc 40 ent)
			(cons  50 1.570796)
			(cons  71 0)
			(cons  72 0)
			(cons  73 2)
			)
	)
	(entdel entname)
   ))
 )
 (setq ss nil)
 (command "annuler" "F")
 (PRINC))

 

Voilà, bon week-end.

[lili2006]

Bonsoir à toutes et tous,

 

Pas mal du tout tout ça !

 

Merci fredbross,

 

Ce qui vraiment tip-top, c'est si le décalage entre les textes pouvait être plus petit,.. ;)

 

Mais c'est déjà une sacré avancé,...

 

Encore merci,

 

Bon WE,

[lovecraft]

Bonsoir Lili2006,

 

Tout d'abord Merci fred ;) alors cette nouvelle Société comment va t elle ?

 

(defun C:ct ()
;pour décaler les textes chevauchés de profils covadis
;par F.Brosseau SARL PROJSUR le 18/02/2010
 (command "annuler" "D")
 (setq n 0 sel (ssget '((0 . "TEXT"))))
 (repeat (sslength sel)
   (if (> n 0) (setq xo x yo y ))
   (setq entname(ssname sel n)
     	  ent (entget entname)
	  x (car(cdr(assoc 10 ent)))
	  y (cadr(cdr(assoc 10 ent)))
	  n (+ n 1)
   )
   (if (and (> n 1) (		(setq x (- xo (*  [surligneur]1.65 [/surligneur]  (cdr (assoc 40 ent)))) pt (list x y 0))
	(entmake (list '(0 . "TEXT")
			'(100 . "AcDbEntity")
			'(100 . "AcDbText")
			(assoc 1 ent)
			(assoc 7 ent)
			(assoc 8 ent)
		        (assoc 62 ent)
			(cons  10 pt)
			(cons  11 pt)
			(assoc 40 ent)
			(cons  50 1.570796)
			(cons  71 0)
			(cons  72 0)
			(cons  73 2)
			)
	)
	(entdel entname)
   ))
 )
 (setq ss nil)
 (command "annuler" "F")
 (PRINC)) 

 

Voici le code de fred corrigé. Autrement pour jouer avec le décalage il faut modifier la valeur surlignée en jaune

 

Cordialement,

 

LAurent

[lili2006]

Re,

 

Salut Laurent,

 

Comment vas-tu ?

 

j'avais essayé de modifier cette valeur sans succès !!!

 

Évidement,même en rechargeant le lisp pour tester (glisser-déposer), le fichier test doit garder en mémoire la première définition du lisp je suppose,..

 

Merci, ;)

[fredbross]

Content de savoir que cela sera utile à d'autres.

 

Thierry, je t'ai répondu en MP, quant à Laurent, oui ça roule, je commence à être sollicité mais suis toujours pris sur le chantier du tram de Montpellier et pour longtemps encore je pense.

 

Bonne journée à tous.