eagle4

Salut micc Voici le code que j'utilise en VB6 dim acadApp As AcadApplication On Error Resume Next Set acadApp = GetObject(, "AutoCAD.Application") If Err Then Err.Clear Set acadApp = CreateObject("AutoCAD.Application") If Err Then MsgBox Err.Description Exit Sub End If End If

Salut serge C'est bien un traceur que je veux configurer depuis VB6 ou VBA. Merci Eagle4

Bonsoir à tous Quelqu'un peut-il m'expliquer ou m'indiquer où trouver comment configurer un traceur en VBA ? Merci de vos réponses @+ eagle4

Salut Roland_9 ThisDrawing.Application.ZoomExtents Ptmin = ThisDrawing.GetVariable("EXTMIN") ' Ptmin = l'extrémité inférieur gauche Ptmax = ThisDrawing.GetVariable("EXTMAX") ' Ptmax = extrémité supérieur droite @+ Eagle4 :yltype:

Salut Pako Les références ne sont disponibles qu'en mode "création", tu ne peux y avoir accès par programmation, seul la compilation en VB le permet mais pas de compilation possible en VBA. @+ Eagle4

Salut à tous Ceci est la manière dont je procède pour exécuter mes bidouilles en VBA et les décharger ensuite. Ligne de prog dans le bouton de commande : ^C^C(command "_-vbarun" "MonProgramme.dvb!MaMacro") Cette méthode évite d'avoir une alerte "Programme chargé", si celui-ci est déjà en mémoire. Ensuite dans le programme lui même, un bouton de commande pour terminer la macro et la décharger : Private Sub FIN_Click() 'Décharge le programme VBA ThisDrawing.SendCommand ("_vbaunload MonProgramme.dvb ") End End Sub Pour les 2 lignes de commande MonProgramme doit donner le chemin complet et le nom du programme à charger ou à décharger. (Exemple : E:\dao2002\Local\VBA_CARTOUCHE.dvb) En espérant que cela puisse servir à d'autres. @+ Eagle4 :yltype:

Salut Didier J'ai mis les 2 ^C en tête de ma ligne de commande mais rien de changé. Jai donc fermé AUTOCAD et je l'ai relancé et la tout fonctionne normalement. @+ Eagle4 :yltype:

Bonjour à tous Une petite question en guise d'apéro ;) Par un bouton de commande je charge un programme en VBA dans AUTOCAD et je lance la macro toujours avec ce même bouton : (command "_vbaload" "E:/dao2002/Local/com/VBA_MOULES.dvb")(command "_-vbarun""GO_MOULES") Autocad répond : "impossible d'exécuter la macro. Autocad est en cours d'utilisation" Mon programme se charge dans l'éditeur VBA et depuis celui-ci je peux exécuter la macro. Quelqu'un peut-il m'expliquer ce qui se passe ? Merci de vos réponses eagle4

J'ai rebooté ma machine et tout est redevenu normal. Eagle4 [Edité le 20/11/2004 par eagle4]

Bonjour à tous Je sais que ce n'est pas le bon forum mais il n'y a que dans celui-ci que je peux poster !!!!!!!!! Dès que je change de forum je suis déconnecté, si je me connecte sur le nouveau forum (trucs et astuces par exemple), après connexion je me retrouve sur un écran qui me signale que le forum n'existe pas. Système d'exploitation : Xp Pro pack 2 Navigateur : Mozilla, Firefox et Explorer 6.0 ZoneAlarm Pro Les cookies sont autorisés pour le site Merci de vos réponses eagle4

Bonjour Ton fichier texte contient-il une correspondance entre le nom de ton XRef chargé et le nom de ton nouveau XRef qui doit le remplacer ? eagle4 :yltype: [Edité le 17/11/2004 par eagle4] [Edité le 17/11/2004 par eagle4]

Ok j'ai trouvé dans l'aide de VBA (pas facile quand on a fait Espagnol en 1ère langue) En fait quand on justifie un texte à droite il faut ensuite le positionner avec l'instruction : ObjText.TextAlignmentPoint eagle4 :yltype:

Bonsoir à tous Voici mon pb Je souhaite écrire un texte justifié à droite à un endroit bien précis de mon dessin voici le code que j'ai écrit Set ObjText = ThisDrawing.ModelSpace.AddText(Retour, corner2, 3) 'texte justifié à droite ObjText.Alignment = acAlignmentRight 'repositionne le point d'insertion ObjText.InsertionPoint = corner2 ObjText.Update Retour étant mon texte, corner2 le pt d'insertion (123,15,0) Le résultat : mon texte est justifié à droite mais en 0,0,0 Si je remplace la ligne : ObjText.Alignment = acAlignmentRight par ObjText.Alignment = acAlignmentLeft, mon texte est justifié à gauche et se trouve bien en 123,15,0 Ou est l'erreur ? Merci de vos réponses eagle4

