Message 1 of 2
Extrude polyline[s]
Not applicable
06-26-2015
10:11 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi there, I am having trouble extruding 4 closed polylines. I have tried to alter the example in the dot net guide but I can only work out how to do one at a time.
My code is below:
Dim soldBg As Solid3d = New Solid3d
soldBg.RecordHistory = True
soldBg.CreateExtrudedSolid(acRegion2, New Vector3d(0, 0, 2), New SweepOptions())
soldBg.ColorIndex = 1
soldBg.TransformBy(Matrix3d.Displacement(New Point3d(ins.X + 13.5779479, ins.Y + 8.59827139, ins.Z) - Point3d.Origin))
OGbtr.AppendEntity(soldBg)
acTrans.AddNewlyCreatedDBObject(soldBg, True)
Thanks,
Martin.