Inventor : Activation de cartouche a haut a droite avec i-logic

[denis.semeniuc]

Bonjour,

Comment activer le cartouche a haut a gauche de la page.

je utilise ca :

ActiveSheet.ChangeSize("B", moveBorderItems := True)
ThisApplication.ActiveDocument.ActiveSheet.Orientation  = kLandscapePageOrientation
ActiveSheet.Border = "Cadre large(PE)"
	ActiveSheet.SetTitleBlock("MPE")

Merci de votre aide

---

Le titre du sujet a été modifié par un modérateur pour faciliter la recherche. Titre original:
Activation de cartouche a haut a droite avec i-logic

[A.Acheson · Accepted solution]

Hi @denis.semeniuc 

The titleblock location is only available using the Inventor API. See LocationEnum here

To use the locationenum you need to get the location property of the titleblock

Syntax

TitleBlock.Location() As TitleBlockLocationEnum

To use the titleblock you can add this from the sheet using add titleblock where you can set location, definition and prompted entry in one go. 

Syntax

Sheet.AddTitleBlock( TitleBlockDefinition As Variant, [TitleBlockLocation] As Variant, [PromptStrings] As Variant ) As TitleBlock

[FINET_Laurent · Accepted solution]

Hello @denis.semeniuc,

You can use The folowing code to plate a titleblock in the desired location. The sheet must not contain existing titlelbocks & don't forget to update the name of the titleblock accordingly :

Dim titleblockName As String = "ISO"

Dim doc As Inventor.DrawingDocument =   ThisApplication.ActiveDocument
Dim s As Inventor.Sheet = doc.ActiveSheet

Dim def As Inventor.TitleBlockDefinition = doc.TitleBlockDefinitions.Item(titleblockName)

's.AddTitleBlock(def, TitleBlockLocationEnum.kBottomRightPosition) 
's.AddTitleBlock(def, TitleBlockLocationEnum.kBottomLeftPosition)
s.AddTitleBlock(def, TitleBlockLocationEnum.kTopRightPosition)
's.AddTitleBlock(def, TitleBlockLocationEnum.kTopLeftPosition)

Kind regards,

FINET L.

[denis.semeniuc]

Merci pour le code.

il y a une erreur :

je bien mis le nom du cartouche

[denis.semeniuc]

Désolé, je trouver l'erreur.

le TitleBlock été avec entrance(il faut écrire les donne) c'et ne marche pas avec cette fonction.
Il y a la possibilité applique la même chose pour cartouche avec Entrance?

[FINET_Laurent · Accepted solution]

@denis.semeniuc

Yes you can, but you need to create an array that contains the value for all prompt entries. Here an example with a title block that has two prompt entries :

Dim titleblockName As String = "TEST"
Dim data As String() = {"Value1", "Value2"}

Dim doc As Inventor.DrawingDocument =   ThisApplication.ActiveDocument
Dim s As Inventor.Sheet = doc.ActiveSheet

Dim def As Inventor.TitleBlockDefinition = doc.TitleBlockDefinitions.Item(titleblockName)

's.AddTitleBlock(def, TitleBlockLocationEnum.kBottomRightPosition, data) 
's.AddTitleBlock(def, TitleBlockLocationEnum.kBottomLeftPosition, data)
s.AddTitleBlock(def, TitleBlockLocationEnum.kTopRightPosition, data)
's.AddTitleBlock(def, TitleBlockLocationEnum.kTopLeftPosition, data)

Kind regards,

FINET L.

[denis.semeniuc]

Merci, ca Marche très bien.