sam-123

Oui j’ai écris avec ForWrite Mais c’est le même problème Dim LtypTbl As LinetypeTable = myTrans.GetObject(MyDb.LinetypeTableId, OpenMode.ForWrite)

Voilà le code un peu raccourcis Mais il donne toujours une erreur au n°4 Private Sub Cmdltgen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLTGen.Click 1[ Dim MyDoc As Document = Application.DocumentManager.MdiActiveDocument$] 2[ Dim MyDb As Database = MyDoc.Database] 3[Dim myTrans As Transaction = MyDb.TransactionManager.StartTransaction()] 4[Dim LtypTbl As LinetypeTable = myTrans.GetObject(MyDb.LinetypeTableId, OpenMode.ForRead)] 5[Dim Lt1 As LinetypeTableRecord = New LinetypeTableRecord] 6[Lt1.Name = "Center12"] 7[Lt1.Comments = "Center12"] 8[Lt1.NumDashes = 4] 9[Lt1.SetDashLengthAt(0, 1.25)] 10[Lt1.SetDashLengthAt(1, -0.25)] 11[Lt1.SetDashLengthAt(2, 0.25)] 12[Lt1.SetDashLengthAt(3, -0.25)] 13[Lt1.PatternLength = 0.2] 14[LtypTbl.Add(Lt1)] 15[MYTrans.AddNewlyCreatedDBObject(Lt1, True)] 16[MYTrans.Commit()] End Sub

Bonjour aux acadiens, acadiennes Voilà après quelque procédures crées et exécuter tous fonctionné très bien. Alors j’ai commencé à définir mes types de lignes. En les créant dans une fonction et on appelant la fonction par la ligne de commande pas de problème Mais en les appelants par un bouton_poussoir ca cloche ! Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click Dim myDWG As Autodesk.AutoCAD.ApplicationServices.Document Dim myDB As Autodesk.AutoCAD.DatabaseServices.Database Dim myTransMan As Autodesk.AutoCAD.DatabaseServices.TransactionManager Dim myTrans As Autodesk.AutoCAD.DatabaseServices.Transaction myDWG = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument myDB = myDWG.Database myTransMan = myDWG.TransactionManager myTrans = myTransMan.StartTransaction Dim myLT As Autodesk.AutoCAD.DatabaseServices.LinetypeTable ''’’ à la ligne suivante il dit qu’il y a une erreur myLT = myDB.LinetypeTableId.GetObject(Autodesk.AutoCAD.DatabaseServices.OpenMode.ForWrite) Dim ltypTbl As LinetypeTable = myTrans.GetObject(myDB.LinetypeTableId, OpenMode.ForRead, False) Dim Lt1 As Autodesk.AutoCAD.DatabaseServices.LinetypeTableRecord Lt1 = New Autodesk.AutoCAD.DatabaseServices.LinetypeTableRecord Lt1.Name = "MonTypedeLigne" Lt1.Comments = "MonTypedeLigne" Lt1.NumDashes = 4 Lt1.SetDashLengthAt(0, 1.25) Lt1.SetDashLengthAt(1, -0.25) Lt1.SetDashLengthAt(2, 0.25) Lt1.SetDashLengthAt(3, -0.25) Lt1.PatternLength = 0.2 myLT.Add(Lt1) myTrans.AddNewlyCreatedDBObject(Lt1, True) myTrans.Commit() myTrans.Dispose() myTransMan.Dispose() end sub

Bonjour Gile, Je te remercie beaucoup d’avoir pu prendre quelques minutes de ton temps pour me répondre Effectivement tu as raison ça différencie un peux du VBA Après quelques remaniements de mes procédures ça fonction bien. Merci encore. :D

Bonjour a tous et a toutes, Récemment j’ai commencé a immigre du VBA vers le .Net (Visual Studio 2008) Mais les approche de base varie un peux Et je me trouve un peux interrompu dans mon élan par des futilités Si il ya parmi vous un volontaire pour m’éclairée ca serait gentil de ca part. Voilà j’ai un Item classe1 et un autre Form1 Je voudrais simplement appeler ma procédure en Double Click sur ma forme En VbA il suffisait de faire précède la procédure de call Mais en .NET je bloque ? Ex : Item classe1 Public classe classe1 Private sub MaProcedure() a… b… c… End sub End classe Item Form1 Public classe Form1 Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick Call MaProcedure() End Sub End classe