Insert parts list above titleblock

[Anonymous]

How can I change this code to insert the parts list above the title block

SyntaxEditor Code Snippet

If iProperties.Value("Summary", "Category") = "ASSEMBLY" Then 




iLogicVb.UpdateWhenDone = True   

' Set a reference to the drawing document.    ' This assumes a drawing document is active.    
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument

'Set a reference to the active sheet.    
Dim oSheet As Sheet
oSheet = oDrawDoc.ActiveSheet    

' Set a reference to the first drawing view on    ' the sheet. This assumes the first drawing    ' view on the sheet is not a draft view.    
Dim oDrawingView As DrawingView

Try
    oDrawingView = oSheet.DrawingViews(1)
Catch
    MessageBox.Show("No View found. Can not continue", "iLogic")
    Return 'return exits the rule
End Try

' Set a reference to th sheet's border    
Dim oBorder As Border
oBorder = oSheet.Border

Dim oPlacementPoint As Point2d

If Not oBorder Is Nothing Then
    ' A border exists. The placement point        
    ' is the top-right corner of the border.        
    oPlacementPoint = oBorder.RangeBox.MaxPoint
Else
    ' There is no border      
    oPlacementPoint = ThisApplication.TransientGeometry.CreatePoint2d(20, 20)     
     
End If

Dim oPartslist As PartsList

Try        
    'look for the first parts list found on the sheet 
    'if succesful finding it, 
    'tell the user,then Do Nothing
    oPartslist = oSheet.PartsLists(1)
    MessageBox.Show("There is an existing Parts List", "iLogic")
    
Catch
    'if one is not found, Create it
    oPartsList = oSheet.PartsLists.Add(oDrawingView, oPlacementPoint)
End Try
End If

[Anonymous · Accepted solution]

Found something and played around with it.

adjust the offset to fit your title block. 

SyntaxEditor Code Snippet

If iProperties.Value("Summary", "Category") = "ASSEMBLY" Then 

iLogicVb.UpdateWhenDone = True   

' Set a reference to the drawing document.    ' This assumes a drawing document is active.    
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument

'Set a reference to the active sheet.    
Dim oSheet As Sheet
oSheet = oDrawDoc.ActiveSheet    

' Set a reference to the first drawing view on    ' the sheet. This assumes the first drawing    ' view on the sheet is not a draft view.    
Dim oDrawingView As DrawingView

Try
    oDrawingView = oSheet.DrawingViews(1)
Catch
    MessageBox.Show("No View found. Can not continue", "iLogic")
    Return
End Try

' Set a reference to th sheet's border    
Dim oBorder As Border
oBorder = oSheet.Border

Dim oPlacePoint As Point2d

If Not oBorder Is Nothing Then
    ' A border exists. The placement point        
    ' is the top-right corner of the border. 
    oOffset = 12.77 'user defined offset
    oX = oBorder.RangeBox.MaxPoint.X
    oY = oBorder.RangeBox.MinPoint.Y + oOffset
    oPlacePoint = ThisApplication.TransientGeometry.CreatePoint2d(oX,oY)
Else
    ' There is no border 
     
    oPlacementPoint = ThisApplication.TransientGeometry.CreatePoint2d(20, 20)
     
     iLogicVb.UpdateWhenDone = True
End If

Dim oPartslist As PartsList

Try        
    'look for the first parts list found on the sheet 
    'if succesful finding it, 
    'tell the user,then Do Nothing
    oPartslist = oSheet.PartsLists(1)
    MessageBox.Show("There is an existing Parts List", "iLogic")
    
Catch
    ' Create the parts list.  
    oPartsList = oSheet.PartsLists.Add(oDrawingView, oPlacePoint)
End Try
End If

[bradeneuropeArthur · Accepted solution]

Hi Measure first the location of the title-block and the inside dimension of the border.

for me the is 41.5 cm in X direction and 10 cm in Y direction.

use this as point values:

If iProperties.Value("Summary", "Category") = "X" Then 


iLogicVb.UpdateWhenDone = True   

' Set a reference to the drawing document.    ' This assumes a drawing document is active.    
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument

'Set a reference to the active sheet.    
Dim oSheet As Sheet
oSheet = oDrawDoc.ActiveSheet    

' Set a reference to the first drawing view on    ' the sheet. This assumes the first drawing    ' view on the sheet is not a draft view.    
Dim oDrawingView As DrawingView

Try
    oDrawingView = oSheet.DrawingViews(1)
Catch
    MessageBox.Show("No View found. Can not continue", "iLogic")
    Return 'return exits the rule
End Try

' Set a reference to th sheet's border    
Dim oBorder As Border
oBorder = oSheet.Border

Dim oPlacementPoint As Point2d

If Not oBorder Is Nothing Then
    ' A border exists. The placement point        
    ' is the top-right corner of the border.        
    'oPlacementPoint = oBorder.RangeBox.MaxPoint
	oPlacementPoint = ThisApplication.TransientGeometry.CreatePoint2d(41.5, 10)  
Else
    ' There is no border      
    oPlacementPoint = ThisApplication.TransientGeometry.CreatePoint2d(41.5, 0.5)     
     
End If

Dim oPartslist As PartsList

Try        
    'look for the first parts list found on the sheet 
    'if succesful finding it, 
    'tell the user,then Do Nothing
    oPartslist = oSheet.PartsLists(1)
    MessageBox.Show("There is an existing Parts List", "iLogic")
    
Catch
    'if one is not found, Create it
    oPartslist = oSheet.PartsLists.Add(oDrawingView, oPlacementPoint)
End Try
End If

[Anonymous]

I want to  make the first statement apply to two different things "Assembly" and "Welding" 

Do I have to write it as 

SyntaxEditor Code Snippet

If iProperties.Value("Summary", "Category") = "ASSEMBLY" Then

and 

 SyntaxEditor Code Snippet

ELSE If iProperties.Value("Summary", "Category") = "Welding" Then

It works this way, but have to copy the code twice.  Is there a better way

[Anonymous]

SyntaxEditor Code Snippet

If iProperties.Value("Summary", "Category") = "ASSEMBLY"  Or iProperties.Value("Summary", "Category") = "WELDING" Then