---

cad2.JPG

Hallo,

für ein Makro möchte ich die Ansicht auf den Nullpunktes des Blattes festlegen. Ist dies möglich?

Beste Grüße

Michael

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

---

Servus
Bitte Systeminfo ausfüllen.
Ja klar geht dass. Das Beispiel (CATScript) setze die aktive Ansicht auf 0,0 (Vorsicht keine Fehlerbehandlung integriert):

Code:

---

Sub CATMain()

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.ActiveSheet

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.ActiveView

drawingView1.x = 0.000000

drawingView1.y = 0.000000

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

es funktioniert. Danke :-) :-) :-)

Eine Frage noch. Zu meinem Vorhaben. Ich möchte die Textfelder des Schriftfeldes über ein Makro abfragen und beschriften. Mit meiner Vorlage klappt dies auch einwandfrei, aber eben nur über einer "Ansicht". Im Blatthintergrund ist dies leider nicht möglich eine Ansicht einzufügen. Weiß du, was man im Code umprogrammieren muss?

Beste Grüße

Michael

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

---

Private Sub CommandButton1_Click()

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument
     
Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim DrawingSheet1 As DrawingSheet
Set DrawingSheet1 = drawingSheets1.ActiveSheet
                 
                       
TEXTFELDER
    Set ActiveView = DrawingSheet1.Views.Item("Rahmen")
    Dim collection_textes As DrawingTexts
    Set collection_textes = ActiveView.Texts
 
                       
    Dim Feld_TEST As DrawingText
    Set Feld_TEST = collection_textes.GetItem("Text_TEST")
    Feld_TEST.Text = TextBox1.Value
   
End Sub

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

---

Hallo,

Schau mal hier

das könnte dir helfen

------------------
    Sei Schlau bleib Dumm !!?!!    

[Diese Nachricht wurde von K.Siebert am 06. Okt. 2011 editiert.]

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

---

Ich bin leider noch blutiger Anfänger in der Programmierung. Also mein Code funktioniert, aber nur auf einer "neuen Ansicht". Ich möchte die neue Ansicht auf den Blatthintergrund ändern. Könntest du vielleicht nachschauen welche Variabel das in deinem Code ist, da ich meinen gerade so verstehe :-)

Beste Grüße

Michael

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

---

Servus

AFAIR ist die zweite Ansicht auf einem Blatt immer der Hintergrund:
Set ActiveView = DrawingSheet1.Views.Item(2)
Dann solltest du die Texte "normal" ansprechen können. (siehe ach Forensuche und Doku)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

[Diese Nachricht wurde von bgrittmann am 06. Okt. 2011 editiert.]

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

---

Es funktioniert. Danke Danke :-) Die Form rufe ich über das Modul mit dem Befehl "FormEingabe.Show" auf. Ist es möglich pro Eingabefeld eine eigene Form aufzurufen. Bsp. 1. Form (Werkstükkanten) 2. Form(Tolerierungsgrad)

Beste Grüße

Michael

------------------------------
Aller Anfang in VB ist schwer

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

---

Kann man sein selbst geschriebenes Makro auch auf einem Button legen?

Danke für eure Hilfe :-)

Beste Grüße

Michael

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

---

Hallo Michael,

natürlich.

Makro in Bibliothek ablegen.

RTM auf Befehlsleiste "Costomize".
Dann auf den Reiter "Commands".
Unter Categories "Makros" auswählen.
Nun kannst du unter Commands dein Makro auswählen.
Unter Show Properties kannst du noch ein Icon zuweisen.

Aus dem Fenster Commands nun dein Makro in eine Toolbar ziehen. (Kannst auch eine eigene Toolbar unter dem Reiter "Toolbar" anlegen.)

fertig

Gruß Uwe

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