Aller au contenu

SVP Amelioration Routine


lecrabe

Messages recommandés

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

 

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

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)
)

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité