rohart

J'ai référencé les bibliothèques acdbmgd.dll et acmgd.dll de l'object ARX 2009. au départ sur cette ligne Dim acadDoc As Object = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument() je n'ai pas d'erreur quand j'exécute le programme, VS me renvoit l'erreur suivante 'ApplicationServices' is not a member of 'AutoCAD'.

Tout d'abord merci J'ai essayé ce que tu m'as dit Dim acadDoc As Object = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument mais il me surligne me disant 'ApplicationServices' is not a member of 'AutoCAD'. aussi non avant ma variable acadoc était défini comme ceci : Dim acadDoc As AcadDocument Pour mon autre question Public Sub main() Dim commandline As String Dim Result 'Recupere les parametres commandline = Command() Result = StrItemInArray(commandline, ",") Application.EnableVisualStyles() If commandline = "" Then Lancement_Couvercle_Manuel() Else Valeur_Excel = MyArray(0) Valeur_Couvercle = MyArray(1) L_Flan_Cone = MyArray(2) Lg_Flan_Cone = MyArray(3) Sous_Traitance = MyArray(4) Basetest = MyArray(5) sUser = MyArray(6) 'rechercheSpirit() vUserForm_Appareil.Txtbox_Numero_Appareil.Text = Valeur_Excel vUserForm_Appareil.ShowDialog() End If End Sub Public Function StrItemInArray(ByVal Chaine As String, ByVal Separateur As String) As Object Dim NbSeparateur As Integer Dim Emplacement As Integer Dim SauvEmpl As Integer NbSeparateur = 1 SauvEmpl = 1 If Right(Chaine, 1) <> Separateur Then Chaine = Chaine + Separateur End If Do While InStr(Emplacement + 1, Chaine, Separateur, vbTextCompare) Emplacement = InStr(Emplacement + 1, Chaine, Separateur, vbTextCompare) ReDim Preserve MyArray(NbSeparateur - 1) MyArray(NbSeparateur - 1) = Mid(Chaine, SauvEmpl, Emplacement - SauvEmpl) SauvEmpl = Emplacement + 1 NbSeparateur = NbSeparateur + 1 Loop StrItemInArray = MyArray End Function Public Poids_Couvercle_A As Double Public TypePlate_A As Object Public D1_A As Double Public D2_A As Double Public D3_A As Double Public G_A As Double Public ConeThick_A As Object Public ThRenf_A As Double Public Th_cover_A As Object Public Renf_Type_A As Object Public HingeType_A As Object Public DN_A1 As Object Public ThCoverMachined_A As Object Public Matiere_A As String Public Valeur_Couvercle As String Public L_Flan_Cone As Object Public Lg_Flan_Cone As Object Dim Sous_Traitance As String Public Requisition As Object Public Identique As Boolean Public Cote_Charniere As Boolean Public Poids_Couvercle_B As Double Public TypePlate_B As Object Public D1_B As Double Public D2_B As Double Public D3_B As Double Public G_B As Double Public ConeThick_B As Object Public ThRenf_B As Double Public Th_cover_B As Object Public Renf_Type_B As Object Public HingeType_B As Object Public DN_B2 As Object Public ThCoverMachined_B As Object Public Matiere_B As String Public MCOrderNo As Object Public UnitName As String Public D_Cover As Object Public HingeType As Object Public Dim_C As Object Public Dim_D As Object Public Shell_Type As Object Public D_Ext As Object Public D_Circular As Object Public Cote As Object Public Cote_Cover As Object Public D2 As Double Public D3 As Double Public G As Double Public ConeThick As Object Public E_Renfort As Double Public D_Renfort As Double Public Dim_R As Double Public Dim_R1 As Double Public Dim_R1plus3 As Double Public Dim_R2 As Double Public Dim_A As Double Public Dim_Asur2 As Double Public Dim_A1 As Double Public Dim_A1sur2 As Double Public Ep_Plateau As Object Public Ep_Cone As Double Public Pv_Code As Double Public Th_Renf As Object Public ThCoverMachined As Object Public Poids_Couvercle As Double Public D_Couvercle As Object Public Matiere As String Public Th_cover_brut As Object Public CE As Double Public CI As Double Public Tet_A As Double Public Tet_A1 As Double Public Valeur_A As Double Public Valeur_A1 As Double Public Charnière As Boolean Public Pied As Boolean Public NumeroSHE As Object Public Login As String 'Public oNet As New WshNetwork Public User As Object Public Nom As Object Public Valeur_Excel As String Public DN As Object Public Calque As AcadLayer Public BlocRef As AcadBlockReference Public Attributs As Object Public i, j As Integer Public Entity As AcadEntity Public CaracteristiquesBloc As String Public Reponse As Object Public Titre As Object Public VariableTempo As Object Public LastNumSHE As Object Public RequeteLastNumSHE As Object Public NumCommande As String Public OrdSql As String Public EnregRequeteLastNumSHE As Object Public RequeteAuto As Object Public vCote As String 'variables autocad Public acadDoc As AcadDocument Public appAcad As AcadApplication 'variable excel Public appExcel As Excel.Application 'Application Excel Public vClasseur As Excel.Workbook 'classeur excel Public Const pi = 3.14159265358979 ' valeur PI 'Public CnAlfa As ADODB.Connection 'Public RecSearch As New ADODB.Recordset Public Basetest As String Public valeur_arrondie As Integer Public sUser As String Public Country As String Public scnumcde As String Public Err_Temp As Boolean Public Num_serie 'Global Stress_valeur As Double Public MyArray() As String Public vUserForm_Couvcercle As New UserForm_Couvercle Public vUserForm_Appareil As New UserForm_Appareil Public vUserForm_Cote As New UserForm_Cote Public Sub Lancement_Couvercle_Manuel() 'Valeur_Excel = "30112-77001" Valeur_Couvercle = "AB" L_Flan_Cone = "930" Lg_Flan_Cone = "1845" Sous_Traitance = 1 vUserForm_Appareil.Txtbox_Numero_Appareil.Text = "30112-77001" vUserForm_Appareil.Show() End Sub

oui l'erreur est capturée par mon try catch j'ai essayé le premier code que vous m'avez donné mais il me surligne Application.DocumentManager me disant : 'DocumentManager' is not a member of 'System.Windows.Forms.Application'. et également me surligne Application.ShowAlertDialog me disant : 'ShowAlertDialog' is not a member of 'System.Windows.Forms.Application'. Je veux bien faire avec l'objet ARX mais je passe des paramètres à mon application donc j'aimerais savoir si c'est possible de passer des paramètres avec l'objet ARX ??? Voilà comment je fait actuellement Public Sub main() Dim commandline As String Dim Result 'Recupere les parametres commandline = Command() Result = StrItemInArray(commandline, ",") Application.EnableVisualStyles() If commandline = "" Then Lancement_Couvercle_Manuel() Else Valeur_Excel = MyArray(0) Valeur_Couvercle = MyArray(1) L_Flan_Cone = MyArray(2) Lg_Flan_Cone = MyArray(3) Sous_Traitance = MyArray(4) Basetest = MyArray(5) sUser = MyArray(6) 'rechercheSpirit() vUserForm_Appareil.Txtbox_Numero_Appareil.Text = Valeur_Excel vUserForm_Appareil.ShowDialog() End If End Sub

un p'tit up :D

Bonjour, dans le code et plus particulièrement la ligne en gras Try For i = 0 To acadDoc.ModelSpace.Count - 1 Entity = acadDoc.ModelSpace.Item(i) If Entity.ObjectName = "AcDbBlockReference" Then BlocRef = Entity [b]If BlocRef.HasAttributes Then[/b] Attributs = BlocRef.GetAttributes CaracteristiquesBloc = "Bloc : " & BlocRef.Name For j = LBound(Attributs) To UBound(Attributs) CaracteristiquesBloc = CaracteristiquesBloc & Chr(13) & "Attribut : " & Attributs(j).TagString & " = " & Attributs(j).TextString Attributs(j).TextString = "" Next End If End If Next acadDoc.Regen(AcRegenType.acAllViewports) Catch ex As Exception MessageBox.Show(Err.Number & " " & Err.Description) Dim monStreamWriter As StreamWriter = New StreamWriter("c:\temp\erreurToToCad.txt") monStreamWriter.WriteLine(Err.Number & " " & Err.Description) ''fermeture du fichier texte monStreamWriter.Close() End Try nous avons une erreur -2147417851 The server threw an exception. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT)) et franchement ca me parles pas du tout si quelqu'un a une idée d'où peut venir le problème et me donnez une voie de corection ce serait très gentil

on n'a trouvé d'où venait l'erreur, c'est un prestataire de service qui avait mis des DLLs sur le réseau (car il travaillait avec autocad 2012) tout ca grâce au F2 de Monsieur Gile merci à tous vous m'enlevez une épine du pied ^^

merci gile mais il y a pas de message d'erreur, il y a juste commande inconnue "GCSPIRIT" puis nil mais je vais me répéter avant elle se lancer cette fichue dll, il y a que depuis vendredi après-midi qu'elle fonctionne plus sans l'avoir retouché j'y comprends rien de plus qu'elle marche sur le pc où je l'ai développé mais pas sur les autres postes merci tout le monde pour votre aide je vais regardé du côté de F2

merci le crabe j'ai essayé avec le framework 4 et le problème persiste ,autocad ne reconnait pas ma commande après le chargement de ma dll pour être précis commande introuvable "GCSPIRIT" puis nil

