Sommer des lignes...

[barbichette]

Bonjour,

 

J'ai un dessin avec plusieurs lignes, en fait presque une centaine.

Ces lignes ne sont pas contigues (la fin d'une ne correspond jamais au débuy d'une autre)

Je voudrais pouvoir calculer rapidement la longueur totale que représentent ces lignes.

 

(pour expliquer un peu ce que sont ces lignes :

C'est un plan de fondation, qui représente des semelles isolées. Hors les semelles isolées doivent être reliées entre elles par des tirants parasismiques)

 

Pour ce qui est des surfaces, je créé des régions que j'assemble pour créer une "super région", et ensuite je fais afficher un champ objet, lié à la fameuse "super région", en prenant comme critère d'affichage la surface.

 

Mais comment faire pour des lignes "dispatchées" sur le plan ??

 

Merci....

 

[grand_sapin]

Salut

 

si tu a covadis sur un poste pas loin, tu peut faire un métré rapide de distance, et tu séléctionne tout les objets que tu veux ajouter, cependant, je ne sais pas si cela fonctionne aussi bien avec des lignes qu'avaec des polylignes, essayes toujours.

Par contre, si tu n'as pas accès a covadis, je ne peux rien te proposer d'autre.

 

bon courage

 

Still Sapin

[barbichette]

Tu as deviné, je n'ai pas covadis.

 

J'ai trouvé une astuce, mais c'est super loin d'etre simple :

Je mets toutes mes lignes dans un calque, je désactive tous les autres calques, et je fais une liste des lignes du calque, la liste apparait alors dans la feuille d'information

Copier / coller dans excel (pour chaque page) (ca en fait un max, vu que j'avais 209 lignes)

 

puis une p'tite formule avec Excel pour sortir l'info que je veux....

 

LIGNE Calque: "tirants"

Espace: Espace objet

Maintien = CC1103F

de point, X= 336.81 Y= 2193.18 Z= 0.00

vers point, X= 342.21 Y= 2193.18 Z= 0.00

Longueur = 5.40, Angle dans le plan XY = 0

Delta X = 5.40, Delta Y = 0.00, Delta Z = 0.00

[bonuscad]

Regarde ce Post .

 

Je pense qu'il pourra te rendre service.

[Tramber]

(defun c:totL( / Sel compt long)
(setq Sel(ssget '((0 . "LINE") )))
 (if Sel
   (setq compt 1 long 0
  compt(alert(strcat"Longueur cumulée = "(VL-PRINC-TO-STRING(repeat(sslength Sel)
							      (setq long(+ long(vla-get-length(vlax-ename->vla-object(ssname Sel compt))))))))))
   (alert "Pas de ligne détectée")))

 

Mets ce texte dans un fichier .LSP que tu ajouteras aux routines à charger au démarrage (la petite valise dans Outils->Charger une application).

 

Au prochain dessin, tu n'auras qu'à taper TOTL ou glisser l'instruction dans un nouveau bouton.

 

[Edité le 12/12/2005 par Tramber]

[autospeed]

Uilise Autospeed , disponible sur http://www.autospeed.biz

La commande MLC te fait la somme des lignes par calques.

tu peux aussi faire les polylignes avec la commande MPC

 

Phil http://www.autospeed.biz

[barbichette]

Merci à tous.

 

En fait j'ai fait ce que vous m'avez conseillé, en utilisant une routine trouvée dans le post indiqué par BONUSCAD, puis chargé la routine dans les appli à charger au démarrage, puis créé un bouton....

 

Et ca marche !

 

MErci