Curlygoth

Bonjour, c'est bein valeur 257 de la méthode : obj.BackgroundColor.ColorIndex par contre pas sur que tu puisse l'utiliser en tant que "input" vu que la valeur "max" est 256...

(c'est pourquoi je te répète depuis plus d'un an maintenant d'utilisé les fonction et je viens de comprendre pourquoi tu ne le faisais pas...) OUI !! et tu peux aussi mettre en argument tout et n'importe quoi ! une variable, une liste, un tableau, un objet ! de cette manière relis mes réponse a tes question et je pense que tu comprendras mes fonctions sur toutes mes réponses et dans les modules/userform tu peux mettre en entête une variable, table, objet pour réserver le nom et le conserver dans tes procédures / fonctions qui du coup pourront conserver une variable commune (je l'utilise toujours pour mes userforms)

Oui carrément ! j'ai un cartouche par entreprise / concessionnaire / client qui veulent leur cartouche sinon j'ai le mien principe : Je rentre das un premier programme les données chantier client concessionnaire contact etc... (j'ai une base pour chaque client) comme ça je ne rentre qu'une fois les données dans autocad à la génération des présentations ça va charger et remplir le cartouche avec les données entrées préalablement avec le logo s'il y en a un C'est pas mal de taf à programmer mais je ne m’embête plus pour remplir les attributs... le plus : c'est que j'ai fait en sorte de mettre les logos ^^

Certain font : 1 cartouche par client / Moi je suis pus favorable à par contre si tu souhaites joué rapidement sur le contenu du cartouche il te faut un gestionnaire 🙂 via base de données et programmation !

il te faut au niveau des points de niveau ou des différencse de niveau si tu veux faire ça ! comme ça tes polylignes 2D peuvent etre modifier en 3D pour que tu es des Polylignes 3D et du coup faire différentes vues pour que tu es ton résultat. Pour cette transformation, il te faut des points au minimum au extrémité de chaque polyligne et peut etre des bloc indiquant un "noeud" entre une polyligne et une extrémité pour faire une liaison en cas nativement je ne saurais pas faire sauf si solide 3D au départ avec section / Coupe sinon programmation

peut etre que tes collegue n'ont pas "C:\\Program Files (x86)\\Adobe\\Acrobat Reader DC\\Reader\\AcroRd32.exe" au meme endroit toi ? Du coup en vba, tu n'a pas besoin de "déclarer" le logiciel à l'ouverture c'est plus simple d'utilisation : ça ouvre avec le programme par défault de windows 'MonFichier est le chemin complet du fichier à ouvrir ! Public Function OuvrirFichier(MonFichier As String) Dim MonApplication As Object Set MonApplication = CreateObject("Shell.Application") MonApplication.Open (MonFichier) Set MonApplication = Nothing Exit Function End Function Je conseil juste de vérifier que le fichier existe avant au cas où ^^

heu fait maison en VB

Et bien tu as tes blocs avec des attributs qui ont des valeurs personnellement j'assigne une valeur à l'attribut à mes blocs à l'insertion, je vérifie si dans un attribut avec une valeur : PREFIXE - NUM - SUFFIXE je verifie tous les "NUM" (Je nomme en 1,2,3,4... ou A,B,...Z,AA,AB...) Et si à l'insertion il manque le 3 ou le D (car je l'ai surement supprimer), le blocs prendra la valeur manquante, et s'il ne manque rien il prends la valeur suivante.

Je n'utilise pas Covadis as tu un exemple de fichier covadis ?

une autre approche : faire qu'une fonction que donne le nom en cas de suppression cela nomme l'objet de l'attribut qui est effacer (qui manque donc) ?

Bonjour, Voila 6 mois je travail sans relâche sur mon projet en VBA et compagnie... et depuis mi décembre la taille est fixé à 3114 Ko. j'ai rajouté des modules, des Userforms des lignes dans mes modules Je sais qu'un module (".bas") ne dois pas dépasser 64kb j'en est 60 et 20 ".frm". Mais hormis cette limitation est ce qu'il y en a d'autres ? et sauriez vous pourquoi la taille du .dvb ne change pas ?

je suis pas anglophone non plus le Set je le comprend (c'est pour moi" un ensemble, une collection...) le Q je sais pas une convention ou le type du set ? un peu comme si on ne disait plus integer mais % à la place ? Dim exemple As Integer peut etre écrit : Dim exemple% La première chose que je fais pour apprendre un language c'est connaitre les types, les opérateurs, et les affectations, le reste c'est le programme qui me les donne, je suis bon en VBA mais le VBE est tellement meilleur ! xD Il me donne les méthodes, sur chaque type, les méthode que je peux utiliser etc... j'ai juste à "tester" pour voir ce que ça fait et j'ai le résultat.

c'est même sur ! (Certain français propose des formations VBA autocad ) d'ailleurs .update est pas mal non plus !

Je ne sais pas où tu as eu cette outil mais je peux faire via vba. D'ailleurs, le topic VBA tu trouveras ton bonheur je penses

j'ai répondu a au moins 5 sujets pour ça ^^ et je te le répète : Fait des functions pour ne l'écrire qu'une fois ! For Each ATT In blockrefobj.GetAttributes If ATT.TagString = NOM_ATT Then ATT.TextString = VALEUR Exit For Else End If Next ATT

je t'envoie cha ^^

Tu es chûr ? moi j'ai mes fichiers d'aide .chm toujuors a coté de moi, ch'est ma bible !

J'avoue ne pas aller dans l'aide Autocad (sauf l'aide vba/lisp) et je préfère chercher sur google : et je me dis toujours : "je ne dois pas être le premier à avoir le problème / l'idée." Souvent, je trouve ! et si je trouve pas, je fais avec ce que je connais... et si je n'ai pas d'idée à comment réaliser mon truc : cadxp est là pour m'aider à trouver des solutions.

elle sont téléchargeable regarde le post de MNT tu vas trouver les .pat juste en dessous de son post allez courage !

je ne savais pas que tu voulais hachurer l'intérieur XD et comme dis Luna : désolé ...

tu peux faire un "champs..." clic droit sur la valeur de ton attribut tu vas dans formules : dans le champs formule tu tape 180- et ensuite clic droit dans formule tu vas retrouver la meme chose mais la tu vas Catégorie de chaps : Objets nom de champs Objet et tu sélectionne ton bloc avec l'icone en haut de la colonne du milieu tu sélectionnes ton bloc et tu récupères l'angle que tu veux tu fais ok pour valider l'attribut puis ok pour valider le formule du champ* Attention il faut regen le dessin pour voir la valeur à jour

Regarde dans la création de type avec des "shapes" https://forums.autodesk.com/t5/autocad-tous-produits-francais/type-de-ligne-shx-dans-autocad/td-p/8113394 Dans l'idée tu créés un shape donc tu commence en 0,0 en objet, tu dessines ta forme... Tu enregistres le dessin en shx puis dans ton type de ligne tu fait appel au chemin de ton shx

en vba quand tu .explose tu gardes le bloc.. enfin je dis ça...

tu exploses le bloc, tu récupères ta poly et s'il n'y a qu'une seule polyligne : obj = block.Explode For o = LBound(obj) To UBound(obj) if obj(o).ObjectName = "AcDbPolyline" then Set POLYOBJ = obj(o) next o ' ta hachure PatternName = "SOLID" PatternType = acPreDefinedGradient bAssociativity = True Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, PatternName, True) Set outerLoop(0) = POLYOBJ hatchObj.AppendOuterLoop (outerLoop) hatchObj.Evaluate 'Pense à rajoute le code pour supprimer les élement exploser pour que se soit propre For o = LBound(obj) To UBound(obj) obj(o).delete next o

s'il te manque que le PE je te conseil de faire des bloc pour chaque piece coude etc... ensuite tu prévois un attribut ou mettre dans leur nom le diametre tu te fais un prog lisp ou autre et tu appelles tes blocs pour les poser. Pour les anots une base de données fera l'affaire ^^ pour tel bloc qui tel attribut => tel annotation renseigne toi sur la programmation tu ne seras plus jamais limité 😉