jonueva

Merci beaucoup, effectivement ca va mieux.

Je dirais à vue de nez: Pour imprimer en etendue: ThisDrawing.ModelSpace.Layout.PlotType = acExtents Pour Portrait / paysage je pense que c'est au même endroit mais je sais pas excatement lequel ThisDrawing.ModelSpace.Layout.

Bonjour à tous, Je suis sur autocad 2008. Le but de mon programme en VBA: Ouvrir une série de fichier afin de mettre à jour les liaisons de données externe. Pour me simplifier la tache , j'utilise la commande Sendcomand. ThisDrawing.SendCommand "_DATALINKUPDATE M L " ThisDrawing.SendCommand "Nomdelaliaison " Le seul probleme c'est que pour valider la dernier commande il faut mettre un espace. Si je mets un espace le nom est alors inconnue! J'ai essayé en utilisant la commande SendKeys "{ENTER}", mais la commande est envoyé à mon interface VBA et non à la feuille autocad... Ma question est comment envoyer la commande SenKeys à la ligne de commande? Ou si qqun voit une autre solution? Merci d'avance pour vos contributions.

La société: DAO ConceptElec est une société de sous-traitance en conception et réalisation de schémas électriques. Nos expériences dans le domaine de l'électrotechnique, de la sécurité et de l'automatisme permettent de répondre aux attentes de diverses entreprises. Nous intervenons au sein des entreprises en collaboration avec leur équipe ou en forfait dans nos propres locaux. Profil recherché: Afin de renforcer notre équipe nous recherchons des dessinateurs ou des dessinateurs/projeteurs sous SEE ELECTRICAL EXPERT et Autocad. Vous serais en charge de saisir/créer/concevoir les schémas électriques à partir d'un cahier des charges, de dossier existants... Coordonnées: M.LE BIDAN Ludovic Gérant Tel: 06-19-79-05-33 Fax:04-26-68-98-37 Mail: ludovic.lebidan@dao-conceptelec.fr Site: www.dao-conceptelec.com

oui ca marche si les tableaux ont certaines même caractéristiques. (Déclaration du contenu, capacité...)

Non, j'ai contourné le prblème en stockant les Handle dans un STRING et en retranchant de ma selection les objets que je ne veux pas: stHandle() = Split(strListHandle, ";") For i = 0 To UBound(stHandle) - 1 For Each ObjCad In SelectionLigne If ObjCad.Handle = stHandle(i) Then Set Objremove(0) = ObjCad SelectionLigne.RemoveItems Objremove Exit For End If Next ObjCad Next i Pas trés éléguant mais bon ca marche...

Ce que dis l'aide... Copie miroir d'objets La copie-miroir crée une copie miroir de l'image d'un objet autour d'un axe (ligne de symétrie). Vous pouvez effectuer une copie-miroir de tous les objets d'un dessin. Pour effectuer une copie-miroir d'un objet, utilisez la méthode Mirror fournie pour cet objet. Cette méthode requiert la saisie de deux coordonnées. Les deux coordonnées spécifiées deviennent les extrémités de la ligne de symétrie autour de laquelle l'objet de base est réfléchi. En 3D, cette ligne définit l'orientation d'un plan miroir perpendiculaire au plan XY du SCU qui contient la ligne de symétrie. A la différence de la commande Miroir d'AutoCAD, cette méthode place l'image réfléchie dans le dessin et conserve l'objet source. (Pour supprimer l'objet source, utilisez la méthode Erase. Pour gérer les propriétés de réflexion des objets Text, utilisez la variable système MIRRTEXT. La valeur par défaut de MIRRTEXT est 1 (actif) : les objets texte sont répétés comme les autres objets. Si la variable MIRRTEXT est désactivée (0), le texte n'est pas répété. Utilisez les méthodes GetVariable et SetVariable pour interroger et définir le paramètre MIRRTEXT. Vous pouvez refléter un objet Viewport dans l'espace papier, bien que ceci n'ait aucun effet sur la vue en espace objet ou sur les objets de l'espace objet. Pour de plus amples informations sur la création de copies-miroirs d'objets, reportez-vous à la section “Copie, décalage et reproduction en miroir des objets” du Manuel d'utilisation. Copie-miroir d'une polyligne autour d'un axe Dans cet exemple, l'utilisateur crée une polyligne fine dont il fait une copie-miroir par rapport à un axe. La nouvelle polyligne apparaît en bleu. Sub Ch4_MirrorPolyline() ' Create the polyline Dim plineObj As AcadLWPolyline Dim points(0 To 11) As Double points(0) = 1: points(1) = 1 points(2) = 1: points(3) = 2 points(4) = 2: points(5) = 2 points(6) = 3: points(7) = 2 points(8) = 4: points(9) = 4 points(10) = 4: points(11) = 1 Set plineObj = ThisDrawing.ModelSpace. _ AddLightWeightPolyline(points) plineObj.Closed = True ZoomAll ' Define the mirror axis Dim point1(0 To 2) As Double Dim point2(0 To 2) As Double point1(0) = 0: point1(1) = 4.25: point1(2) = 0 point2(0) = 4: point2(1) = 4.25: point2(2) = 0 ' Mirror the polyline Dim mirrorObj As AcadLWPolyline Set mirrorObj = plineObj.Mirror(point1, point2) Dim col As New AcadAcCmColor Call col.SetRGB(125, 175, 235) mirrorObj.TrueColor = col ZoomAll End Sub

