Dim ArrayEnt As Autodesk.AutoCAD.DatabaseServices.Entity() = Nothing
ReDim ArrayEnt(1)
'строим 2 3dполилинии
Dim pts1 As Point3dCollection = New Point3dCollection()
pts1.Add(New Point3d(pt1X, pt1y, pt1z))
pts1.Add(New Point3d(pt2X, pt2y, pt2z))
pts1.Add(New Point3d(pt6X, pt6y, pt6z))
pts1.Add(New Point3d(pt5X, pt5y, pt5z))
Using poly1 As Polyline3d = New Polyline3d(Poly3dType.SimplePoly, pts1, True)
acBlkTblRec.AppendEntity(poly1)
acTrans.AddNewlyCreatedDBObject(poly1, True)
ArrayEnt(1) = poly1
End Using
Dim PolyPod1 As Polyline3d = Nothing
Dim pts2 As Point3dCollection = New Point3dCollection()
pts2.Add(New Point3d(pt3X, pt3y, pt3z))
pts2.Add(New Point3d(pt4X, pt4y, pt4z))
pts2.Add(New Point3d(pt8X, pt8y, pt8z))
pts2.Add(New Point3d(pt7X, pt7y, pt7z))
Using poly2 As Polyline3d = New Polyline3d(Poly3dType.SimplePoly, pts2, True)
acBlkTblRec.AppendEntity(poly2)
acTrans.AddNewlyCreatedDBObject(poly2, True)
ArrayEnt(0) = poly2
End Using
Dim sol3d As Solid3d = New Solid3d()
Dim options As New LoftOptions
sol3d.CreateLoftedSolid(ArrayEnt, New Autodesk.AutoCAD.DatabaseServices.Entity() {}, Nothing, options)
acBlkTblRec.AppendEntity(sol3d)
acTrans.AddNewlyCreatedDBObject(sol3d, True)