sujet Re: Inventor : i-Logic _ Incersion de tableau general dans Inventor - Forum Français

Inventor : i-Logic _ Insertion de tableau general

denis.semeniuc — Tue, 13 Feb 2024 14:50:28 GMT

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

Re: Inventor : i-Logic _ Incersion de tableau general

ThomasB44 — Tue, 13 Feb 2024 14:08:43 GMT

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

Re: Inventor : i-Logic _ Insertion de tableau general

patrick.emin — Thu, 15 Feb 2024 12:12:40 GMT

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.

Re: Inventor : i-Logic _ Incersion de tableau general

denis.semeniuc — Thu, 15 Feb 2024 12:47:37 GMT

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.

Re: Inventor : i-Logic _ Incersion de tableau general

ThomasB44 — Thu, 15 Feb 2024 13:12:23 GMT

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)

Re: Inventor : i-Logic _ Incersion de tableau general

denis.semeniuc — Thu, 15 Feb 2024 13:44:14 GMT

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

Re: Inventor : i-Logic _ Incersion de tableau general

ThomasB44 — Thu, 15 Feb 2024 13:51:23 GMT

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

Re: Inventor : i-Logic _ Incersion de tableau general

denis.semeniuc — Thu, 15 Feb 2024 14:15:23 GMT

MERCI, JE VAIS ESSAYER.