ilogic Help Please BOM Work Features

[Anonymous]

I have the following code and use them with an event Trigger before save.

I am wondering if anyone can help me piece together ilogic that I can do the Other to Both Parts & Assemblies regardless of the BOM

So what I need is ALL the visiblity of WORK FEATURES OFF and 'ZOOM to EXTENTS and BOM REORDER BY PARTNUMBER

_____________________________________________________

i = MessageBox.Show("Reorder the BOM by PartNumber", "My iLogic Dialog", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)

'sort parts list
On Error Resume Next
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument


Dim oPartsList1 As PartsList
oPartsList1 = oDrawDoc.ActiveSheet.PartsLists.Item(1)
'If oPartsList1 Is Nothing Then Resume Next


oPartsList1.Sort("PART NUMBER")
oPartsList1.Renumber
_______________________________________________

'zoom Extents Code

ThisApplication.CommandManager.ControlDefinitions.Item("AppIsometricViewCmd").Execute

'BOM ReOrder

________________________________________________

[MechMachineMan]

Cannot access camera directly. Must use oCam= or something similiar

Dim oCam As Camera

'For the active document
oCam = ThisApplication.ActiveView.Camera

With oCam
.ViewOrientationType()=ViewOrientationTypeEnum.kIsoTopRightViewOrientation
.Fit
.Apply
End With

ThisApplication.ActiveView.Fit(True)

[Anonymous]

The code that i have listed between the breaks work by them selves for Reordering the BOM by PartNumber and for Zoom Extents I would like to combine them and also add code to have all Work Features turned off. Than I would add that to a an event trigger before save.