Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Ladebalken als ProgressBar

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Ladebalken als ProgressBar (2338 mal gelesen)
student1992
Mitglied
Student


Sehen Sie sich das Profil von student1992 an!   Senden Sie eine Private Message an student1992  Schreiben Sie einen Gästebucheintrag für student1992

Beiträge: 98
Registriert: 03.05.2017

erstellt am: 05. Okt. 2017 12:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Während eines Messvorgangs, muss der Anwender 90 Sekunden warten, damit er sieht dass das Makro nicht abgestürzt ist würde ich gerne ein Ladebalken hinzufügen.

In meiner Toolbox befindet sich der Balken nicht, die reference hinzufügen habe ich versucht (Microsoft Windows Common Controls 6.0) doch es funktioniert nicht.

Die Toolbox ändert sich nicht.

Weiß da vielleicht jemand mehr. Oder gibt es alternative Möglichkeiten, vielleicht in Prozent anzeigen wie lange die Messung noch dauert?

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

joehz
Moderator
Freiberuflicher Konstrukteur


Sehen Sie sich das Profil von joehz an!   Senden Sie eine Private Message an joehz  Schreiben Sie einen Gästebucheintrag für joehz

Beiträge: 1057
Registriert: 25.11.2006

Win7 Pro 64 + Ubuntu + Irix6.5.20
Dell Precision M6600 i7-2960XM 2.7GHz 16GB
NVidia Quadro M5010
Catia V5R19
VB6Pro.SP6/VBA 6.5.1053

erstellt am: 05. Okt. 2017 14:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für student1992 10 Unities + Antwort hilfreich


pb.PNG

 
Hi 92,

deine Toolbox sollte aussehen wie im Bild.

Andernfalls musst noch was korrigieren.

Tschau,
Joe

PS: Bitte deine System-Umgebung ins Profil eintragen.

------------------
Inoffizielle Catia Hilfeseite

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

student1992
Mitglied
Student


Sehen Sie sich das Profil von student1992 an!   Senden Sie eine Private Message an student1992  Schreiben Sie einen Gästebucheintrag für student1992

Beiträge: 98
Registriert: 03.05.2017

erstellt am: 05. Okt. 2017 15:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


toolbox.png


toolbox2.png

 
danke für die schnelle Antwort!

ich habe zwei Bilder hochgeladen, so sieht meine Toolbox aus.

Auch unter Additional Controls sind keine Einstellungen indem ich ProgressBar aktivieren kann.

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

student1992
Mitglied
Student


Sehen Sie sich das Profil von student1992 an!   Senden Sie eine Private Message an student1992  Schreiben Sie einen Gästebucheintrag für student1992

Beiträge: 98
Registriert: 03.05.2017

erstellt am: 05. Okt. 2017 15:08    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

joehz
Moderator
Freiberuflicher Konstrukteur


Sehen Sie sich das Profil von joehz an!   Senden Sie eine Private Message an joehz  Schreiben Sie einen Gästebucheintrag für joehz

Beiträge: 1057
Registriert: 25.11.2006

Win7 Pro 64 + Ubuntu + Irix6.5.20
Dell Precision M6600 i7-2960XM 2.7GHz 16GB
NVidia Quadro M5010
Catia V5R19
VB6Pro.SP6/VBA 6.5.1053

erstellt am: 05. Okt. 2017 15:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für student1992 10 Unities + Antwort hilfreich


pb2.PNG

 
Hi 92,

dass du zusätzliche Controls installieren musst,
(und zwar auf jedem Rechner, auf dem das Makro laufen soll)
ehe du sie verwendest, ist aber schon klar?!

Dateiname/Speicherort siehe Bild

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

student1992
Mitglied
Student


Sehen Sie sich das Profil von student1992 an!   Senden Sie eine Private Message an student1992  Schreiben Sie einen Gästebucheintrag für student1992

Beiträge: 98
Registriert: 03.05.2017

erstellt am: 06. Okt. 2017 08:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


toolbox3.png

 
Hallo nochmal,

ich habe festgestellt, dass ich die Datei bereits installiert habe. Oder gibt es davon verschiedene Versionen?

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

joehz
Moderator
Freiberuflicher Konstrukteur


Sehen Sie sich das Profil von joehz an!   Senden Sie eine Private Message an joehz  Schreiben Sie einen Gästebucheintrag für joehz

Beiträge: 1057
Registriert: 25.11.2006

Win7 Pro 64 + Ubuntu + Irix6.5.20
Dell Precision M6600 i7-2960XM 2.7GHz 16GB
NVidia Quadro M5010
Catia V5R19
VB6Pro.SP6/VBA 6.5.1053

erstellt am: 06. Okt. 2017 09:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für student1992 10 Unities + Antwort hilfreich

