diviser une polyligne

[dainese]

Bonjour,

Apres un bon nombre de recherche, je n'ai pas trouvé de réponse à ma question :

Est-il possible de diviser une polyligne en autant de polylignes que l'on désire ou bien de la taille que l'on désire ?

Il y a bien mesurer/diviser mais ce ne sont que des repères :(

 

Merci de m'éclairer sur ce point

[Joffoon]

Salut,

 

Perso je ne sais pas s'il y a la fonction diviser multiple..., mais tu peux faire des cercles de la longueur que tu souhaites (qui sera en fonction la taille de la poly apres division), ensuite tu te sers de l'outil Couper au point..

 

A+,

 

Joff

[dainese]

Merci Joffon pour ta réponse mais ,dans certain cas, j'aurai un trop grand nombre de cercle à faire et de couper de ce fait.

Aujourd'hui, je passe par la commande mesurer aver un bloc de la longueur que je veux mais ça ne fonctionne pas dans les arcs de la polyligne. Et la commande diviser se contante de mettre des reperes.

Merci quand meme, si qqun d'autre à une idée

 

Autoc@dement

[speedy]

Bonjour

 

;;; Divise la polyligne en nombre de morceau

 

(defun c:div_pl ( / ent obj_vlax param_start param_end perim_obj res_track old_osmd l_pt lg)

(while (null (setq ent (entsel "\nChoix de la Ligne, Polyligne ou Spline: "))))

(cond

((member (cdr (assoc 0 (entget (car ent)))) '("LINE" "LWPOLYLINE" "POLYLINE" "SPLINE"))

(vl-load-com)

(initget 7)

(setq

res_track (getint "\nNombre de division: ")

obj_vlax (vlax-ename->vla-object (car ent))

param_start (vlax-curve-getStartParam obj_vlax)

param_end (vlax-curve-getEndParam obj_vlax)

perim_obj (vlax-curve-getDistAtParam obj_vlax (+ param_start param_end))

res_track (/ perim_obj res_track)

l_pt '()

lg 0.0

old_osmd (getvar "osmode")

)

(while (< (+ lg res_track) perim_obj)

(setq l_pt (cons (vlax-curve-getPointAtDist obj_vlax (setq lg (+ lg res_track))) l_pt))

)

(setvar "cmdecho" 0)

(setvar "osmode" 0)

(foreach n l_pt (command "_.break" n "_first" n n))

(setvar "osmode" old_osmd)

(setvar "cmdecho" 1)

)

(T (princ "\nN'est pas une Ligne, Polyligne ou Spline: "))

)

(prin1)

)

 

@+

 

Michel a

[dainese]

Merci

Il va donc falloir que je me mette aux lips.

Il n'y a donc pas une autre solution dans Autocad ?

Merci beaucoup.

@+

[Joffoon]

Salut,

 

Je me permet de relancer le thème de la question de Dainese, car le lisp que propose Speedy est super, mais je pense qu'il serait encore plus opérationnel en incluant une ligne de commande en plus qui demanderai la "distance" entre les coupures.. A partir de là l'outil serai complet. ;)

Est-ce possible?? :casstet:

 

Merci de votre attention..

 

Joff