[Résolu] Ajouter plusieurs sommet de polyligne à intervalle régulier

CTZen · le 15 janvier 2019

Salut à tous !

Me revoilà avec mes demandes de fainéant ...

Connaîtriez-vous une méthode ou un LISP permettant d'ajouter des sommets à intervalle régulier sur une polyligne ?

La commande MESURER permet de mettre des blocs ou des Entités de Points ... Mais pas de créer un nouveau sommet ...

Merci

EDIT : je viens de tomber sur DIVCUT de Gilles ! Je vais faire une routine via l'enregistreur d'action pour automatiser le Pedit > Joindre

x_all · le 15 janvier 2019

c'est bien tu commences à t'auto répondre :)

Dans la série lisp indispensables il y a JPL qui joint les segments de polylignes je ne sais plus de qui c'est... mais on le remercie

(depuis la 2017 il faut qu'il y ait au moins une ligne dans le jeux de sélection)Travailler en isolant le calque ou l'objet oour récupérer la sélection facilement

(defun c:jpl (/ ss)   (and (or
	(and (= (getvar "pickfirst") 1)
 		(setq ss (ssget "_I" '((0 . "ARC,LINE,LWPOLYLINE"))))
	)
	(setq ss (ssget '((0 . "ARC,LINE,LWPOLYLINE"))))
  	)
  	(if (= (getvar "peditaccept") 1)
	(vl-cmdf "_.pedit" "_m" ss "" "_j" 0.0 "")
	(vl-cmdf "_.pedit" "_m" ss "" "_y" "_j" 0.0 "")
  	)
 )
 (princ)
)

ssalle · le 15 janvier 2019

Bonjour,

Il y a le très bon lisp "AddVtx&DelVtx " dont tu trouveras le lien sur http://cadxp.com/topic/14427-les-lisp-de-gile/

encore et toujours merci à Gile.

Seb.

Edit: ah non, c'est pas ça... dsl

CTZen · le 15 janvier 2019

c'est bien tu commences à t'auto répondre :)
Dans la série lisp indispensables il y a JPL qui joint les segments de polylignes je ne sais plus de qui c'est... mais on le remercie
(depuis la 2017 il faut qu'il y ait au moins une ligne dans le jeux de sélection)Travailler en isolant le calque ou l'objet pour récupérer la sélection facilement

Merci pour ta réponse.

Si je comprend bien ce LISP fait le même boulot que la commande de base "JOINDRE" ?

En effet du coup j'ai un soucis pour automatiser la jointure des segments de polyligne ... il faudrait que je trouve comment sélectionner automatiquement les segments découpés par DIVCUT ...

En faisant "P" quand autocad demande la sélection des polyligne a joindre, il ne prend que le premier segment.

bonuscad · le 15 janvier 2019

Il y a cette réponse pas très ancienne qui ressemble à ta demande

lecrabe · le 15 janvier 2019

Hello Bruno

SVP est ce que ton LSP conserve les XDATAs et/ou ODs (de MAP) ??

LA SANTE, Bye, lecrabe

CTZen · le 15 janvier 2019

Il y a cette réponse pas très ancienne qui ressemble à ta demande

WOOOOW C'est EXACTEMENT ce que je cherchais et ça fonctionne nickel !

Forcément ... sans le mot clé "Vertex" je ne risquais pas de tomber sur ce sujet

1000 mercis !

Je remet le code du LISP ici.

Pour info la commande pour le lancer est "ADDVTX2DIST".

(vl-load-com)
(defun add_vtx (obj add_pt ent_name / bulg)
 (vla-addVertex
       obj
       (1+ (fix add_pt))
       (vlax-make-variant
       (vlax-safearray-fill
       (vlax-make-safearray vlax-vbdouble (cons 0 1))
       (list
               (car (trans (vlax-curve-getpointatparam obj add_pt) 0 ent_name))
               (cadr (trans (vlax-curve-getpointatparam obj add_pt) 0 ent_name))
       )
       )
       )
 )
 (setq bulg (vla-GetBulge obj (fix add_pt)))
 (vla-SetBulge obj
       (fix add_pt)
       (/
       (sin (/ (* 4 (atan bulg) (- add_pt (fix add_pt))) 4))
       (cos (/ (* 4 (atan bulg) (- add_pt (fix add_pt))) 4))
       )
 )
 (vla-SetBulge obj
       (1+ (fix add_pt))
       (/
       (sin (/ (* 4 (atan bulg) (- (1+ (fix add_pt)) add_pt)) 4))
       (cos (/ (* 4 (atan bulg) (- (1+ (fix add_pt)) add_pt)) 4))
       )
 )
 (vla-update obj)
)
(defun c:AddVtx2Dist ( / js AcDoc Space interval n obj ename v_length)
 (princ "\nSélectionnez une polyligne.")
 (setq js (ssget '((0 . "LWPOLYLINE"))))
 (cond
       (js
       (setq
       AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))
       Space
       (if (= 1 (getvar "CVPORT"))
       (vla-get-PaperSpace AcDoc)
       (vla-get-ModelSpace AcDoc)
       )
       )
       (initget 6)
       (setq interval (getdist "\nAjouter un sommet tous les <1.0>?: "))
       (if (not interval) (setq interval 1.0))
       (repeat (setq n (sslength js))
       (setq
       obj (ssname js (setq n (1- n)))
       ename (vlax-ename->vla-object obj)
       v_length 0.0
       )
       (while (< v_length (vlax-curve-getDistAtParam ename (vlax-curve-getEndParam ename)))
       (if (not (equal (fix (vlax-curve-getEndParam ename)) v_length 1E-13))
               (progn
               (add_vtx ename (vlax-curve-getParamAtDist ename v_length) obj)
               (setq v_length (+ interval v_length))
               )
               (setq v_length (+ interval v_length))
       )
       )
       )
       )
 )
 (prin1))

bonuscad · le 15 janvier 2019

Salut Lecrabe

C'est l'équivalent d'une commande d'édition (au même titre que PEDIT, DEPLACER, COPIER,ROTATION,ECHELLE etc..), elle ne crée pas de nouvelle entité; elle modifie celle-ci, donc OUI cela conserve les données associées

lecrabe · le 15 janvier 2019

Hello Bruno

MERCI c bien ce que j'imaginais !

Mais je n'ai pas d'AutoCAD sous la main a l'instant T ...

LA SANTE, Bye, lecrabe

Steven · le 15 janvier 2019

Salut à tous,

Sans lisp, donc qui peut aussi bien se faire sur un AutoCAD LT, en sélectionnant la polyligne puis en survolant un grips (sans le sélectionner), il y a le menu contextuel des grips qui apparaît > Ajouter un sommet.

Depuis AutoCAD 2011.

CTZen · le 15 janvier 2019

Salut Steven !

Oui.

Il est d'ailleurs possible d'ajouter un sommet en Sélectionnant un sommet puis en appuyant sur CTRL.

Mais c'est seulement pour faire sommet par sommet !

Steven · le 15 janvier 2019

Salut Steven !

Oui.
Il est d'ailleurs possible d'ajouter un sommet en Sélectionnant un sommet puis en appuyant sur CTRL.
Mais c'est seulement pour faire sommet par sommet !

En sélectionnant un sommet en appuyant sur la touche Ctrl, ça ajoute des polylignes

Alors qu'ajouter un sommet via le menu contextuel, ça ne fait qu'ajouter un sommet à la polyligne comme le lisp de gile mais ça ne duplique pas une polyligne

CTZen · le 16 janvier 2019

Hello !

Non non je te confirme que quand je créé une polyligne, que je la sélectionne, que je clique sur un de ses sommets, et que j'appuie sur CTRL, ça ajoute un sommet à la polyligne sans la dupliquer qui plus est ...

Steven · le 16 janvier 2019

Hello !

Non non je te confirme que quand je créé une polyligne, que je la sélectionne, que je clique sur un de ses sommets, et que j'appuie sur CTRL, ça ajoute un sommet à la polyligne sans la dupliquer qui plus est ...

Salut,

J'ai refait l'essai de mon côté et je n'ai pas le même résultat que toi. Je suis preneur pour une explication en détail parce que ça m'intéresse

Tu peux, en attendant, télécharger une vidéo que j'ai fait où je sélectionne le grip d'une polyligne et j'appuie ensuite sur la touche Ctrl pour ajouter un sommet mais je ne fais que dupliquer la polyligne

La Lozère · le 16 janvier 2019

Utilisant beaucoup les grips ce sujet m'intéresse et il m'a fait découvrir la touche Ctrl avec eux.

Et du coup, je pence avoir trouvé votre divergence...

2 cas:

- Cas Charles T: Charle appui sur la touche Ctrl et la relâche avant de saisir sont nouveau point

- Cas Steven: Steven appuie sur la touche Ctrl et la maintien appuyée en saisissant son premier nouveau point, puis la relâche pour les points suivants.

Steven · le 16 janvier 2019

Salut La Lozère,

Bravo, ceci explique cela. Il faut relâcher la touche Ctrl avant de saisir le nouveau point.

Bah je viens d'apprendre quelque chose

CTZen · le 17 janvier 2019

Et moi je viens d'apprendre qu'on pouvait dupliquer la polyligne du coup

lili2006 · le 19 janvier 2019

Bonjour à toutes et tous,

Et bien sur ma version (CF signature), voilà comment ça réagit avec la touche "Ctrl" enfoncée puis relâchée, j'accède aux différentes options :

Commande:
Commande:
** AJOUTER UN SOMMET **
Spécifiez un nouveau point de sommet:
** CONVERTIR EN ARC **
Spécifiez le milieu du segment d'arc:
** ETIRER **
Spécifiez le point d'étirement:
** AJOUTER UN SOMMET **
Spécifiez un nouveau point de sommet:
Commande:
** AJOUTER UN SOMMET **
Spécifiez un nouveau point de sommet:
**SUPPRIMER LE SOMMET**

Et la touche enfoncée : Création de nouvelles polys

Commande:
** AJOUTER UN SOMMET **
Spécifiez un nouveau point de sommet:
** AJOUTER UN SOMMET **
Spécifiez un nouveau point de sommet:
** AJOUTER UN SOMMET **
Spécifiez un nouveau point de sommet:
** AJOUTER UN SOMMET **
Spécifiez un nouveau point de sommet:

CTZen · le 22 janvier 2019

Salut Lili !

En effet si j'appui plusieurs fois sur CTRL ça me propose d'autres options !

Bien vu !!

Connexion

[Résolu] Ajouter plusieurs sommet de polyligne à intervalle régulier

Messages recommandés

CTZen

x_all

ssalle

CTZen

bonuscad

lecrabe

CTZen

bonuscad

lecrabe

Steven

CTZen

Steven

CTZen

Steven

La Lozère

Steven

CTZen

lili2006

CTZen

Forums

Naviguer

Activité

Information importante