[Ra_Mamt]

Bonjour à tous!
Je remonte un peu sur ce sujet vieux de 10ans!
ppl.lsp et copo2.lsp marche très bien sur les polylignes 2D mais j'aimerais savoir si on peut les adapter sur les polylignes 3D.
Merci
A+

[(gile)]

Salut,

PPL devrait marcher avec les polylignes et les polylignes 3d

(defun c:ppl (/ *error* err echo ptyp pl elst lw ent pt)
  (vl-load-com)

  (defun *error* (msg)
    (if	msg
      (progn
	(or (equal ent (entlast)) (entdel (entlast)))
	(or (= msg "Fonction annulée")
	    (princ (strcat "\nErreur: " msg))
	)
      )
    )
    (vla-EndUndoMark
      (vla-get-ActiveDocument (vlax-get-acad-object))
    )
    (setvar "CMDECHO" echo)
    (setvar "PLINETYPE" ptyp)
    (princ)
  )

  (setq	echo (getvar "CMDECHO")
	ptyp (getvar "PLINETYPE")
	ent (entlast)
  )
  (if
    (and (setq
	   pl (entsel "\nSélectionnez la polyligne à prolonger: ")
	 )
	 (setq elst (entget (car pl)))
	 (or
	   (setq lw (= (cdr (assoc 0 elst)) "LWPOLYLINE"))
	   (and	(= (cdr (assoc 0 elst)) "POLYLINE")
		(= 8 (logand 8 (cdr (assoc 70 elst))))
	   )
	 )
	 (zerop (logand 1 (cdr (assoc 70 elst))))
    )
     (progn
       (vla-StartUndoMark
	 (vla-get-ActiveDocument (vlax-get-acad-object))
       )
       (setq pt	 (trans (osnap (cadr pl) "_nea") 1 0))
       (if (< (- (vlax-curve-getDistAtPoint
		   (car pl)
		   (vlax-curve-getEndPoint (car pl))
		 )
		 (vlax-curve-getDistAtPoint (car pl) pt)
	      )
	      (vlax-curve-getDistAtPoint (car pl) pt)
	   )
	 (setq pt (trans (vlax-curve-getEndPoint (car pl)) 0 1))
	 (setq pt (trans (vlax-curve-getStartPoint (car pl)) 0 1))
       )
       (setvar "CMDECHO" 1)
       (setvar "PLINETYPE" 2)
       (if lw
	 (command "_.pline" pt)
	 (command "_.3dpoly" pt)
       )
       (while (/= 0 (getvar "CMDACTIVE"))
	 (command pause)
       )
       (setvar "CMDECHO" 0)
       (or (equal ent (entlast))
	   (command "_.pedit" pl "_j" (entlast) "" "")
       )
       (vla-EndUndoMark
	 (vla-get-ActiveDocument (vlax-get-acad-object))
       )
     )
  )
  (*error* nil)
)

[Ra_Mamt]

Hello,
Ça marche sur les polylignes 3D sauf qu’il ne fait pas de jonction et ne ferme pas (option clore) sur la polyligne traité.
A+