nombre de sommets

[LUDWIG]

Bonjour,

 

J'ai cherché car je pense que ça existe, mais je n'ai pas trouvé.

Peut-être que vous m'indiquerez ou trouver.

 

Je souhaite obtenir le nombre de sommets total d'une sélection de polylignes.

 

Merci d'avance pour vos liens.

[LUDWIG]

Bon j'essaye de bidouiller quelquechose, je m'aperçois que le code dxf 90 donne le nombre de sommets.

[Fraid]

Bonjour,

 

 

 

Tu peux aussi utiliser

 

vla-get-Coordinates

 

qui te donne la liste des coordonnée des points

 

il ne reste plus qu'a les compter

 

si elle est close il faut retirer un sommet au total

 

je n'ai pas trouvé de methode directe en vla

 

existe t'elle ?

[LUDWIG]

Bon, finalement, j'ai fait ça en m'inspirant d'un code de cumul de longueur

 

;**********************************************************************************************************************************************************
cumul sommets :
;**********************************************************************************************************************************************************
(defun C:CS (/ ss cs n ent itm obj l nb extrem angl)
 
(setq ss (ssget '((0 . "*POLY*")))
cs 0
extrem 0
angl 0
poly (sslength ss)
n (1- poly)
)
 
(while (>= n 0)
 
(setq nb (cdr (assoc 90 (setq ent (entget (setq itm (ssname ss n))))))
embouts 2
cs (+ cs nb)
n (1- n)
      )
 )
(princ (strcat "\nSommets " (rtos cs)))
(princ (strcat "\ndont " (rtos (* 2 poly)) " extrémité(s)" ))
(princ (strcat "\net " (rtos (- cs (* 2 poly))) " angle(s)" ))
(princ (strcat "\nSOIT " (rtos (+ (* 2 poly) (* 2 (- cs (* 2 poly))))) " EMBOUT(S)" ))
(princ)
)

[lili2006]

Bonjour à toutes et tous,

 

Salut LUDWIG

 

Sommets 99.000

dont 66.000 extrémité(s)

et 33.000 angle(s)

SOIT 132.000 EMBOUT(S)

 

Heu, c'est quoi un EMBOUT ?

 

Pour 99 sommets, 132 embouts ?

 

Merci d'avance,

[LUDWIG]

Mes polylignes représentent des plaques de protections de mur (qu'on appelle lisses ou cimaises).

Dans la réalité, les angles ne sont pas jointifs (enfin, en fait ça dépend des modèles et des méthodes de pose) et sont traités avec des extrémités spécifiques.

J'ai dessiné mes lisses de protection avec des polylignes, et le lisp me permet de savoir combien d'extrémité (embouts) je dois commander.

http://img263.imageshack.us/img263/7382/sansreif.png

http://img853.imageshack.us/img853/7210/sansre2n.png

[lili2006]

Re,

 

Vu !

 

Merci pour ce complément d'info LUDWIG