sam-123

Finalement j’ai finie par trouver :red: Il fallait mettre la variable « System.Globalization.CultureInfo » sur « en-US »

Désole, Avec ca je ne suis pas plus avancé ! :question:

Oh !, ca me conviendrais parfaitement si ca ne bloque pas !!! Je n’arrive pas à voir ce qui ne fonctionnent pas dans cette procédure, ca bloque sur la ligne n°4 (l’ouverture du fichier) MyXlClasseur = MyXlApp.Workbooks.Open("C:\Test.xls") [Edité le 12/4/2010 par sam-123]

Je ne comprends pas très bien, pourquoi on ne ferait pas simplement ceci Dim MyXlApp As New Excel.Application Dim MyXlClasseur As Excel.Workbook Dim MyXlFeuille As Excel.Worksheet MyXlClasseur = MyXlApp.Workbooks.Open("C:\Test.xls") MyXlFeuille = MyXlClasseur.ActiveSheet MyXlFeuille.Cells(1, 1) = "Test" . . . . . . Et naturellement on fermerait manuellement

Salut, Si je dois transmettre en ta classe en vbnet avant la fin de la journée j’aurais attrapé des cheveux gris. :o Je pensais à quelque chose de plus simple : ;) Dim MyXlApp = New Excel._ExcelApplication Dim MyXlClasseur = MyXlApp.Workbooks Dim MyXlFeuille = MyXlApp.Worksheets MyXlClasseur = MyXlApp.Workbooks.Open("C:\\Test.xls", Nothing, Nothing, Nothing, Nothing, Nothing, _ Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing) MyXlFeuille = MyXlApp.ActiveSheet

Bonjour Je voudrais commencer l’exportation des blocks vers un fichier Excel J’ai rajouter la reference : « Microsoft Excel Object Library 1.6 » Donc j’ai commencé à écrire la procédure de base Quand je lance ma commande, Je reçois une erreur (Impossible de créer le composant ActiveX) En vba on devais jouer avec le Resume Next: On Error Resume Next Set Excelapp = GetObject(, "Excel.Application") If Err <> 0 Then Err.Clear Set Excelapp = CreateObject("Excel.Application") End If En Vb .Net doit-on faire de même ? Ma Procedure : _ Public Sub MyEXcel() Dim MyDWG As Autodesk.AutoCAD.ApplicationServices.Document MyDWG = Application.DocumentManager.MdiActiveDocument Dim MyDb As Database MyDb = MyDWG.Database Dim MyXlApp As Microsoft.Office.Interop.Excel.Application Dim MyXlFeuille As Microsoft.Office.Interop.Excel.Worksheet MyXlApp = GetObject(, "Excel.Application") MyXlFeuille = MyXlApp.ActiveSheet Using LockDoc As DocumentLock = MyDWG.LockDocument() Using MyTrans As Transaction = MyDb.TransactionManager.StartTransaction MyXlFeuille.Cells(1, 1) = "Ligne 1" MyXlFeuille.Cells(2, 1) = "Ligne 2" MyXlFeuille.Cells(3, 1) = "Ligne 3" MyTrans.Commit() End Using End Using End Sub

Bonjour a tous, Voila je vais essayer d’être claire (ce n’est pas souvent le cas !). Voila quand j’attache les plans en references je mets tous le contenu en Layer « 0 » et le reste en « ByLayer » pour qu’il puisse prendre les propriétés de mon layer d’accueille (jusque la je ne vous apprends rien) Et pour me facilite la tache j’ai commencé une procédure qui (j’espérais) ferais le travail Pour les Entity pas de problèmes Pour les blocks simples non plus Mais une fois qu’il y a un Block dans un autre (un Block qui en contient un autre) la ca pose problème Je pensait y accédais par « GetSubentity » mais ca bloque pour la énième fois. Si quelqu’un peux m’aider Ci-dessous la procédure : _ Public Sub BlockEntity() Dim MyDWG As Autodesk.AutoCAD.ApplicationServices.Document MyDWG = Application.DocumentManager.MdiActiveDocument Dim MyDb As Autodesk.AutoCAD.DatabaseServices.Database MyDb = MyDWG.Database Dim MySel As Autodesk.AutoCAD.EditorInput.PromptSelectionResult Dim MySelObj As Autodesk.AutoCAD.EditorInput.SelectedObject Dim FirstEnt As Autodesk.AutoCAD.DatabaseServices.Entity Dim Cnt As Long MySel = MyDWG.Editor.GetSelection() If IsNothing(MySel.Value) = False Then Using LockDoc As DocumentLock = MyDWG.LockDocument() Using MyTrans As Transaction = MyDb.TransactionManager.StartTransaction For Cnt = 1 To MySel.Value.Count MySelObj = MySel.Value.Item(Cnt - 1) FirstEnt = MySelObj.ObjectId.GetObject(Autodesk.AutoCAD.DatabaseServices.OpenMode.ForWrite) Ici je veux accédais aux entités du block If TypeOf FirstEnt Is BlockReference Then For Each Entity In MySelObj.GetSubentities FirstEnt.UpgradeOpen() FirstEnt.Layer = "0" FirstEnt.Color = Autodesk.AutoCAD.Colors.Color.FromColorIndex(Autodesk.AutoCAD.Colors.ColorMethod.ByAci, 256) FirstEnt.Linetype = "byLayer" Next mais ça ne fonctionne pas Else FirstEnt.UpgradeOpen() FirstEnt.Layer = "0" FirstEnt.Color = Autodesk.AutoCAD.Colors.Color.FromColorIndex(Autodesk.AutoCAD.Colors.ColorMethod.ByAci, 256) FirstEnt.Linetype = "byLayer" End If Next MyTrans.Commit() MyTrans.Dispose() End Using End Using End If End Sub

Oups, j’ai répondu trop vite Merci, gile

Donc si j’ai bien compris dans mon cas ca sera cela ? app.ActiveDocument.SendCommand("(load \"C:\Resources\Vba-Lisp-Dcl\Blindflange.lsp\") ") Parce que même écris comme cela il ne l’accepte pas ?

Salut, gile Le problème c’est les guillemets dans ta procédure On ne peut pas avoir des guillemets dans des guillemets Ou c’es "etc." et "etc." Mais cela ça bloque a tous les coups "etc. "etc."" Ou alors c’est moi qui dis des bêtises encore une fois !

Salut a tous, Je pensais que pour un loadé un programme lisp il fallait étulisé la méthode « SendScommand » Est-ce que je me trompe ? (parce que ca n’a pas l’air de fonctionné!) :mad:

merci,gile ;)

Bonjour, J’ai été quelques temps absent du forum (trop de boulot !t) Est-ce que quelqu’un aurais la gentillesse de m’explique le comment et pourquoi du « Start.scr » qui se trouve dans l’explorateur Visual studio. Merci d’avance

Bonjour Quelqu’un pourrait-il me dire comment faire pour modifier le block d’un » Leader » En vba comme référence il y avait la propriété : Leader.ArrowheadBlock = NomduBlock En Vbnet je ne trouve pas cette propriété ? . . . Dim MyFleche As Leader = New Leader() MyFleche.SetDatabaseDefaults() MyFleche.AppendVertex(New Point3d(PtInst(0), PtInst(1), PtInst(2))) MyFleche.AppendVertex(New Point3d(PtEnd(0), PtEnd(1), PtEnd(2))) MyFleche.HasArrowHead = True RecTablEntity.AppendEntity(MyFleche) MyTrans.AddNewlyCreatedDBObject(MyFleche, True) . . .

Merci, Grace a l’exemple j’ai pu règle mon problème :cool: