Changer automatiquement matricule des points (bloc attribut)

[metacilla]

Bonjour à tous!

 

 

j'ai environs 200 à 300 points sur mon fichier projet pour lesquel le matricule n'est pas renseigné (ca représente la totalité des points).

 

un point en bloc attribut lambda avec 3 attributs

MAT

ALT

COD

 

quelqun arrait-il une commande ou un lisp pour renommer les points (MAT) de 1 à X?

 

D'avance merci les forumeur.

[didier]

Coucou

 

Je te propose ceci dans le prochain message car le bbcode et ma mise en forme ne font pas bon ménage

 

Amicalement

[didier]

(defun c:da-Mat-Tcpoint	(/ jeu n entbloc att)
 (setq jeu (ssget (list (cons 0 "INSERT") (cons 2 "TCPOINT"))))
 (setq n 0)
 (repeat (sslength jeu)
(setq entbloc (ssname jeu n))
(setq att (subst
			(cons 1 (itoa (1+ n)))
			(assoc 1 (entget (entnext entbloc)))
			(entget (entnext entbloc))
		  )
)
(entmod att)
(setq n (1+ n))
 )
)

[lecrabe]

Hello Vieil Ours Grincheux & Grognon

 

Je suis NUL en Lisp mais il me semble (vu de mes yeux de Decapode antique)

que tu supposes que ALT est le 1 er Attribut !?

 

N'est ce pas un peu risque ??

Ne devrais tu pas tester l Etiquette MAT avec precision !?

 

Bye, le crabe "penible"

[didier]

Coucou

 

Pour mémoire, je ne suis pas un vieil ours grincheux & ronchon même si les deux cas se présentent souvent

Je suis un vieil hibou néfaste (hihihi)...

 

Tu as tout à fait raison, j'ai fait l'impasse sur la vérification de l'étiquette

99 % des routines (certains disent des programmes) que je fais sont pour mon usage personnel

C'est d'ailleurs un gros souci pour mon site "da-code" où je dois y faire plus attention.

Je dépose une nouvelle version qui pourrait s'améliorer dans ce sens :

Si l'attribut n'est pas vide, on le garde, s'il est vide on le remplit avec une valeur incrémentée...

 

Amicalement

[didier]

(defun c:da-Mat-Tcpoint	(/ jeu n ent att)
 (setq jeu (ssget (list (cons 0 "INSERT") (cons 2 "PT_projet"))))
 (setq n 0)
 (repeat (sslength jeu)
(setq ent (ssname jeu n))
(while (not (= "MAT" (cdr (assoc 2 (entget (entnext ent))))))
 	(setq ent (entnext ent))
 	)
(setq att (subst
			(cons 1 (itoa (1+ n)))
			(assoc 1 (entget (entnext ent)))
			(entget (entnext ent))
	  	)
  	)	
(entmod att)
(setq n (1+ n))
 )
)

[Aleck_Ultimate]

Salut.

 

Didier, je vient de faire quelques tests, et pour que tes messages ne soit pas entrecoupés par un autre intervenant quant tu met un poste de code à la suite d'un poste de texte (ici quatre minutes, c'est pas rien) tu peut écrire les deux messages dans des onglets différents, en réponses rapide ou en éditeur complet sans distinction, et les lancer à la suite.

 

Il faut juste compter jusqu'à cinq entre les deux envois pour éviter d'avoir un message d'erreur et/ou de perdre le contenu du dernier message envoyé. Peut-être un peu plus si ta connexion est vraiment mauvaise.

 

Cordialy.

[metacilla]

Merci à vous, je n'ai pas encore eu le temps de voir si cela fonctionne, mais merci!

[didier]

Coucou

 

Ce qui me tracasse c'est l'intitulé ...

C'est quoi lambda ?

 

[metacilla]

oublis Lambda...

 

le bloc s'appel Pt_projet

 

avec 3 attribut

 

étiquettes Invite Valeur

 

MAT Matricule

ALT Altitude 92.62

COD CodeSymbole XX

 

et il faudrait que je puisse renommer à la vole tous les matricules des points de 1 à X! :D

[didier]

Coucou

donc dans le code que j'ai donné il faut changer le nom du bloc ...TOUT est important en informatique

 

[metacilla]

Parfait Didier, tu cartonnes

 

merci

[metacilla]

puis je abuser de ta gentillesse????

 

il me faudrait la version où l'on peut y mettre un préfixe, genre "Bor.(numéro de point)"

 

celui là marche très bien, mais pour un autre genre de projet il faudrait que je nomme les Matricules des bordures....