Makro – kontroluj rozmiar tekstu szkicu 2D za pomocą współczynnika

Out of category
1

Cześć

Cel: zdefiniowanie rozmiaru tekstu proporcjonalnego do etykiety za pomocą współczynnika, który zmieni rozmiar etykiety oraz tekstu zawartego w szkicu części.

Poniżej przedstawiam kod napisany przez AI:

*' Définir la hauteur de base du texte*
*Dim hauteurBase As Double = 5 ' Hauteur initiale en mm*
*Dim hauteurFinale As Double*
* *
*' Calculer la nouvelle hauteur*
*hauteurFinale = hauteurBase * CoeffMultiplicateur*
* *
*' Appliquer au texte dans l'esquisse nommée "Esquisse1"*
*Dim oDoc As PartDocument = ThisApplication.ActiveDocument*
*Dim oCompDef As PartComponentDefinition = oDoc.ComponentDefinition*
*Dim oSketch As Sketch = oCompDef.Sketches.Item("Esquisse1")*
* *
*' Parcourir les objets texte de l'esquisse*
*For Each oTextBox As TextBox In oSketch.TextBoxes*
*    oTextBox.Height = hauteurFinale*
*Next*
* *
*' Mettre à jour le modèle*
*InventorVb.DocumentUpdate()*

Problem pojawia się zaraz po uruchomieniu makra, Inventor się zawiesza (Inventor 2022 5.2)

Jestem kompletnym ignorantem, czy ktoś poprawiłby dla mnie kod albo zaproponował kod dostosowany do tego, czego chcę uzyskać?

Gotowy z wyprzedzeniem

2

Nie specjalizuję się w makrach w Inventorze, więc trudno dostrzec problem.

Ale żeby ogólnie debugować makra, trzeba przejść przez edytor i uruchomić go krok po kroku (tryb debugowania i F8), żeby zobaczyć linię powodującą problem:

image
obraz1920×1037 97,1 KB

Oczywiście spójrz na ten link po angielsku, ale zrozumiałe jest debugowanie makra w zależności od rodzaju błędu:

Dla Twojej informacji, AI świetnie radzi sobie z niespecyficznymi makrami (VBA Exel ok), ale specyficznymi VBA SW, Inventor czy innymi, co jest czymś innym, bo jest za dużo funkcji i mało przykładów AI, które przez to ma irytującą tendencję do wymyślania nieistniejących funkcji w API CAD i tym samym psuje cały system. A bez wiedzy o VBA trudno wykryć, gdzie AI zawodzi.

1 polubienie