---

Hi,

wollte mal nachfragen wie es denn möglich ist die eingabemaske so zu gestallten das mehrere eingabe felder nebeneinander stehen??

Ich habe nämlich 65 positionen und würde diese gerne so gestalten wie mein titelblock aussieht,
im R36 sind ja sämtlich positionen untereinanden.

Arbeite mit winxp und catia r17

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tamo,

also du setzt voraus das wir alle das Buch haben und jeder jetzt nachschlägt um dir zu helfen  . Ich weiß nicht mal genau von was du redest außer das es um ein Titleblock Script geht.

Vielleicht wäre es hilfreich genau zu beschreiben wo den dein Problem liegt. Erweiterung einer UserForm?

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ok, ja da hast du natürlich recht!!

also das Makro macht eine eingabmaske in der man dann dinge wie Maßstab, zeichnungsnummer usw. eintragen kann. Nun bruache ich aber mehr eingabemöglichkeiten, also in meinem fall 65. Diese stehen dann so untereinander:
                      Zeichnungsnummer  XXXXXXXXXXXXXXXXXXXX
                      Maßstab            XXXXXXXXXXXXXXXXXXXX
                      Datum              XXXXXXXXXXXXXXXXXXXX

So sieht die Eingabemaske momentan aus. Und so hätte ich sie gerne

Zeichnungsnummer XXXXXXXXXXXX        Datum  XXXXXXXXXXXXXXXXXXX      Maßstab  XXXXXXXXXXXXXXXXXXXX

Das ganze ist ein einer User Form und diise Fenster sind Dynamisch erstellt.

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von DanielFr.:
also du setzt voraus das wir alle das Buch haben und jeder jetzt nachschlägt um dir zu helfen 

---

Das Buch von Jens hat doch jeder der programmiert   

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tamo,

natürlich kannst du dir weitere Eingabefelder erstellen.
Du kannst unter CATvba auch die Position der Eingabefelder selbst festlegen.

Falls das nicht dein Problem war, musst du dein Problem detaillierter beschreiben.

Grüsse Dominik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja genau, ich möchte die position einzelner Felder verändern.

Aber wie genau mache ich das?

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
die einzelnen Positionen werden in der Schleife

For i = 0 To UBound(dummytexte, 1)
            Set dummylabel = Me.Controls.Add("Forms.Label1", "dummy_lb_" & i)
                dummylabel.Move 10, ypos, 100, 10
                dummylabel.Caption = dummytexte(i, 0)
                dummylabel.Font.Bold = True
                dummylabel.AutoSize = True

                Set dummytextbox = Me.Controls.Add("Forms.TextBox.1", "dummy_tb_" & i)
                dummytextbox.Move 100, ypos, 170, 16
                dummytextbox.Value = dummytexte(i, 0)
                dummytextbox.SpecialEffect = fmSpecialEffectEtched

            ypos = ypos + 20
        Next

gesetzt. Mit "ypos = ypos + 20" wird die Y-Position für die nächste Zeile hochgezählt. Die Elemente selbst werden mit dem Befehl "Move" an die entsprechende Stelle geschoben.
Wenn man jetzt die mehrere Spalten haben möchte, muss man nicht nur die Y-Position hochzählen, sonder auch die X-Position entsprechend ändern lassen. Da aber die X-Position nicht kontinuierlich hochgezählt werden darf (sonst bekommt man eine schräge, linienartige Anordnung), muss die X-Position ab einem gewissen Wert wieder zurück gesetzt werden.

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Homepage von Jens Hansen
Kochbuch - CATIA V5 automatisieren

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

also nachdem ich nun einiges in den letzten ausprobiert habe, habe ich nun ein neues Problem!!

Ich kann nun mittlerweile die zwar die Eingabemasle aufrufen und neue sachen reinschreieben, aber Sobald ich dann nun den Button Ausfüllen drücke gibt er mir nur die Meldung das das Makro beendet ist, aber er füllt dann leider nichts aus:-(. Ich weiß nicht ob ich den code hier posten darf wegen urheberrecht oder.

Ich arbeite seit 2 tagen nun mit Release R19. In Relaese 17 hat es auch nicht funktioniert.

Hat vielleicht jemand eine Idee an was es liegen kann???

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Habe nun die Lösung gefunden. Der Titelblock war zwar im Sheetbackground, aber dort war er als Detail(Mußte noch den Befehl "Explode" ausführen) eingefügt.

Ich würde das Makro gern im Detail Sheet ausführen ist das möglich???Wo finde ich denn solche Befehle??

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ein paar weitere Infos wären nicht schlecht.
Z.B. was du bisher hast, was du genau willst, deinen bisherigen Code, etc.

Sonst kann ich nur sagen, ein Makro lässt sich über Tools->Makros ausführen ;-)

Grüsse Dominik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP