Is it possible to get all information from Fit Curve Polyline via VBA?

michellem — Tue, 29 Aug 2023 19:19:37 GMT

Hello;

As part of a program to improve on the native process of importing AutoCad entities into Revit, I need to extract the necessary information needed by Revit from a 2d Polyline that has been edited using the Fit option of Pedit. I am using VBA/COM instead of .Net because my program is working in Revit's process space and not Autocads.

The specific polyline in question, is a 2d Polyline where EntityName = AcDb2dPolyline and where Type = acFitCurvePoly. With this type of polyline, a series of arcs are fitted between the vertices used to create the polyline. The user could have further modified the polyline by specifying tangents at the vertices. GetBulge/SetBulge does not apply to this type of polyline.

So, can I get via VBA, enough info to recreate the arcs that Autocad created when applying the FitCurve process to the polyline? For example, a list of StartPt, MidPt, and Endpt for each arc would work.

Sincerely;

Michelle

Re: Is it possible to get all information from Fit Curve Polyline via VBA?

Ray-Sync — Wed, 06 Sep 2023 18:02:03 GMT

@michellem Hi. My english is not so good but i want to show you this code. Maybe it could help you.

Private Sub CommandButton1_Click() Dim pl As AcadLWPolyline Dim pt As Variant Dim arc As AcadArc Dim i As Integer UserForm1.Hide ThisDrawing.Utility.GetEntity pl, pt, " select your polyline" pt = pl.Explode For i = 0 To (UBound(pl.Coordinates) + 1) / 3 + 5 Step 2 On Error Resume Next Set arc = pt(i + 1) ThisDrawing.ModelSpace.AddLine arc.StartPoint, arc.EndPoint ThisDrawing.ModelSpace.AddCircle arc.Center, 5 Next i End Sub

You can use a bucle for other curves. I used that code in there:

topic Re: Is it possible to get all information from Fit Curve Polyline via VBA? in VBA Forum

Is it possible to get all information from Fit Curve Polyline via VBA?

Re: Is it possible to get all information from Fit Curve Polyline via VBA?