Civil 3D表面处理帮助！

(vl-load-com)
(setq AcadObject (vlax-get-acad-object))
(setq ActDoc (vla-get-activedocument AcadObject))
;;
;;
;; CODE TO CREATE SELECTION SET FL1 FOR EXTERIOR FEATURE LINE
;;
;;
Sub Ch4_CreateSelectionSet()
        Dim selectionset1 as AcadSelectionSet
        Set selectionset1 = ThisDrawing.SelectionSets.Add("FL1")
        selectionset1.SelectOnScreen
End Sub
;;
;;
;; CODE TO CREATE SELECTION SET FL2 FOR INTERIOR FEATURE LINE
;;
;;
Sub Ch4_CreateSelectionSet()
        Dim selectionset2 as AcadSelectionSet
        Set selectionset2 = ThisDrawing.Selectionsets.Add("FL2")
        selectionset2.SelectOnScreen 
End Sub
;; CODE TO CREATE NEW SURFACE:
;;
;;
Dim TinSurface As AeccTinSurface                
Dim Tindata as New AeccTinCreationData
TinData.Name = "Bldg Test"                                         ;SET NAME OF SURFACE TO "BLDG"
;; need to add counter system for surface #
TinData.Description = "Building Surface from CPP Building datum" ;SET SURFACE DESCRIPTION
TinData.Layer = "Surface Bldgs"                                        ;SET SURFACE LAYER
TinData.BaseLayer = "Surface Bldgs"                                ;NOT SURE WHAT THIS DOES
TinData.Style = "Building Surfaces"                                ;SET SURFACE STYLE
Set Tinsurface = AeccDocument.Surfaces.AddTinSurface(TinData)        ;NOT SURE WHAT THIS DOES
;;
;;
;; CODE TO ADD THE EXTERIOR FEATURE LINE (FL1) AS A NON-DESTRUCTIVE BREAKLINE CODE TO THE SURFACE
;;
;;
set 3DPoly = AeccDocument.Database.Modelspace.Add3DPoly(dPoints)
3dPoly.Closed = False
Dim Breakline As AeCCSurfaceBreakline
Dim vBLines as Variant
Dim EntityArray(0) as AcadEntity
Set EntityArray(0) = AeccDocument.Database.ModelSpace.Add3DPoly(dPoints)
Set Breakline = TinSurface.Breaklines.AddNonDestructiveBreakline(EntityArray,"Exterior Non-Destructive Breakline", 1#)
;;
;;
;; ADD THE INTERIOR FEATURE LINE (FL2) AS A STANDARD BREAKLINE TO THE SURFACE(S1)
;;
;;
set 3DPoly = AeccDocument.Database.Modelspace.Add3DPoly(dPoints)
3dPoly.Closed = False
Dim Breakline As AeCCSurfaceBreakline
Dim vBLines as Variant
Dim EntityArray(0) as AcadEntity
Set EntityArray(0) = AeccDocument.Database.Modelspace.Add3DPoly
Set Breakline = TinSurface.Breaklines.AddStandardBreakline(EntityArray, "Exterior Boundary", 1#)
Dim EntityArray(0) as AcadEntity
Set EntityArray(0) = AeccDocument.Database.ModelSpace.Add3DPoly(dPoints)
Set Breakline = TinSurface.Breaklines.AddStandardBreakline(EntityArray, "Interior Breakline", 1#)
;;
;;
;; ADD THE EXTERIOR FEATURE LINE (FL1) AS A NON-DESTRUCTIVE BOUNDARY TO THE SURFACE(S1)
;;
;;
Dim Poly As AcadPolyline
Set Poly = AeccDocument.Database.ModelSpace.AddPolyLine(dPoints)
Poly.Closed = True
Dim sName as String
sName = "Surface Boundary"
Dim NewBoundary as AeccSurfaceBoundary
Set NewBoundary = Surface.Boundaries.Add(Poly, Sname, aeccBoundaryOuter, True, 0.5)

Sub test()
Dim oApp As AeccApplication
Dim oDoc As AeccDocument
Dim oSurfs As AeccSurfaces
Set oApp = Application.GetInterfaceObject("AeccXUiLand.AeccApplication.5.0")
Set oDoc = oApp.ActiveDocument
Set oSurfs = oDoc.Surfaces
Dim Tindata As New AeccTinCreationData
Tindata.Description = "Building Surface from CPP Building datum" 'SET SURFACE DESCRIPTION
Tindata.Layer = "Surface Bldgs"                 'SET SURFACE LAYER
Tindata.BaseLayer = "Surface Bldgs"             'NOT SURE WHAT THIS DOES
Tindata.Style = "Building Surfaces"             'SET SURFACE STYLE
Dim osurf As AeccSurface
Dim iCount As Integer
For Each osurf In oSurfs
    If osurf.Name Like "Bldg ###" Then
        Dim iTmp As Integer
        iTmp = CInt(Right(osurf.Name, 3))
        If iTmp > iCount Then iCount = iTmp
    End If
Next
Dim sCurName As String
Dim oEnt1 As AcadEntity
Dim oEnt2 As AcadEntity
Dim vPick As Variant
Dim oPoly1 As Acad3DPolyline
Dim opoly2 As Acad3DPolyline
Dim oEnts(0) As AcadEntity
Do Until Err.Number  0
    iCount = iCount + 1
    sCurName = "Bldg " & Format(iCount, "000")
    On Error GoTo ResumeHere
    ThisDrawing.Utility.GetEntity oEnt1, vPick, vbCr & "Select inside pline: "
    Set oPoly1 = oEnt1
    ThisDrawing.Utility.GetEntity oEnt2, vPick, vbCr & "Select outside pline: "
    Set opoly2 = oEnt2
    Tindata.Name = sCurName
    Dim oTinSurf As AeccTinSurface
    Set oTinSurf = oSurfs.AddTinSurface(Tindata)
    Set oEnts(0) = oPoly1
    oTinSurf.Breaklines.AddStandardBreakline oEnts, "Interior Breakline", 0.5
    Set oEnts(0) = opoly2
    oTinSurf.Breaklines.AddStandardBreakline oEnts, "Exterior Breakline", 0.5
    oTinSurf.Boundaries.Add opoly2, "Exterior Boundary", aeccBoundaryOuter, True, 0.5
ResumeHere:
'If Err Then MsgBox Err.Description ''uncomment to test for the error thrown
Loop
End Sub

Set oApp = Application.GetInterfaceObject("AeccXUiLand.AeccApplication.5.0")

Set oApp = Application.GetInterfaceObject("AeccXUiLand.AeccApplication.5.0")

Set oApp = Application.GetInterfaceObject("AeccXUiLand.AeccApplication.6.0")