j'ai essayé dans le répertoire C:\WINDOWS\Microsoft.NET\Framework\v3.5 la commande suivante caspol.exe -machine -quiet -addgroup 1 - url "file://O/Programme_VBA_Autocad/Programmes/GC Spirit/*" FullTrust l'invité de commande me dit 'caspol.exe' is not recognized as an internal or external command, operable program or batch file

ok j'essairai ca demain merci gile, je te tiens au courant mais j'aimerais savoir pourquoi elle ne marche plus alors qu'elle fonctionnait avant, de plus je crois que l'administrateur à autoriser les droits mais vu qu'il est en vacance je pourrais pas lui demandé

merci gile la dll GCSpirit est sur un serveur je dois expliquer que la commande de mon menu personnalisé marchais avant, ya que depuis aujourd'hui qu'elle ne marche plus sur la pluplart des poste à part sur le poste où je l'ai développée, ca fait plus de deux mois qu'elle marchait quand je fais netload et choisis la dll elle se charge (du moins je pense) c'est quand je fais gcspirit pour l'appeller que là autocad me dit commande introuvable alors que j'ai vérifié dans la code c'est mygroup, gcspirit, gcspiritlocal la plateforme est du 32 bits sur tout les postes de l'entreprise sous windows xp avec le framework 3.5 sp1 désolé je peux pas te répondre pour les autres question car je suis chez moi, je vous donnerais plus de détails demain

personne a une idée ???

merci patrick j'ai essayé (findfile "O:/Programme_VBA_Autocad/Programmes/GC Spirit/GCSpirit.dll") Autocad me met pas nil le problème doit être plus subtil car j'ai essayé sur un autre poste et la ddl se charge OO, franchement j'y comprends rien si vous avez une autre idée, je suis preneur merci encore

s'il vous plait c'est urgent

Bonjour tout le monde !!! J'ai un petit soucis depuis aujourd'hui, j'ai créé un menu où je lance toutes mes dll, mais quanf j'essaie d'en lancer une il me dit commande introuvable voilà un exemple d'une ligne du menu // // Menu personnalisé pour l'appel des macros : // ***MENUGROUP=VBMacros ***POP1 **Macros ID_Macros [&Macros] ID_Macros1 [GC "SPIRIT"](command "netload" "O:/Programme_VBA_Autocad/Programmes/GC Spirit/GCSpirit.dll" "gcspirit"); Avez-vous une idée d'ou ca peut venir ??? Merci d'avance

Ce code ne marche pas quand je rajoute une autre ligne pour lancer un autre programme ID_Macros1 [TEST] (command "netload" "C:/Documents and Settings/FRNEGNS/My Documents/Visual Studio 2010/Projects/AutoCAD VB plug-in1/AutoCAD VB plug-in1/bin/Release/AutoCAD VB plug-in1.dll" "mycommand"); Quelqu'un a une idée pour résoudre ce problème ???

Merci ca marche du tonnerre Voilà ce que j'ai fait // // Menu personnalisé pour l'appel des macros : // ***MENUGROUP=ESSAI ***POP1 **Macros ID_Macros [&ESSAI] ID_Macros1 [TEST] (command "netload" "C:/Documents and Settings/FRNEGNS/My Documents/Visual Studio 2010/Projects/AutoCAD VB plug-in1/AutoCAD VB plug-in1/bin/Release/AutoCAD VB plug-in1.dll" "mycommand");

merci Patrick pour l'intérêt que tu portes à mon problème j'ai essayé netload et il me renvoie une erreur (netload "C:/Documents and Settings/FRNEGNS/My Documents/Visual Studio 2010/Projects/AutoCAD VB plug-in1/AutoCAD VB plug-in1/bin/Release/AutoCAD VB plug-in1.dll") ; erreur: no function definition: NETLOAD voilà ce que j'ai fait // // Menu personnalisé pour l'appel des macros : // ***MENUGROUP=ESSAI ***POP1 **Macros ID_Macros [&ESSAI] ID_Macros1 [TEST] (netload "C:/Documents and Settings/FRNEGNS/My Documents/Visual Studio 2010/Projects/AutoCAD VB plug-in1/AutoCAD VB plug-in1/bin/Release/AutoCAD VB plug-in1.dll");

Bonjour, Voilà mon problème, je crée des DLL en VB.NET et j'aimerais les lancer depuis un menu personnalisé dans AutoCad mais AutoCad me renvoie toujours NIL, je ne sais plus quoi faire. Voici mon code // // Menu personnalisé pour l'appel des macros : // ***MENUGROUP=ESSAI ***POP1 **Macros ID_Macros [&ESSAI] ID_Macros1 [TEST] (startapp "C:/Documents and Settings/FRNEGNS/My Documents/Visual Studio 2010/Projects/AutoCAD VB plug-in1/AutoCAD VB plug-in1/bin/Release/AutoCAD VB plug-in1.dll"); Merci d'avance