Ligne de centre

[pierrevigneux]

Bonsoir!

Je cherche une routine pour dessiner une ligne de centre en polyligne par rapport à deux lignes données.

Soit dessiner une ligne de centre, provenant de lignes d'emprise parallèles.

 

Merci!

[speedy]

Bonjour à toutes et à tous

 

fais une recherche "MidPlines" ou regarde ce sujet

http://www.cadxp.com/XForum+print-fid-115-tid-25472.html

 

@+

 

Michel a

[pierrevigneux]

Merci speedy

 

Pour m'avoir dirigé vers le lien.

Ça marche nikel grand merci à Gile

 

C,est exactement ce que je cherchais.

[Invité samuelM]

Bonjour, j'ai récupéré un programme "Midpline" mais je voudrai pouvoir m'en servir à l'intérieur d'une polyligne. je ne sais pas ce qu'il faut changer.

 

pouvez vous m'aider?

Merci d'avance

 

	
(defun c:MidPline (/ pl1 pl2 elst1 elst2 pts1 pts2 pts3)
 (if (and
       (setq pl1 (car (entsel "\nSélectionnez la première polyligne: ")))
       (setq elst1 (entget pl1))
       (= "LWPOLYLINE" (cdr (assoc 0 elst1)))
       (setq pl2 (car (entsel "\nSélectionnez la seconde polyligne: ")))
       (setq elst2 (entget pl2))
       (= "LWPOLYLINE" (cdr (assoc 0 elst2)))
       (not (equal pl1 pl2))
     )
   (progn
     (setq pts1 (massoc 10 elst1)
           pts2 (massoc 10 elst2)
           pts3 (mapcar 'midpoint pts1 pts2)
     )
     (entmake
       (append
         (list
           '(0 . "LWPOLYLINE")
           '(100 . "AcDbEntity")
           '(100 . "AcDbPolyline")
           (cons 90 (length pts3))
           (assoc 70 elst1)
           (assoc 210 elst1)
         )
         (mapcar '(lambda (p) (cons 10 p)) pts3)
       )
     )
   )
 )
 (princ)
)

(defun massoc (code alst)
 (if (setq alst (member (assoc code alst) alst))
   (cons (cdar alst) (massoc code (cdr alst)))
 )
)

(defun midpoint (p1 p2)
 (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2.)) p1 p2)
) 

[pierrevigneux]

Bonjour samuelM

 

j'ai récupéré un programme "Midpline" mais je voudrai pouvoir m'en servir à l'intérieur d'une polyligne. je ne sais pas ce qu'il faut changer.

 

 

Pour dessiner une nouvelle ligne de centre t'as qu'à cliquer sur les polyligne de ch. côtés et il la dessineras toute seule.

Si ça répond à ta question ?

Salut !