Classement

Bonsoir Maxwell, Ci-joint le fichier sous Civil 3D, J'ai optimisé ton axe avec la commande ajustement optimal Lien: C'est ici Merci de ton retour Cordialement, Laurent

Bonjour, J’ai perdu bonuscad a été le plus rapide, ma proposition de code pour une sélection unique.. ;; Décompose une Polyligne (LWPOLYLINE): ;; Les lignes -> lignes ;; Les arcs -> cercle ;; Tapez lwp2cl pour lancer la commande (defun c:lwp2cl (/ space ent) (vl-load-com) (setq space (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))) (cond ((eq (cdr (assoc 0 (entget (setq ent (car (entsel)))))) "LWPOLYLINE") (foreach obj (vlax-invoke (vlax-ename->vla-object ent) 'Explode) (if (eq (vla-get-ObjectName obj) "AcDbArc") ((lambda (obj1 obj2) (foreach prop '(Layer Color LineType LinetypeScale Normal) (vlax-put obj2 prop (vlax-get obj1 prop)) ) (vla-Delete obj1) ) obj (vla-AddCircle space (vla-get-Center obj) (vla-get-Radius obj)) ) ) ) (entdel ent) ) ) (princ) ) EDIT: Intégration de la propriété Normal au code pour supporter d’éventuelles rotations du SCU sur ses axes X et Y.

Copie-colle directement ce qui suit en ligne de commande pour voir si ça te convient... ((lambda ( / js borne ss suivant n ent dxf_code) (setq js (ssget "_+.:E:S" '((0 . "LWPOLYLINE")))) (cond (js (setvar "CMDECHO" 0) (command "_.point" (getvar "VIEWCTR")) (setq borne (entlast)) (command "_.explode" js) (setvar "CMDECHO" 1) (if (and borne (entget borne)) (progn (setq ss (ssadd)) (while (setq Suivant (entnext Borne)) (if (eq (cdr (assoc 0 (entget Suivant))) "ARC") (ssadd Suivant ss) ) (setq Borne Suivant) ) (cond (ss (repeat (setq n (sslength ss)) (setq dxf_code (entget (setq ent (ssname ss (setq n (1- n))))) dxf_code (subst '(0 . "CIRCLE") '(0 . "ARC") dxf_code) ) (foreach n (list '(100 . "AcDbArc") (assoc 50 dxf_code) (assoc 51 dxf_code)) (setq dxf_code (vl-remove n dxf_code)) ) (entdel ent) (entmake dxf_code) ) ) ) ) ) (entdel borne) ) ) (prin1) ))