Ja.
Für jede VB-Version und uU für VB und VBA.
Ist die OCX auch registriert?

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

student1992
Mitglied
Student


Sehen Sie sich das Profil von student1992 an!   Senden Sie eine Private Message an student1992  Schreiben Sie einen Gästebucheintrag für student1992

Beiträge: 98
Registriert: 03.05.2017

erstellt am: 06. Okt. 2017 12:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Code:
regsvr32 C:\Windows\SysWOW64\MSCOMCTL.OCX

konnte ich erfolgreich installieren, trotzdem sehe ich untere Additional Controls nichts 

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

joehz
Moderator
Freiberuflicher Konstrukteur


Sehen Sie sich das Profil von joehz an!   Senden Sie eine Private Message an joehz  Schreiben Sie einen Gästebucheintrag für joehz

Beiträge: 1057
Registriert: 25.11.2006

Win7 Pro 64 + Ubuntu + Irix6.5.20
Dell Precision M6600 i7-2960XM 2.7GHz 16GB
NVidia Quadro M5010
Catia V5R19
VB6Pro.SP6/VBA 6.5.1053

erstellt am: 06. Okt. 2017 12:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für student1992 10 Unities + Antwort hilfreich


pb3.PNG

 
Hi 92,

bei mir ist die Version im Bild installiert.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

Sylas
Mitglied



Sehen Sie sich das Profil von Sylas an!   Senden Sie eine Private Message an Sylas  Schreiben Sie einen Gästebucheintrag für Sylas

Beiträge: 322
Registriert: 19.11.2012

Dell Precision T3500
Intel Xeon W3550 @ 3,07 GHz
12 GB RAM
CATIA V5 R28

erstellt am: 06. Okt. 2017 12:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für student1992 10 Unities + Antwort hilfreich

Daswegen ich mache dass immer mit ein Formular und zwei Textfelde welche einanderer liegen. Zweite Feld hat z.B. blaue HIntergrund und Size vergrosern mit jedes Loop Schritt.

Es ist dann unabhangich vom Instalation.

Sorry fuer mein schlecht Deutch

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

joehz
Moderator
Freiberuflicher Konstrukteur


Sehen Sie sich das Profil von joehz an!   Senden Sie eine Private Message an joehz  Schreiben Sie einen Gästebucheintrag für joehz

Beiträge: 1057
Registriert: 25.11.2006

Win7 Pro 64 + Ubuntu + Irix6.5.20
Dell Precision M6600 i7-2960XM 2.7GHz 16GB
NVidia Quadro M5010
Catia V5R19
VB6Pro.SP6/VBA 6.5.1053

erstellt am: 06. Okt. 2017 12:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für student1992 10 Unities + Antwort hilfreich


pb4.PNG

 
Wenn alle Stricke reissen, kannst die PB auch mit zwei Labels simulieren, zB wie im Bild.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

Sylas
Mitglied



Sehen Sie sich das Profil von Sylas an!   Senden Sie eine Private Message an Sylas  Schreiben Sie einen Gästebucheintrag für Sylas

Beiträge: 322
Registriert: 19.11.2012

Dell Precision T3500
Intel Xeon W3550 @ 3,07 GHz
12 GB RAM
CATIA V5 R28

erstellt am: 06. Okt. 2017 13:08    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für student1992 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von joehz:
Wenn alle Stricke reissen, kannst die PB auch mit zwei Labels simulieren, zB wie im Bild.

Tschau,
Joe


Das ist genau das, was ich meinte, nur verwirrte den Text mit dem Label 

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

student1992
Mitglied
Student


Sehen Sie sich das Profil von student1992 an!   Senden Sie eine Private Message an student1992  Schreiben Sie einen Gästebucheintrag für student1992

Beiträge: 98
Registriert: 03.05.2017

erstellt am: 06. Okt. 2017 15:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

vielen Dank, IHR seid echt genial,  So kann ich beruhigt ins Weekend gehen  vielen Dank nochmal an euch allen!

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

student1992
Mitglied
Student


Sehen Sie sich das Profil von student1992 an!   Senden Sie eine Private Message an student1992  Schreiben Sie einen Gästebucheintrag für student1992

Beiträge: 98
Registriert: 03.05.2017

erstellt am: 12. Okt. 2017 13:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

ein kleines Problem habe ich, Die Userform ist inaktiv wenn ich das Makro schnell durschlaufen lase (also mit der Play taste oder mit "run")

Die Userform reagiert erst wenn der Ladebalken voll ist.

Wenn ich das Makro Schritt für Schritt laufen lasse (mit F8) dann kann ich genau sehen wie der Balken sich füllt.

Kann mir da jemand weiterhelfen?

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

joehz
Moderator
Freiberuflicher Konstrukteur


Sehen Sie sich das Profil von joehz an!   Senden Sie eine Private Message an joehz  Schreiben Sie einen Gästebucheintrag für joehz

