tamu

Merci pour ton feedback. Effectivement le résultat est différent entre les 2 techniques. Je cherche encore dans la direction du LockDocument & Co !

Bonjour Gile, Un grand merci pour ton aide ! La formule est magnifiquement efficacement ! Le test est positif dans un dessin contenant uniquement un seul calque a traiter. Malheureusement j'obtient des erreurs de constructions (surface mal détectées) lorsque je travail sur un dessin avec de multiples calques (objets divers). J'ai filtré le calque concerné dans la boucle "foreach (ObjectId id in curSpace)" mais apparement cela ne suffit pas. As-tu une idée du problème ? Voici le code complété : (AutoCAD 2012 +) Try Dim db = HostApplicationServices.WorkingDatabase Dim curveClass = RXClass.GetClass(GetType(Curve)) Using tr = db.TransactionManager.StartTransaction() Dim curSpace = DirectCast(tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite), BlockTableRecord) Dim curves = New DBObjectCollection() For Each id As ObjectId In curSpace If id.ObjectClass.IsDerivedFrom(curveClass) Then Dim curve = DirectCast(tr.GetObject(id, OpenMode.ForRead), Curve) If curve.Layer = LayerName Then curves.Add(curve) End If Next If curves.Count <> 0 Then For Each dbObj As DBObject In Region.CreateFromCurves(curves) Dim region1 = DirectCast(dbObj, Region) region1.SetDatabaseDefaults() curSpace.AppendEntity(region1) tr.AddNewlyCreatedDBObject(region1, True) Next End If tr.Commit() End Using Catch ex As Exception MsgBox("CreateRegionsForAll : " & ex.Message) End Try

Bonjour Voici un bout de code : Public Sub CreateRegionsForAll() CommandLine.CommandC("_.REGION", "_ALL", "") End Sub J ai 1000 ou 10000 ou 100000 lignes parfaitement connectées (representant du cadastre) et donc tout se passe bien ! MAIS la commande REGION est très lente ! Y a t il un moyen d aller beaucoup plus vite pour générer les polygones clos ? Merci d avance, Tamu

Bonjour, J'ai en gros la même question...et j'ai pas trouvé mon bonheur sur autodesk (surement à cause de mon anglais primaire) y a t-il une piste en VBA !? j'ai déjà chargé dans une "Collection" mes objets (il y a que des block) mais je ne sais pas comment continuer. (j'ai essayé plusieurs piste mais j'ai que des bugs) Un grand merci d'avance! For Each Objekt In ThisDrawing.ModelSpace If TypeName(Objekt) = "IAcadBlockReference" Then If Mid(Objekt.name, 1, 4) = "CAD_" Then BlockCol.Add Objekt End If End If Next BlockCol.??? [Edité le 14/4/2008 par tamu]