SVP Amelioration Routine

[lecrabe]

Hello

 

Voici une excellente (comme d'habitude) routine "PT-CEN" de Gilles qui cree un point au Centre De Gravite (Centroid) d'UNE Polyligne !

 

SVP est ce que qq'un pourrait faire une micro-amelioration : pouvoir selectionner N polylignes et donc generer N points au CDG (Centroid) ?

 

1) Merci a Gilles !

 

2) Merci d'avance au prochain contributeur ...

 

Bien sur avec un AutoCAD MAP (ou un AutoCAD CIVIL) : MAPCREATECENTROIDS

 

[(gile)]

Salut,

 

tu peux ajouter cette commande à la fin du fichier

 

(defun c:ss-pt-cen (/ ss)
 (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   (repeat (setq n (sslength ss))
     (entmake
(list '(0 . "POINT") (cons 10 (pline-centroid (ssname ss (setq n (1- n))))))
     )
   )
 )
 (princ)
)

 

tu peux aussi remplacer le code de PT-CEN par celui-ci (il y a des expression inutiles dans l'ancien code).

 

(defun c:pt-cen	(/ ent)
 (and
   (setq ent (car (entsel)))
   (= "LWPOLYLINE" (cdr (assoc 0 (entget ent))))
   (entmake
     (list '(0 . "POINT") (cons 10 (pline-centroid ent)))
   )
 )
 (princ)
)

[lecrabe]

Hello Gilles

 

MERCI : Tip-Top comme d'habitude ...

 

Bye, lecrabe