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+
Continuer une polyligne
#22
Posté 15 mars 2017 - 09:46
Salut,
PPL devrait marcher avec les polylignes et les polylignes 3d
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) )
#23
Posté 15 mars 2017 - 11:18
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+
Ç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+
AutoCad MAP 2020 - Covadis + Autopiste 17.1
www.colas-mayotte.fr
www.colas-mayotte.fr