Pour info: Le problème venait du faite que le bloc est dynamique et que lorsque qu'on utilise une variante du bloc, Autocad le renomme en *U22 ou quuch comme ca. Il faut donc utiliser si je veux selectionner tout les blocs portant le nom "borne" la propriété "EFFECTIVENAME" et non "NAME". Voili, voilou

Attention lire: intCodesGl(0) = -4: VarValeursGl(0) = "NOT" intCodesGl(1) = 5: VarValeursGl(1) = Objline.Handle intCodesGl(2) = -4: VarValeursGl(2) = "NOT>" Il y a bien le signe < avant le premier NOT, mais ca fait le bug ci dessus si je le mets...

Salut tout le monde, j'éspère que ceux qui sont partis en vacances se sont bien reposés voici ma nouvelle colle: Le problème est simple, voici hors contexte ce que ca donne: Je selectionne une ligne, et je souhaite grace aux coordonnées "Getboundingbox" de celle-ci et la methode "Object.Select acSelectionSetCrossing" selectionner tous les objets qui coupent ou sont sur cette ligne. Donc ca ca marche. Le hic c'est que je ne veux pas qu'il me selectionne la ligne en question et je décide donc d'utiliser lors de ma selection un filtre utilisant le HANDLE de cette ligne, voici cette partie du code: Dim intCodesGl(2) As Integer Dim VarValeursGl(2) As Variant Dim Objline As AcadLine intCodesGl(0) = -4: VarValeursGl(0) = " intCodesGl(1) = 5: VarValeursGl(1) = Objline.Handle intCodesGl(2) = -4: VarValeursGl(2) = "NOT>" selectionAutour.Select acSelectionSetCrossing, ptMin, PtMax, intCodesGl, VarValeursGl MESSAGE ERREUR:"Argument filter list incorrect dans select" Ma question est comment utiliser le filtre avec le code DXF 5? Pour info je suis sous Autocad2008. Merci pour vos aides.

Salut, Pour ma ma part j'ai acheté le même livre que Sechanbask dans un premier temps mais c'est vrai qu'il s'avère un peu juste si tu veux approfondire les choses. J'ai ensuite investit dans le livre "VBA pour Autocad 2006" de Albert M Thalheim, il est assez complet avec beaucoup d'exemple, par contre il faut l'importer du Canada... pour un cout d'environ 100€, mais ca vaut vraiment de cout si tu veux progresser. http://pages.videotron.com/thalheim/ @+

Bonjour, Je souhaiterais manipuler des blocs dynamiques, j'ai parcouru des sites étrangers, qui déclare la variable de références de bloc en IAcadBlockReference2. J'ai autocad2008 et l'éditeur VBA ne me propose pas cette déclaration. Y a t-il des bibliothèques à ajouter? Merci. Ci-joint le lien d'exemple: http://forums.augi.com/printthread.php?t=33330

Bonsoir, Voici mon problème de la soirée: J'ai un premier programme qui m'insert autant de référence de blocs (nom du bloc: "BORNE")que je lui donne de point d'insertion pour ca pas de probleme. Par contre dans un autre programme, qui doit passer par une phase de selection de ces blocs, je veux selectionner tout les blocs qui porte le nom "BORNE" donc je procède comme suit: Selection.Select acSelectionSetAll, , , groupCode, dataCode avec groupcode= 2 et dataCode="BORNE" Cette méthode marche trés bien si j'ai posé mes blocs "à la main", par contre en passant par mon premier programme, il ne selectionne que la première référence insérer... La question est pourquoi ne selectionne t-il pas tout!? Y a t-il une commande à mettre aprés chaque insertion de blocs? J'èspère avoir était assez clair dans mes explications. Merci pour vos réponse et bonne soirée

Bonjour tout le monde! Voilà mon problème: J'ai beaucoup de Bloc sur un dessin et je voudrai créer des Wbloc de chacun d'eux. La méthode manuelle me permet de cocher la case "Bloc" et de selectionner le bloc que je souhaite transformer en Wbloc. Par contre en VBA je ne trouve pas la solution: "ThisDrawing.Wbloc" me permet uniquement de creer un Wbloc avec une selection. Donc ma question est: Comment créer en VBA un Wbloc à partir d'un bloc? Merci pour vos réponse.

Pour information, Pour faire simple Je travaille avec les deux logiciels, SeeExpert est plus adapté pour les francais surtout en ce qui concerne les paramètres pour la gestion des numéros de fils (les allemands ne numerotent pas leur fil) mais Eplan le gère aussi. Eplan est beaucoup plus implanté au niveau mondial et est beaucoup plus rigoureux, chacun n'y va pas de sa petite fantaisie, c'est carré, c'est Allemand... Au niveau prix Eplan est plus interressant puisque il est "toute option" contrairement a SeeExpert qui a plusieurs niveau d'option. Laisser un post pour des réponses plus précises!