[Résolu] Longueur d'une polyligne en la cliquant

[DenisHen]

Bonjour à tous...

 

J'essai de connaitre la longueur d'une polyligne en cliquant dessus pour intégrer dans une routine plus longue. J'ai écris ça en ligne de commande, mais évidement, ça plante :

(progn (setq pl (entsel)) (vlax-for pl (setq Long (vla-get-Length pl))) (princ Long))

Si quelqu'un a un conseil, une solution... Je suis preneur...

[didier]

Coucou

 

(setq lon-poly (getpropertyvalue (car (entsel "\polyligne ?\n")) "Length" ))

[DenisHen]

Salut...

 

Que dire... Nickel.

 

Mille mercis...

[didier]

Coucou

 

Avoue que vous avez la vie facile les jeunes !

 

[DenisHen]

Avoue que vous avez la vie facile les jeunes !

J'ai commencé à programmer en Basic et en Pascal (début des années 90), puis en Turbo Basic, puis en Visual Basic...

 

Eh bien il n'y avait pas d'internet pour avoir de l'aide à cette époque...

 

Ce qui me fait penser que je ne suis pas si jeune que ça... Mais merci, je le prend comme un compliment... ;)

[DenisHen]

Du coup, j'ai écris ça :

;;; Écriture dans un fichier (.long) la couleur et 
;;; la longueur d'une plusieurs segments de polylignes
(defun c:LongPoly ( / Coul)
 (setq NbDec (getvar "luprec"))
 (setq Select (car (entsel "\npolyligne :")))
 (setq Long (getpropertyvalue Select "Length"))
 (setq Long (rtos Long 2 NbDec))
 (setq Coul (cdr (assoc 62 (entget Select))))
 (cond ((= Coul 1) (setq Coul "rouge"))
       ((= Coul 2) (setq Coul "Jaune"))
       ((= Coul 3) (setq Coul "Vert"))
       ((= Coul 4) (setq Coul "Cyan"))
       ((= Coul 5) (setq Coul "Bleu"))
       ((= Coul 6) (setq Coul "Magenta"))
       (T (setq Coul "DuCalque"))
 ) ;_ Fin de cond
 (setq Fichier (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)))
 (setq Fichier (strcat (getvar "dwgprefix") Fichier ".long"))
 (setq FichierEcrit (open Fichier "a"))
 (write-line (strcat Coul " = " Long ) FichierEcrit)
 (close FichierEcrit)
 (princ)
) ;_ Fin de defun

Ce code écrit, dans un fichier .long au même emplacement que le .dwg, la couleur suivi de la longueur des différentes polylignes cliquées dans le dessin...

 

Encore merci à didier... ;)

[Aleck_Ultimate]

Salut.

 

Avoue que vous avez la vie facile les jeunes !

 

Bha comme pour tout : oui et non !

 

Oui parce qu'il y a de plus en plus de fonctionnalités en natif.

 

Non, parce que de ce fait dés-lors qu'on a un besoin nécessitant du codage, on bute tout de suite sur un marche au niveau des épaules. C'est bien moins pratique pour apprendre à coder, même si ça permet à une grande partie des non codeur de ne pas devoir le devenir.

 

Mais il est vrai qu'au final c'est quand-même plus oui que non.

 

EDIT : Pour ça les exercices de ton site sont un bon tremplin pour les débutants, soit dit en passant.