挤出一个区域-需要一些h

                       
 Dim acDBObjColl As DBObjectCollection = New DBObjectCollection()
 Dim myRegionColl As DBObjectCollection = New DBObjectCollection()
 Dim acRegion As Region ' = CType(myRegionColl(0), Region)
                       
 Dim solidObj As Solid3d = New Solid3d()
 ' Create a line 
 acLine = New Line(New Point3d(xStart, yStart, zStart), _
                          New Point3d(xClose, yClose, zClose))
 acLine.SetDatabaseDefaults()
 acBlkTblRec.AppendEntity(acLine)
 acTrans.AddNewlyCreatedDBObject(acLine, True)
 acDBObjColl.Add(acLine)
 ' make reagion for each layer
 myRegionColl = Region.CreateFromCurves(acDBObjColl)
 ' Add the new region object to the block table record and the transaction
 acRegion = CType(myRegionColl(0), Region)
 acRegion.ColorIndex = 240 ' = redish
 acBlkTblRec.AppendEntity(acRegion)
 acTrans.AddNewlyCreatedDBObject(acRegion, True)
 'solidObj.SetDatabaseDefaults()
 'solidObj.Extrude(CType(myRegionColl(0), Region), 1.0, 0.0)
 solidObj.Extrude(acRegion, 1.0, 0.0)
 ' Add the new object to the block table record and the transaction
 'acBlkTblRec.AppendEntity(solidObj)
 ' end make region

    <CommandMethod("ExLines")> _
Public Sub ExtrudeLine()
       Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
       Dim db As Database = ed.Document.Database
       Dim typeValue() As TypedValue = {New TypedValue(0, "LINE")}
       Dim selFilter As SelectionFilter = New SelectionFilter(typeValue)
       Dim selResult As PromptSelectionResult = ed.GetSelection(selFilter)
       Dim ssLine As SelectionSet = selResult.Value
       Dim oids() As ObjectId = ssLine.GetObjectIds
       Using tran As Transaction = db.TransactionManager.StartTransaction
           Dim oid As ObjectId
           Dim objcoll As DBObjectCollection = New DBObjectCollection()
           For Each oid In oids
               objcoll.Add(CType(tran.GetObject(oid, OpenMode.ForRead), Line))
           Next
           Dim regcoll As New DBObjectCollection
           Try
               regcoll = Region.CreateFromCurves(objcoll)
               Dim sol As Solid3d = New Solid3d()
               sol.Extrude(CType(regcoll(0), Region), 1.0, 0.0)
               Dim btr As BlockTableRecord = CType(tran.GetObject(db.CurrentSpaceId, OpenMode.ForWrite), BlockTableRecord)
               sol.SetDatabaseDefaults()
               btr.AppendEntity(sol)
               tran.AddNewlyCreatedDBObject(sol, True)
           Catch
               ed.WriteMessage(vbCr & "General modeling failure!")
           Finally
               regcoll.Dispose()
               tran.Commit()
           End Try
       End Using
   End Sub