DenisHen

Bonjoir à tous (c'est un mélange de bonjour et de bonsoir ...) Un double-clique sur le block ou la commande RefEdit (Edition de Référence) et vous pourrez changer les attributs d'un block ( type de ligne, calque d'origine, couleur....) dans le dessin courrant, et toutes les insertions de ce même block seront à jour ! ! Je ne fais pas parti des meilleurs, mais en block, je me suis fais tellement ch... que maintenant... j'en connais un rayon Et les 2 règles de Jifi sont aussi les miennes ! ! Rien dans 0, JAMAIS Sauf lors de la construction d'un block, et là, c'est TOUJOURS ! ! Bien à vous... Denis...

Grand merci à toi, bonuscad, dont j'utilise déjà les macros inclues dans le MNS du même nom... je pense que je vais me mettre au LISP Mais -> ??????????? J'ai tenté une réponse, mais soit disant interdite dans le forum LISP.... Peut-être ne suis-je pas assez foncé dans la couleur de ma ceinture ? ! ? Mais j'expliquai que dans le forum "Discussion sur le LISP" Les exemples étaient bien, mais uniquement pour ce qui connaissait le LISP... Mais BonusCad, Tu me sauve encore...Mais je n'ai pas encore remercié nazemrap pour la macro qu'il m'a filé... De petits bug encore, dû à mon incompétence... Mais celà devrai convenir... Je vais étudier de près le LISP... Et seul, car personne n'est capable d'aidé un "Novice/Novice"........ Comme personne n'est capable de dire à quoi servent les parenthèses dans le lisp, ni comment on apelle une fonction ou une macro depuis la ligne de commande AutoCAD ! ! Ou même !! !! !! Quel est le principe de la syntaxe du LISP ! ! Je me dirige donc vers la litérature ? ! ? ! ( donc, pourquoi ce super site) et je reviendrai quand j'en saurais plus pour aider mon prochain... Merci encore à BonusCAD et à nazemrap.... Denis

Même le fichier d'aide aux développeur ou Documentation du développeur n'expliques nulpart à quoi servent les parenthèses ? ? Pfff ! ! ! Pour une aide... Denis...

Ok, j'ai regarder mais tout plante toujours la première fois. Mais c'est normal, Je dois vérifier si l'entité cliquée est bien une AcadLWPolyline, sinon, la transformée en AcadLWPolyline... Non ? Denis...

Merci mille fois nazemrap, J'essai tout de suite... Mais je me demande si pour des macros de ce type, je ne devrai pas me mettre au Lisp ou VisualLisp ? ? Je pense qu'il serait plus judicieux, puisque c'est uniquement pour rester dans AutoCad... Non ? En tous cas... Merci encore... Denis...

Merci pour la réponse, nazemrap . Mais : 1. Pourquoi la copier ? 2. Pourquoi la décomposer 3. Comment récupérer le segment choisi (je clique une polyligne .. 4. Comment effacer les segments de lignes ? ? Je sais ça fait beaucoup de question, mais je nage et je n'ai qu'une vague idée de ce développement, je rame souvent longtemp pour une bétise... L'arbre me cache souvent la forêt... Merci ... Denis...

Salut à tous... Juste un truc... Ne JAMAIS écrire en MNU.... Toujours en NMS ! ! ! ! C'est exactement la même syntax... Mais AutoCAD respecte le MNS.... Pas le MNU ! ! ! Et même si on demande à AutoCAD de compiler le menu.... Le MNS sera lisible et modifiable ... Pour ce qui est du MNU..... Il ne servira plus à rien ! ! ! C'est comme modifier un si on était un ordinateur ... la forme compilée, aucun Pb, la forme language "humain" ? ! ? ! ? ! Pas comprendre ! ! Bon courage... Denis...

Bonjour, ou bonsoir, à tous... Voilà, j'essai de sortir l'angle ( ou vertex je pense) d'un segment d'une polyligne en cliquant sur celui-ci... Personne ne peut me répondre ! ! ! Et en VBA ? ! ? ! C'est impossible ? ou je suis trop bête ? ? ? Denis...

Salut à tous, Et merci à winfield pour cette humble citation , mais, à mon humble avis, les réacteurs ne sont uniquement valables en Lisp.. Et il est vrai que , comme le prouve Patrick_35, pour utiliser et conserver des réacteurs en VB, il faut associer VB et Lisp..... Et c'est très lourding ! ! ! ! ! Denis...

Bonsoir à tous.... Dans AutoCAD, il y a, dans un fenêtre active de l'espace papier, une solution pour créer un calques UNIQUEMENT actif dans les nouvelles fneêtres et inactif dans les fenêtres existantes.... Mais il n'y a qu'une macro pour créer un calque qui ne sera actif que dans UNE SEULE fenêtre.... M'enfin, c'est mon avis... Denis...

Désolé, j'ai oublié de demander : Rien, c'est RIEN ? Ni VB ni AutoCAD ne réponds un truc ? ? Tu lance et ...... Rien.... Comme-ci tout c'était bien passé ? Aucun message ? ? Ni augmentation du Processeur ?

Salut, Ma réponse est : Idem Je ne vois rien dans ce code qui défaille... Dans VB, Menu : Outils\Références.... Quel AutoCAD de coché ? Et lequel a été installé en premier, VB ou AutoCAD ? Denis...

Bonsoir Ludo.. Essai, comme mot clef dans l'aide VBA d'autocad "THAWED"...à la place de FREEZE... Denis...

Bonjour, ou bonsoir, Doua, Ce n'est pas obligatoirement un Pb AutoCAD...j'entends par là que ce doit être VBA la sourece de tes ennuis... 1 Dans le VBA de la macro qui fonctionne, Menu : Outils/Références... Note les éléments cochés 2 Puis, compares les avec celui qui disfonctionne (Waow, il est beau ce mot...) Mon avis est qu'il doit il y avoir une DLL ou un autre truc de ce genre de pas chargé... En vérifiant aussi le contenu des répertoires : C:\Documents and Settings\ -utilisateur- \Application Data\Autodesk\AutoCAD 2005\R16.1\fra #ou utilisateur = celui qui marche et celui que marche pô (C pa bo sa) il y a peut-être la solution... Vas savoir.... Tiens-nous au courant... Denis...

Ca y est ! ! J'ai résolu mon problème... Merci... Denis...

J'ai résolu mon problème... Ouf... Merci à tous... Denis...

J'ai trouvé un truc, c'est AcAlignement qui pose problème ! ! Mais comment changer le point d'insertion de texte ? Je me recreuse la retête ! ! ! Denis...

J'ai déclaré varInsertionPoint comme Variant, car Dim varInsertionPoint(0 to 2) As Double provoque "Impossible d'affecté à un tableau" à cette ligne : varInsertionPoint = ThisDrawing.Utility.GetPoint(, vbCr & "point d'insertion du texte: ") Je me creuse la tête ! ! Denis...

Merci Pako, Oh combien précieux dans sa contribution à ce site... Mais là... J'ai le même problème et...J'ai le même problème... : je demande un point d'incertion varInsertionPoint = ThisDrawing.Utility.GetPoint(, "Point d'insertion du texte :") Puis j'écris (avec cee qu'il faut) : Hauteur = 1: Texte = "CadXP" Set TextObj = ThisDrawing.ModelSpace.AddText(Texte, varInsertionPoint, Hauteur) TextObj.Alignment = acAlignmentCenter TextObj.Rotation = ThisDrawing.GetVariable("SNAPANG") Mais rien à faire ! ! Mon texte est à 0,0,0 ! ! ! ! ! S N I F ! !

CadXPiens, CadXPiennes... Voilà, dans une boucle j'ai : Case "Eau (bas gauche)" ' Teste d'insertion du symbole simple associé au texte à l'échelle *********************** With ThisDrawing.Utility .InitializeUserInput 1 varInsertionPoint = .GetPoint(, vbCr & "point d'insertion du symbole : ") End With For a = 0 To ListBox1.ListCount - 1 Choix = Right(ListBox1.List(a), Len(ListBox1.List(a)) - 2) If ListBox1.Selected(a) = True Then CreationCalque ("FMS Eau potable(Bouche à clé) " & Choix): CouleurCalque (3): Ech = Val(Choix) / 100: Print #1, Choix + ","; ThisDrawing.ModelSpace.InsertBlock varInsertionPoint, "s:\Config\Phalène\Symboles\Eau.dwg", Ech, Ech, Ech, dblRotation End If Next varInsertionPoint = ThisDrawing.Utility.GetPoint(, "Point d'insertion du texte :") For a = 0 To ListBox1.ListCount - 1 Choix = Right(ListBox1.List(a), Len(ListBox1.List(a)) - 2) If ListBox1.Selected(a) = True Then CreationCalque ("FMS Eau potable(Bouche à clé) " & Choix): CouleurCalque (3) Hauteur = Choix * 0.0024: Texte = "Eau" [surligneur] Set TextObj = ThisDrawing.ModelSpace.AddText(Texte, varInsertionPoint, Hauteur)[/surligneur] TextObj.Alignment = acAlignmentCenter '.width = Longueur TextObj.Rotation = ThisDrawing.GetVariable("SNAPANG") ': = Rotate TextObj.Update End If Next C'est un GROS PROBLÊME que j'ai ! ! Le texte inséré est à 0,0,0 ! ! ! Et je n'entrave quedalle ! ! C'est énervant ! ! Non ? je suis à l'entière disposition des septiques... Et... Retenez bien le nom de ce "logiciel" : Phalène ! ! ! Qui veut dire ? ? ?

Salut à tous, CadXPiens et CadXPiennes... Voilà, mon problème est simple, j'ai toujours le même texte à écrire le long d'un des segments de polyligne, exemple, "Limite" ou "clôture présumée mitoyenne" ou encole "mur porteur""... Pour ce faire dans les règles de l'art, il faudrait que ce texte soit visible avant pour cliquer au bon endroit (comme en transparence)... Voilà, la question est posée... Merci d'avance aux courageux... Denis...

Salut, Bon, je vais essayé de faire simple : Dim CoordPnt As Variant Dim dblRotation As Double Dim ObjBlock As AcadBlockReference With ThisDrawing.Utility .InitializeUserInput 1 varInsertionPoint = .GetPoint(, vbCr & "Point d'insertion du block: ") .InitializeUserInput 1 dblRotation = .GetAngle(varInsertionPoint, vbCr & "Angle de rotation: ") End With 'If varInsertionPoint = "" Or dblRotation ="" Then Exit Sub ThisDrawing.ModelSpace.InsertBlock varInsertionPoint, "S:\Config\Phalène\Symboles\Lpd-Mt-c.dwg", Echelle X, Echelle Y, Exhelle Z, dblRotation Voilà, c'est avec un truc beaucoup plus compliqué que j'ai apris, si je peu dire, le truc ! ! Bon courage... Denis...

C'est re-moi... :D Bon, pour les calques, c'est bon.... Mais il faut que je me penche sur la vérification de l'existance d'un calque avant de le créer....A mon avis, ça devrait faire un truc comme-çà : Do " tant que n calque " <= " nombre calque " if calque n trouvé then exit loop else n=n+1 loop if n calque = calque à créer then calque existe déjà else création du calque Si quelqu'un comprend ! ! Chapeau bas ! ! :o Bon, vu l'heure, je regarde LES NULS coffret 2 DVD3 et je me couche... Bonne nuit les petits... ;) Denis...

Re-bonjour ou re-bonsoir... Je n'arrive pas à créer un style de texte en VBA. J'y arrivais très bien dans mes lignes de menu... Mais là... Je coule :( C'est la même histoire, mais là, notre protagoniste nage avec la création de types de lignes.... :casstet: (On peut penser que je vis sous la mère mais pas du tout... Je suis dans l'Yonne.... :o ) Merci pour les aides éventuelles..... Denis... Et re-bonnes fêtes (ya pas de raison de ne pas re-fêter ! ! ! ;) )

Bonjour à tous (ou bonsoir) Je cherche à créer des calques en VBA, j'y ai réussi en une vingtaine de secondes.... Mais pour changer de couleur.....Alors là.... Je rame ! ! Quand au type de ligne dudit calque, je n'ose en parler ! ! ! 😞 Si une bonne âme tombe sur ces quelques lignes.... Bref, merci d'avance... Denis... P.S.: Bonnes fêtes de fin d'année à toutes les Cadxpiennes et tous les Cadxpiens... Et longue vie au site... 😄