Bravo Pako et merci Voici je que j'ai fait sur tes conseils MonText="text1" & "\P" & "text2" Résultat : text1 text2 C'est Super Merci aussi à Didier ta fonction marche aussi mais celle de Pako est plus simple, elle evite les calculs sur la longueur des chaines. Merci encore à vous 2. @+ eagle4 :heartpump:

Bonsoir à tous Encore une petite question : Je dois créer un cartouche dans un dessin. Un des champs de ce cartouche est un MText. Pas de Pb pour écrire une ligne, mais comment faire un retour à la ligne dans ce MText ? J'ai essayé : MonText="text1" & chr$(13) & "text2" Résultat dans le cartouche : text1text2 Que faut-il faire svp ? Merci de vos réponses eagle4

Salut Pako Merci de ta réponse le prog marche super. La donnation me semble normale, le site doit vivre, il est riche en réponses de tout genre. Merci de toutes vos réponses. @+ eagle4 :yltype:

Bonsoir à tous Coment peut-on en VBA modifier la "Resol" (SnapBase et Snapmode) ? Merci de vos réponses eagle4 ;)

Re bonsoir J'ai trouvé une solution mais est-ce la bonne ou du moins la plus élégante ? Dim Resultat As Variant Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(corner2, "B-PDG.dwg", 1#, 1#, 1#, 0) Resultat = blockRefObj.Explode j'ai ajouté la ligne de code suivante blockRefObj.Delete Eagle 4 :yltype:

Merci Didier mais j'ai encore un chti pb voici mon code : Dim RetVal As Variant Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(corner2, "B-PDG.dwg", 1#, 1#, 1#, 0) RetVal = blockRefObj.Explode et je retrouve dans mon dessin le block "B-PDG" décomposé et superposé à celui-ci le même block mais lui n'est pas décomposé . Je ne vois pas ou est le bug !!!!! Eagle4 :(

Bonsoir à tous Comment peut-on inserrer un block décomposé en VBA Merci de vos réponse Eagle4 :question:

Re salut Didier Voici le programme que j'ai modifié : ThisDrawing.Application.ZoomExtents 'ptmin et ptmax sont les points de capture ptmin = ThisDrawing.GetVariable("EXTMIN") corner(0) = CInt(ptmin(0)) corner(1) = CInt(ptmin(1)) ptmax = ThisDrawing.GetVariable("EXTMAX") corner1(0) = CInt(ptmax(0)) corner1(1) = CInt(ptmax(1)) corner2(0) = 0 corner2(1) = 0 Set ObjAcad = GetObject(, "Autocad.Application") ObjAcad.Visible = True 'Création d'un jeu de sélection Set JeuSel = ObjAcad.ActiveDocument.SelectionSets.Add("TEST") 'Sélection d'entités par capture mode = acSelectionSetCrossing JeuSel.Select mode, corner, corner1 'Déplacement des entités sélectionnées For N = 1 To JeuSel.Count Call JeuSel.Item(N - 1).Move(corner, corner2) Next N 'suppression du jeu de selection ' il est important de le supprimer 'sinon ça plante à la prochaine utilisation JeuSel.Delete 'Mise à jour des entités ObjAcad.Update ThisDrawing.Application.ZoomExtents Il remplace la commande Sendcommand qui suit : ThisDrawing.SendCommand ("DEPLACER ") ThisDrawing.SendCommand ("TOUT ") ThisDrawing.SendCommand (" ") ThisDrawing.SendCommand (corner(0) & "," & corner(1)) ThisDrawing.SendCommand (" 0,0 ") ThisDrawing.Application.ZoomExtents Encore merci et @+ Eagle4 ;)

Salut Didier Merci pour ton prog, c'est plus sympa que la commande "Sendcommand" que j'utilisais. @+ Eagle4 :yltype:

Salut à tous Voici comment je fait inserrer un controle "commonDialog" dans la form que j'ai nommé "boite" Puis ce bout de code pour récuperer le nom du dessin choisi boite.Filter = "Fichiers AUTOCAD|*.dwg" boite.MaxFileSize = 32000 boite.InitDir = "F:\dao\" boite.FileName = "" boite.ShowOpen bloc_insert = UCase(boite.FileName) et c'est tout eagle4

Salut Je souhaite en VBA déplacer l'ensemble d'un dessin d'un point à un autre afin que l'EXTMIN soit en 0,0 Merci de votre aide eagle4