micc

Salut Serge, eagle4 et le forum Voici les quelques lignes du code que j’utilise pour ouvrir le fichier dans AutoCAD, mais je ne comprend pas très bien comment utiliser votre methode, vous pouvez faire un exemple d’apres le code suivant ? histoire de ne pas fondre les neurones. :) Private Sub CommandButton1_Click() Dim AcadApp As AutoCAD.AcadApplication ' On lance AutoCAD Set AcadApp = New AutoCAD.AcadApplication AcadApp.Visible = True AcadApp.WindowState = acMax ' On ouvre le fichier dans AutoCAD AcadApp.Documents.Open (mon_fichier_dwg) AcadApp.Documents.Application.ZoomExtents End Sub Merci A+

Bonsoir à tous J’ai fais une application vba dans Excel et dans la partie « ouverture du fichier dwg » je cherche le moyen en vba de détecter si autocad est déjà ouvert, ceci pour mettre dans mon code la condition suivante : [si AutoCAD est ouvert j’ouvre le fichier] [sinon je démarre AutoCAD puis j’ouvre le fichier] Tout ça pour éviter d’ouvrir plusieurs fois AutoCAD bien sur Merci d’avance pour votre aide A+

Bonjour Pako et le forum voilà j'ai essayé et ça marche très bien à condition d'avoir le bloc déjà dans le dessin, mais si on ouvre un dessin qui ne contient aucun bloc puis il faut le chercher dans le disque c:\ par exemple, comme c'est le cas dans le code suivant, alors la macro n'insere rien, la question est porquoi ???? :) CODE : -------------------------------------------------------------------------- Public Sub PATH_BLOCKS() PATH_BLOCK = "C:\" If Dir(PATH_BLOCK, vbDirectory) = "" Then MsgBox ("LE RÉPERTOIRE" & PATH_BLOCK & "EST INTROUVABLE OU INEXISTANT, VEUILLEZ AVISER !") End If End Sub --------------------------------------------------------------------------- Sub test() Dim objBlockRef As AcadBlockReference Dim objBlock As AcadBlock Dim vPointInsert As Variant Dim dRotation As Double vPointInsert = ThisDrawing.Utility.GetPoint(, "ENTRER LE POINT D'INSERTION") dRotation = ThisDrawing.Utility.GetAngle(vPointInsert, "ENTRER L'ANGLE (1 pt.)") On Error Resume Next Set objBlock = ThisDrawing.Blocks("toto") If Dir(PATH_BLOCK & "toto.dwg") = "" Then MsgBox "LE BLOCK EST INTROUVABLE!" Exit Sub Else Set objBlockRef = ThisDrawing.ModelSpace.InsertBlock(vPointInsert, "toto", 1#, 1#, 1#, dRotation) objBlockRef.Update objBlockRef.Visible = True End If End Sub ------------------------------------------------------------------------- Merci A+

merci Pako je vais essayer de mettre cela en pratique A+

Bonsoir à tous voilà je suis ultra debuttant en vba et j'aimerais savoir comment peut'on inserer un symbôle dans autocad en cliquant un bouton depuis une userform, quel est le code à mettre ? merci pour votre aide A+ :D