inventor学徒服务器Apprentice课件

UsingApprenticeGaryWassellDeveloperTechnicalServicesAgendaApprenticeDefinitionApprenticeFunctionalitiesGuidelinesApprenticevs.Inventor:DifferencesSavingFileswithApprenticeApprenticeInventorDataInventorApplicationClientAppAdd-InVBAApprenticeAdd-InClientAppApprenticeServerApprenticeisanActiveXcomponent.RunsIn-processwiththeclientusingit.ApprenticeServerprovidesasubsetoftheInventorAPI.Canbeusedstandalone(doesn’trequireInventor).Providedatnocost(installedaspartofInventorView).ApprenticecanbeveryefficientforcertaintasksincomparisonofconnectingtoInventorout-of-process.ApprenticeFunctionalitiesProvidesread-onlyaccessto:AssemblystructureB-RepDrawingsheetsandviews(limitedaccess)iPartsiAssembliesBOMProvidesread/writeaccesstoiProperties,attributes,andfilereferences.Apprentice-GuidelinesShouldNOTbeusedin-processtoInventor.NotinanAdd-In(exetypeofAdd-Inisok).NotthroughInventor’sVBA.PriortoInventor11,Apprenticewastheonlywaytoeditfilereferences.(DesignAssistantisbuildontopofApprentice.)Priorto2008,theApprenticefunctionalitieswereprovidedinitsowntypelibrary.NowAutodeskInventortypelibrarycontainsalloftheApprenticefunctionalityAddareferencetoInventor.InteropforanApprenticeproject.Apprenticevs.Inventor:differencesInstantiatedusing“new

ApprenticeServerComponent”NoDocumentscollectioninApprenticeDocumentobject:ApprenticeServerDocument(*.ipt&*.iam)ApprenticeServerDrawingDocument(*.idw)Apprenticecannotsaveafilefromapreviousversion,i.e.thatisnotmigrated.YouwillneedtomigratethefilepriortosaveitwithApprentice:Tomigrateafile,openitwithInventor,saveitandcloseit.Apprentice-ExamplePrivate

Sub

ApprenticeSample()

'CreateApprentice.

Dim

oApprenticeAs

ApprenticeServerComponentoApprentice=New

ApprenticeServerComponent

'Openadocument.

Dim

oDocAs

ApprenticeServerDocumentoDoc=oApprentice.Open("C:\Temp\Part.ipt")MsgBox("Opened:"

&oDoc.DisplayName)End

SubSavingFileswithApprenticeUseFlushToFileiftheiPropertiesONLYweremodified:moreefficient,sincethedocumentisnotwrittenback.

Private

Sub

SetProperty(ByVal

authorAs

String)

Dim

oApprenticeDocAs

ApprenticeServerDocumentoApprenticeDoc=mApprenticeServer.Open("c:\Temp\MyPart.ipt")

'Get"InventorSummaryInformation"PropertySet

Dim

oPropertySetAsPropertySetoPropertySet=oApprenticeDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}")

'GetAuthorproperty

Dim

oPropertyAs

Inventor.Property=oPropertySet.Item("Author")

oProperty.Value=authoroApprenticeDoc.PropertySets.FlushToFile()oApprenticeDoc.Close()End

SubSavingFileswithApprenticeForanyotherchangeuseFileSaveAsobject:

Private

Sub

SaveFileSample()

Dim

oApprenticeAs

New

ApprenticeServerComponent

'Openadocument.

Dim

oDocAs

ApprenticeServerDocumentoDoc=oApprentice.Open("C:\Temp\Assembly1.iam")

'Dosomechange:iPropertiesandattributesand/orfilereferences.

'SetareferencetotheFileSaveAsobject.

Dim

oFileSaveAsAs

FileSaveA