Beiträge: 1057
Registriert: 25.11.2006

Win7 Pro 64 + Ubuntu + Irix6.5.20
Dell Precision M6600 i7-2960XM 2.7GHz 16GB
NVidia Quadro M5010
Catia V5R19
VB6Pro.SP6/VBA 6.5.1053

erstellt am: 12. Okt. 2017 15:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für student1992 10 Unities + Antwort hilfreich

Hi 92,

Zeig was du bisher hast!

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

student1992
Mitglied
Student


Sehen Sie sich das Profil von student1992 an!   Senden Sie eine Private Message an student1992  Schreiben Sie einen Gästebucheintrag für student1992

Beiträge: 98
Registriert: 03.05.2017

erstellt am: 12. Okt. 2017 15:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Code:
                For h = 1 To oHB9.Count
               
               
                Messen.Label4.Width = ((Messen_der_Flanschlaenge.Label3.Width - 2) / oHB9.Count) * h


                osel.Clear
                osel.Add oHB9.Item(h)
'                CATIA.StatusBar = oCrvRef.Name
                Set usersel = oHB9.Item(h)
                osel.Search ("Topology.CGMEdge,sel")
               
               
                        For n = 1 To osel.Count
                        Set mySel = osel.Item(n)
                        Set oCrvRef = mySel.Reference
                        miLongitud = Len(mySel.Reference.Name)
                        strTmp = Right(mySel.Reference.Name, miLongitud - 21)
                        miLongitud = Len(strTmp)
                        Texto = Left(strTmp, miLongitud - 1)
                        Set oRefCurva = opart.CreateReferenceFromBRepName(Texto, mySel.Value)
                        Set oCurva = oHSF.AddNewCurveDatum(oRefCurva)
                        oCurva.Compute
                        oHB7.AppendHybridShape (oCurva)
                       
                        Next n
   
                Next h



und

Code:
Private Sub UserForm_Initialize()

Label4.Left = Label3.Left + 1
Label4.Height = Label3.Height - 2
Label4.Top = Label3.Top + 1
Label4.Width = 0

End Sub


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

joehz
Moderator
Freiberuflicher Konstrukteur


Sehen Sie sich das Profil von joehz an!   Senden Sie eine Private Message an joehz  Schreiben Sie einen Gästebucheintrag für joehz

Beiträge: 1057
Registriert: 25.11.2006

Win7 Pro 64 + Ubuntu + Irix6.5.20
Dell Precision M6600 i7-2960XM 2.7GHz 16GB
NVidia Quadro M5010
Catia V5R19
VB6Pro.SP6/VBA 6.5.1053

erstellt am: 12. Okt. 2017 19:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für student1992 10 Unities + Antwort hilfreich

Ein paar Fragen:

- ist das die einzige Userform?
- wo lädst du die Userform, zB UserForm1.show
- wo gibst du cpu-zeit an die userform ab, zB 'DoEvents' innerhalb der inneren Schleife

Tschau,

------------------
Inoffizielle Catia Hilfeseite

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

PeterFleischmann
Mitglied
Software Entwickler


Sehen Sie sich das Profil von PeterFleischmann an!   Senden Sie eine Private Message an PeterFleischmann  Schreiben Sie einen Gästebucheintrag für PeterFleischmann

Beiträge: 10
Registriert: 12.09.2016

CATIA V5-6 B29 SP3 HF05

erstellt am: 12. Okt. 2017 19:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für student1992 10 Unities + Antwort hilfreich

Hallo,
ich nehme an, dass das die "Berechnungen" über ein Button gestartet werden. Die Oberfläche wird somit erst dann aktualisiert, wenn die Berechnungen fertig sind. Daher muss explizit angegeben werden, dass sofort aktualisiert werden soll.

Messen.Label4.Width = ((Messen_der_Flanschlaenge.Label3.Width - 2) / oHB9.Count) * h
Messen.Label4.Redraw()
Messen.Label4.Update()

sollte das label sofort neu zeichnen.

Gruß Peter

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

student1992
Mitglied
Student


Sehen Sie sich das Profil von student1992 an!   Senden Sie eine Private Message an student1992  Schreiben Sie einen Gästebucheintrag für student1992

Beiträge: 98
Registriert: 03.05.2017

erstellt am: 13. Okt. 2017 09:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Genau so läuft mein Makro.

Code:
Messen.Label4.Redraw()
Messen.Label4.Update()

ich habe aber das Problem, dass weder Redraw noch Update nach "Label4." in VBA definiert werden kann

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

student1992
Mitglied
Student


Sehen Sie sich das Profil von student1992 an!   Senden Sie eine Private Message an student1992  Schreiben Sie einen Gästebucheintrag für student1992

Beiträge: 98
Registriert: 03.05.2017

