Jestli chcete opravdu konkrétně měnit jen výšku, tak si do formu dejte rozbalovací seznam a výšku vybírejte z něj. Mít na každou výšku tlačítko je dost nepraktické.

A ta "omáčka", které vám zjišťuje to či ono, se dá pohodlně napsat do funkcí, které pak zavoláte u každého skriptu v jednom řádku a nemusíte to psát pořád dokola. Napíšete si např funkce ZjistiTypDokumentu, která vám bude vracet řetězec podle toho co je otevřené (prázdný řetezec, když nebude otevřeno nic). Tato funkce může vracet i vrcholový objekt jako Part, Product, DrawingRoot atd. Já mám v .NET vytvořené vlastní knihovny, které si najdou co potřebují, a pak si jenom jednoduše sahám pro to, co potřebuju. V kódu to pak jsou dva řádky...

Velmi zjednodušeně třeba takhle. V tomto případě nejde o funkci, ale o proceduru (funkce vrací hodnotu).

Dim oDoc As Document
Dim sDocTyp As String

Sub GetDoc()

   Dim sDocExt



   Dim Parts()



   If CATIA.Documents.Count > 0 Then

      Set oDoc = CATIA.ActiveDocument

      Parts = Split(".", oDoc.Name) ' rozdelime nazev souboru na casti podle tecky

      sDocExt = Parts(UBound(Parts)) ' typ souboru urcuje cast za posledni teckou

      

      If oDocExt = "CATPart" Then

          oDocType = "dil"

      ElseIf oDocType = "CATProduct" Then

          oDocType = "sestava"  

      Else

          oDocType = "neznamy"

      End If



   Else

      oDocTyoe = "none" ' zadny dokument

   End If

End Sub

V hlavnim kodu potom bude:

Sub K_Tlacitku_Click()



   GetDoc() ' zavolame proceduru, ktera nam naplni promenne



   ' overeni aktivniho partu

   If sDocType = "dil" Then



   zbytek kodu



End Sub

Do funkci si ještě můžete dát různá ošetření atd.

Aha, závorky pryč, v CATVBA se u volání funkce neuvádí... To je zvyk z VB.NET.

Říká Vám něco globální a lokální proměnná? Pokud máte proměnnou deklarovanou uvnitř procedury, hlavní kód ji nezná - platí jen lokálně uvnitř procedury, proto ta chyba. Proměnná oDoc musí být deklarovaná v hlavním kódu.

Ve skutečnosti je to ještě ještě o něco složitější, deklarace může mít různý zápis. Výraz Dim pouze rezervuje místo v paměti pro proměnnou. Pak jsou ještě další výrazy, např. Private, Public, kterými určujeme přístupnost proměnné pro ostatní části projektu.

Takhle by to mělo být OK. Proměnná partDocument1 je deklarovaná globálně, proto je viditelná ve všude, tj. i v sub Alfa. Pokud by to bylo obráceně, tedy proměnná by byla deklarovaná uvnitř Alfa, nebyla by viditelná v hlavním programu.

Já jsem si toho všimnul až teď, deklaraci proměnné musíte mít úplně na začátku, vy ji máte zase uvnitř CommandButton1_Click, tj. opět jen jako lokální pro tento Sub. globální proměnné musejí být úplně na začátku.

Příklad:

' zacatek kodu



Dim PromGlob1 As String    ' globalni promenna, pristupna vsude

Dim PromGlob2 As Integer



Sub1()

   Dim ProbLok1 As String  ' lokalni promenna, pristupna jen v Sub1



End Sub



Sub2() 

   Dim ProbLok2 As String



End Sub



' pokracovani 

Tohle patří spíš do obecných základů programování, bez toho budete občas narážet :-)