Inventor : i-Logic _ Insertion de tableau general

[denis.semeniuc]

Bonjour,

Je besoin d'insérer une tableau sur la page selon la style , dans la quelle les collones sont deja programe.

Quand je fait a la main, je clic sur General Tab et clic sur endroit a inérer sur la page. Aucun d'autre changement. 

Voici l'image:

en utilisant "custumTab.Add()" il y a trop des variable quele je deja programe dans la style de tableau.

Merci.

---

Le titre du sujet a été modifié par un modérateur pour faciliter la recherche. Titre original:
i-Logic _ Incersion de tableau general

[ThomasB44]

Salut @denis.semeniuc 

Tu trouveras des explications dans l'aide de l'API :

En particulier la rubrique "Working with custom tables" qui est bien documenté :

Avec un exemple de programme, en VBA :

Public Sub CreateCustomTable()
    ' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument
    
    ' Set a reference to the active sheet.
    Dim oSheet As Sheet
    Set oSheet = oDrawDoc.ActiveSheet
    
    ' Set the column titles
    Dim oTitles(1 To 3) As String
    oTitles(1) = "Part Number"
    oTitles(2) = "Quantity"
    oTitles(3) = "Material"
    
    ' Set the contents of the custom table (contents are set row-wise)
    Dim oContents(1 To 9) As String
    oContents(1) = "1"
    oContents(2) = "1"
    oContents(3) = "Brass"
    oContents(4) = "2"
    oContents(5) = "2"
    oContents(6) = "Aluminium"
    oContents(7) = "3"
    oContents(8) = "1"
    oContents(9) = "Steel"
    
    ' Set the column widths (defaults to the column title width if not specified)
    Dim oColumnWidths(1 To 3) As Double
    oColumnWidths(1) = 2.5
    oColumnWidths(2) = 2.5
    oColumnWidths(3) = 4
      
    ' Create the custom table
    Dim oCustomTable As CustomTable
    Set oCustomTable = oSheet.CustomTables.Add("My Table", ThisApplication.TransientGeometry.CreatePoint2d(15, 15), _
                                        3, 3, oTitles, oContents, oColumnWidths)
                                        
    ' Change the 3rd column to be left justified.
    oCustomTable.Columns.Item(3).ValueHorizontalJustification = kAlignTextLeft
    
    ' Create a table format object
    Dim oFormat As TableFormat
    Set oFormat = oSheet.CustomTables.CreateTableFormat
    
    ' Set inside line color to red.
    oFormat.InsideLineColor = ThisApplication.TransientObjects.CreateColor(255, 0, 0)
    
    ' Set outside line weight.
    oFormat.OutsideLineWeight = 0.1
    
    ' Modify the table formats
    oCustomTable.OverrideFormat = oFormat
End Sub

[patrick.emin]

Bonjour @denis.semeniuc 

Si une des réponses résout votre problème ou vous a permis de mieux le comprendre, voulez vous avoir l'amabilité de cliquer sur le bouton  APPROUVER LA SOLUTION  en bas de la réponse qui apporte une solution?
Cela facilitera la navigation de nos utilisateurs qui pourront directement atteindre la solution

Sachez qui si vous avez marqué une réponse comme solution par erreur, vous pouvez annuler ce marquage en cliquant sur le menu du fil (les trois points verticaux) et choisir "pas la solution"
Merci de ne pas accepter comme solution le message que vous êtes en train de lire.

[denis.semeniuc]

Bonjour,

Merci pour le code.

Oui, je vu ca. Par contre je ne pas besoin spécifié les colonnes. Je veux sélectionner option tableau général et indiqué la qte des lignes et insérer sous cartouche.

A cause que l'étape est répétitive je veux automatisée ca.

Merci.

[ThomasB44]

L'exemple fournit dans l'aide est explicite et indique toutes les options.

Mais tu n'as pas besoin d'utiliser tout le code, des arguments sont optionnels comme indiqué dans l'aide.

Le minimum requis pour créer l'objet c'est :

oCustomTable = oSheet.CustomTables.Add(oTitle, oPoint, oColumns, oRows, oTitles)

[denis.semeniuc]

c'est la dernier valeur que m'enquete oTitles. il y a une possibilité de indique rien, qu'il prend valeur par default?

[ThomasB44 · Accepted solution]

Apparemment oui, c'est possible.

Il faut que le tableau de String "oTitles" soit de même taille que le nombre de colonnes.

Donc :

Dim oTitles(oColumns - 1) As String

Ensuite tu peux assigner une valeur vide ("") à chaque item de "oTitles"

Elle sera automatiquement remplacée par colonne 1, colonne 2...etc

Mais en fait ça revient exactement au même que saisir les valeurs dans le code :

	For i = 1 To oColumns
		oTitles(i - 1) = "Column " & i
	Next

[denis.semeniuc]

MERCI, JE VAIS ESSAYER.