Classement

Bonnes Fêtes à tous. Et Rdv en 2024 pour une nouvelle année sur CADXP 🎁

Bonjour @DenisHen Loin de moi l'idée de faire du mauvais esprit, mais franchement, depuis le temps que tu poses des questions et qu'on te répond, tu aurais dû être capable de sortir ces lignes. Ce n'est qu'une question de logique que tu n'as pas vraiment cherchée. C'est tellement plus facile de poser la question. C'est bien de féliciter ceux qui réussissent et qui répondent, rejoindre leur club est encore plus valorisant. Amicalement

Coucou @DenisHen, Je ne maîtrise pas encore bien les créations d'objets donc je n'ai pas intégré les cotations et corrigé la position du texte, mais la forme est tracée en tous cas : (defun c:CP2DV (/ foo polymake textmake name lst pt ep osm a p1 p2 p3 p4) (defun foo (name / bulge->radius entlist blst i d r lst) (defun bulge->radius (pt1 b pt2 / c s r) (setq c (distance pt1 pt2) s (* (/ c 2.0) (* -1 b)) r (/ (+ (expt (/ c 2.0) 2) (expt s 2)) (* s 2.0)) ) ) (and (setq entlist (entget name)) (= "LWPOLYLINE" (cdr (assoc 0 entlist))) (setq blst (reverse (vl-remove-if-not '(lambda (x) (= (car x) 42)) entlist))) (setq blst (cdr (mapcar 'cdr blst))) (repeat (setq i (fix (vlax-curve-getEndParam name))) (setq d (vlax-curve-getDistAtParam name i) r (if (or (= i (1+ (fix (vlax-curve-getEndParam name)))) (= 0.0 (car blst))) 0.0 (bulge->radius (vlax-curve-getPointAtParam name i) (car blst) (vlax-curve-getPointAtParam name (1- i))) ) i (1- i) blst (cdr blst) lst (cons (list d r) lst) ) ) ) lst ) (defun polymake (plist c) (entmakex (append (vl-remove nil (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length plist)) (if c '(70 . 1)) ) ) (mapcar '(lambda (p) (cons 10 p)) plist) ) ) ) (defun textmake (pt str / txt) (setq txt (entmakex (list '(0 . "TEXT") '(100 . "AcDbEntity") '(100 . "AcDbText") (cons 10 pt) (cons 1 str) (cons 40 (getvar 'textsize)) '(72 . 4) '(73 . 2) ) ) ) (setq txt (vlax-ename->vla-object txt)) (vla-move txt (vlax-3D-point (vlax-get txt 'InsertionPoint)) (vlax-3D-point pt)) ) (and (setq name (car (entsel "\nSélectionner une coupe : "))) (setq lst (foo name)) (setq pt (getpoint "\nChoisir un point d'insertion : ")) (setq ep (getdist pt "\nDéfinir une épaisseur : ")) (setq osm (getvar 'osmode)) (setvar 'osmode 0) (setq a (/ pi 2.)) (setq p0 (polar pt a ep) p1 pt p2 p0) (mapcar '(lambda (x / d r) (setq d (car x) r (cadr x) p3 (polar p0 0.0 d) p4 (polar pt 0.0 d) ) (polymake (list p1 p2 p3 p4) T) (if (not (zerop r)) (progn (polymake (list p1 p3) nil) (polymake (list p2 p4) nil) (textmake (mapcar '(lambda (a b) (/ (+ a b) 2.)) p1 p3) (strcat "R: " (rtos r 2 2))) ) ) (setq p1 p4 p2 p3 ) ) lst ) (setvar 'osmode osm) ) (princ) ) Désolée pour le rendu un peu brouillon >w< Bisous, Luna

Objet: Update AutoCAD/ACAD LT 2024.1.2 Dispo (14/11/2023) Hello Update AutoCAD 2024.1.2 environ 1.4 Go qui s applique a TOUS les ACADs https://help.autodesk.com/view/ACD/2024/FRA/?guid=AUTOCAD_2024_1_2_FIXED_ISSUES Update AutoCAD LT 2024.1.2 environ 1.0 Go https://help.autodesk.com/view/ACDLT/2024/FRA/?guid=AUTOCADLT_2024_1_2_FIXED_ISSUES La Sante, Bye, lecrabe

_NCOPY ou NCOPIE est intégré dans AutoCAD et AutoCAD LT depuis bon nombre d'années. Plus besoin des Express pour ça. 😉

Hello @lili2006 Mais Zero Express/Bonus Tools avec AutoCAD LT ! Bye, lecrabe