erstellt am: 13. Okt. 2017 09:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo joehz,

ich habe eine Userform davor, von der ich durch klicken auf ein Button  auf die nächste Userform komme

Code:
UserForm1.show

Mit 'DoEvents' meinst du die Schleife vom Modul, richtig?

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

joehz
Moderator
Freiberuflicher Konstrukteur


Sehen Sie sich das Profil von joehz an!   Senden Sie eine Private Message an joehz  Schreiben Sie einen Gästebucheintrag für joehz

Beiträge: 1057
Registriert: 25.11.2006

Win7 Pro 64 + Ubuntu + Irix6.5.20
Dell Precision M6600 i7-2960XM 2.7GHz 16GB
NVidia Quadro M5010
Catia V5R19
VB6Pro.SP6/VBA 6.5.1053

erstellt am: 13. Okt. 2017 14:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für student1992 10 Unities + Antwort hilfreich

Hi,

wenn du schon eine Userform hast, dann kannst dir die zweite auch sparen.
Das Beispiel hier
http://catia2.cad.de/index.php/de/tipps-tricks/programmierung/257-statusbar-auf-userform
lässt sich auch um die 'ProgressBar' erweitern.

Die 'DoEvents'-Anweisung
hätt ich in die innere Schleife gesetzt:

Code:

For h = 1 To oHB9.Count


  Messen.Label4.Width = ((Messen_der_Flanschlaenge.Label3.Width - 2) / oHB9.Count) * h

  oSel.Clear
  oSel.Add oHB9.Item(h)
  'CATIA.StatusBar = oCrvRef.Name
  Set UserSel = oHB9.Item(h)
  oSel.Search ("Topology.CGMEdge,sel")

  For n = 1 To oSel.Count
      Set mySel = oSel.Item(n)
      Set oCrvRef = mySel.Reference
      miLongitud = Len(mySel.Reference.Name)
      strTmp = Right(mySel.Reference.Name, miLongitud - 21)
      miLongitud = Len(strTmp)
      Texto = Left(strTmp, miLongitud - 1)
      Set oRefCurva = oPart.CreateReferenceFromBRepName(Texto, mySel.Value)
      Set oCurva = oHSF.AddNewCurveDatum(oRefCurva)
      oCurva.Compute
      oHB7.AppendHybridShape (oCurva)
      DoEvents
  Next n
Next h


Kann sein, dass das noch nicht reicht. Dazu kenn ich dein Makro zu wenig.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

student1992
Mitglied
Student


Sehen Sie sich das Profil von student1992 an!   Senden Sie eine Private Message an student1992  Schreiben Sie einen Gästebucheintrag für student1992

Beiträge: 98
Registriert: 03.05.2017

erstellt am: 15. Okt. 2017 16:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

prima, ich probiere das Montag aus. Ich werde mich diesbezüglich melden.

Danke schonmal sehr  

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

student1992
Mitglied
Student


Sehen Sie sich das Profil von student1992 an!   Senden Sie eine Private Message an student1992  Schreiben Sie einen Gästebucheintrag für student1992

Beiträge: 98
Registriert: 03.05.2017

erstellt am: 16. Okt. 2017 09:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

sehr gut funktioniert top 

Noch eine letzte Frage zu meinem Code oben:
wenn ich vor der "Search Edge" folgenden Code definiere, müsste der Suchvorgang doch ein wenig schneller laufen, richtig?

Code:
CATIA.HSOSynchronized = False

Zu beginn meines Makros habe ich

Code:
    CATIA.DisplayFileAlerts = False
    CATIA.RefreshDisplay = False

definiert, kann es daran liegen, dass der Suchvorgang länger dauert?

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 16. Okt. 2017 09:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für student1992 10 Unities + Antwort hilfreich

Servus

Hast du schon mal in der Doku geschaut was diese Methoden machen?
Eine Topologie-Suche ist recht langsam.
ggf geht ein andere Weg für dein Makro schneller.

Gruß
Bernd

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

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

student1992
Mitglied
Student


Sehen Sie sich das Profil von student1992 an!   Senden Sie eine Private Message an student1992  Schreiben Sie einen Gästebucheintrag für student1992

Beiträge: 98
Registriert: 03.05.2017

erstellt am: 16. Okt. 2017 09:57    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

ich finde dazu nichts,

sobald ich in der Suchfunktion :

Code:
Topology.CGMEdge

eingebe steht da keine Treffer. Um ehrlich zu sein arbeite ich ziemlich selten mit dem Doku.

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 16. Okt. 2017 09:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für student1992 10 Unities + Antwort hilfreich

Servus

Ich meinte auch DisplayFileAlerts und RefreshDisplay.
Dann wird es ab Zeit mal, vor dem Stellen einer Frage in die Doku zu schauen 

Gruß
Bernd

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

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz