示例

Sub webpublish()

Dim objApp As SolidEdgeFramework.Application

Dim objDoc As SolidEdgeAssembly.AssemblyDocument

' Dim objModel As SolidEdgeAssembly.Model

Dim objModelDoc As SolidEdgeAssembly.AssemblyDocument

TESTFILE = "c:\My Documents\Drawing Files\test api\test.asm"

' Report errors

Const PI = 3.14159265358979

' Create/get the application with specific settings

On Error Resume Next

objApp.DisplayAlerts = False

Set objApp = GetObject(, "SolidEdge.AssemblyDocument")

If Err Then

Err.Clear

Set objApp = CreateObject("SolidEdge.Application")

Set objDoc = objApp.Documents.Add("SolidEdge.AssemblyDocument")

objApp.Visible = True

Else

Set objDoc = objApp.ActiveDocument

End If

' Close the part document

Call objDoc.Close

' Open a Testcase

Set objDoc = objApp.Documents.Open(FileName:=TESTFILE)

' Get the model object in the test case

Dim wp As publishLib.SEWebPublisher

Set wp = CreateObject("Publish.SEWebPublisher")

wp.PublishFilename = "test.html"

wp.PublishTemplate = ""

wp.PublishDirectory = "c:\My Documents\Drawing Files\test api"

wp.PublishPageStyle = styleHeaderViewerRight

wp.PublishTitle = "My Test Page"

wp.PublishAuthor = "Joe Engineer"

wp.PublishDate = "Jan. 1, 2000"

wp.PublishAttribute("Company") = "Big Company, Inc."

wp.Generate (1)

Call objDoc.Close

Call objApp.Quit

' USER DISPLAY

' Release objects

Set objApp = Nothing

Set objDoc = Nothing

Set objModel = Nothing

Set objModelDoc = Nothing

End Sub

---