sale-price

Merci infiniment pour le temps que tu as passé pour faire cela 🙏 avec les commentaires c'est top et ça me montre bien où débute et où fini une commande! je vais me pencher sur les deux liens que tu m'as transmis.

je vais tester mais pour être clair, j'ai découvert les lisp jeudi dernier donc si tu veux pour moi ces lignes de code ne veulent rien dire, en une semaine j'ai réussi à changer les unités ou le nombres de chiffres après la virgule ou quelque truc basique pour pouvoir utiliser une 20ene de lisp mais c'est loin d'être gagné. bonne soirée

Merci Olivier mais je débute en Lisp et honnêtement je n'ai aucune idée où coller cela 😕. pour la remarque sur le centroïde je pense que ça ne posera pas de problème je compte utiliser ce lisp sur les plans de parcelle de lotissement où les terrains sont principalement rectangulaire.

Merci beaucoup c'est exactement ça du coup en cherchant un peu je suis tombé sur Pline_block.lsp avec une variante où (gile) a donné la possibilité de soit placer le bloc qui indique la surface à l'endroit souhaiter soit faire "enter" et qu'il soit automatiquement centré, serait-il possible d'avoir la même évolution ? j'ai comparé les deux codes mais je n'arrive pas à comprendre.. (cf )

Bonjour, Personne n'a une idée ou ma question n'est pas claire ?

Merci c'est juste parfait!!! le gain de temps est énorme!

Bonjour, Je cherche à faire évoluer deux blocs que j'utilise pour "nommer" les terrains sur des projets de lotissement et sauf erreur cela est possible en lisp. J'ai actuellement deux blocs avec attribut que je peux modifier en cliquant dessus et en rentrant la valeur, un qui va se décliner 1,2,3.... pour les Terrains à batir (LETTRE_TAB.dwg) et A,B,C...AA,AB,AC...BA,BB,BC... pour les lots avec construction (LETTRE_LOT_BATI.dwg). le but serait d'avoir simplement à cliquer et qu'ils s'incrémentent automatique avec les chiffres pour l'un et avec les lettres pour l'autres. Merci d'avance Sylvain LETTRE_TAB.dwg LETTRE_LOT_BATI.dwg

Bonjour, Architecte chez un promoteur immobilier depuis peu, je débute en lisp et je cherche quelques routines pour permettre de gagner du temps quand je travaille sur un lotissement avec plus de 50lots à bâtir. J'ai très légèrement modifié la routine "surface-plancher" que j'ai trouvé ici, mais je n'arrive pas à mes fins, si quelqu'un pouvait m'aider, ce serait top. Le but est de cliquer dans une surface close, que ça génère une polyligne fermée sur le calque "01-EMPRISE LOT" et que ça créé le texte surface (sans décimal) sur le calque "01-EMPRISE LOT SURFACE" de manière à pouvoir geler indépendamment l'un de l'autre. Pourriez-vous m'indiquer la commande à ajouter pour créer le 2nd calque et quelle ligne je dois modifier pour que la surface soit sur le 2nd calque. Malgré plusieurs tests, il n'arrive pas à créer le calque. (j'ai 15ans de pratique sur autocad et je découvre le lisp....merci d'avance). Sylvain. (vl-load-com) (defun c:surflot ( / AcDoc Space nw_style e_last pt_in htx rtx obj ename nw_obj) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= 1 (getvar "CVPORT")) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (cond ((null (tblsearch "LAYER" "01-EMPRISE LOT")) (vlax-put (vla-add (vla-get-layers AcDoc) "01-EMPRISE LOT") 'color 0) ) ) (cond ((null (tblsearch "STYLE" "Arial")) (setq nw_style (vla-add (vla-get-textstyles AcDoc) "Arial")) (mapcar '(lambda (pr val) (vlax-put nw_style pr val) ) (list 'FontFile 'Height 'ObliqueAngle 'Width 'TextGenerationFlag) (list "Arial.shx" 0.0 (/ (* 15.0 pi) 180) 1.0 0.0) ) ) ) (setq e_last (entlast)) (while (setq pt_in (getpoint "\nSpécifiez un point intérieur <Entrée pour finir>: ")) (bpoly pt_in nil '(0 0 1)) (cond ((not (eq e_last (entlast))) (if (not htx) (progn (initget 6) (setq htx (getdist pt_in (strcat "\nSpécifiez la hauteur du champ <" (rtos (getvar "TEXTSIZE")) ">: "))) (if htx (setvar "TEXTSIZE" htx)) (setq htx (getvar "TEXTSIZE")) ) ) (if (not rtx) (if (not (setq rtx (getorient pt_in "\nSpécifiez l'orientation du champ <0.0>: "))) (setq rtx 0.0)) ) (setq obj (entlast) ename (vlax-ename->vla-object obj) ) (vlax-put ename 'Layer "01-EMPRISE LOT") (setq nw_obj (vla-addMtext Space (vlax-3d-point (trans pt_in 1 0)) 0.0 (strcat "%<\\AcObjProp.16.2 Object(%<\\_ObjId " (itoa (vla-get-ObjectID ename)) ">%).Area \\f \"%lu2%pr0%ct8[1]%ps[," "m²]\">%" ) ) ) (mapcar '(lambda (pr val) (vlax-put nw_obj pr val) ) (list 'AttachmentPoint 'Height 'DrawingDirection 'InsertionPoint 'StyleName 'Layer 'Rotation) (list 5 (getvar "TEXTSIZE") 5 (trans pt_in 1 0) "Arial" "01-EMPRISE LOT" rtx) ) (setq e_last (entlast)) ) (T (princ "\nAucun contour trouvé.") ) ) ) (prin1) ) SURFACELOT.lsp