|
CATIA V5 Programmierung : Objekt finden, vergleichen und in Tabelle darstellen.
lamdiabolo am 30.04.2013 um 16:55 Uhr (0)
Hallo Henry,bei deinem Dictionary verstehe ich leider auch nicht genau wie ich ihn umbauen muss, damit er mir meine Durchmesser behält und diese abgleicht bzw. bei mehrfachvorkommen, den Zähler erhöht und nachher eine Tabelle ausgibt.Ich beschäftige mich leider erst seit kurzem mit der Makroprogrammierung bei Catia und bin daher noch nicht der aller geübteste,im Umgang mit VBA bzw.VBS Script.Danke aber trotzdem für dein BemühenGrußJan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Objekt finden, vergleichen und in Tabelle darstellen.
imation1999 am 01.05.2013 um 10:24 Uhr (0)
Ich würde es so machen (nach empfehlung von Bernd):Code:Sub CATMain()Dim length1 As LengthDim hole1Dim dDim ItDim KeConst CNew = 1 Counter New = 1Dim CAct Counter Actualdim TextSet Selection1 = CATIA.ActiveDocument.SelectionSelection1.Search ".hole,all"Set d = CreateObject("Scripting.Dictionary")For i = 1 To Selection1.Count Set hole1 = Selection1.Item2(i).Value Set length1 = hole1.Diameter If d.Exists(length1.Value) Then CAct = d.Item(length1.Value) CAct = CA ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Objekt finden, vergleichen und in Tabelle darstellen.
lamdiabolo am 30.04.2013 um 09:33 Uhr (0)
Guten Tag,ich hoffe ihr könnt mir nochmal behilflich sein.Ich probiere im Moment ein Makro zu programmieren, welches in Catia ein Bauteil durchgehen und alle Löcher finden, den Durchmesser bemessen und alle gleichen Löcher mit der Gesamtanzahl in einer Tabelle ausgeben soll.Es soll nachher ungefähr folgend aussehen:3 x 50mm5 x 20mm4 x 10mmEs wäre natürlich schön wenn die Durchmesser der Größe nach geordnet wären, aber wenns leichter ist reicht es mir erst auch mal, wenn man überhaupt die Anzahl mit den daz ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Objekt finden, vergleichen und in Tabelle darstellen.
imation1999 am 02.05.2013 um 15:07 Uhr (0)
Zitat:Original erstellt von bgrittmann:Servuskleiner Hinweis zum Makro:ich befürchte (gemäß meinem Test)dass bei diesem Makro die Zählungen von Bohrungen die gemustert wurden, die falsche Anzahl ermittelt wird.GrußBerndHallo Bernd,du hast natürlich Recht.Hast du vielleicht einen Vorschlag, wie man korrigieren kann?EDIT (VBAProject mit Sortierung von Durchmesser):Code:Sub CATMain()Dim length1 As LengthDim hole1Dim dDim ItDim KeConst CNew = 1 Counter New = 1Dim CAct Counter ActualDim Arr()Dim dTemp ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Namensänderung eines Produkt nicht sichtbar
HoBLila am 02.05.2013 um 13:10 Uhr (0)
Hallo S-Card,ich weiß es leider nicht, würde aber CATIA.RefreshDisplay = TRUE einmal versuchen. Ich nehme an ein Update aufs Produkt hast Du schon probiert?------------------Mit freundlichen Grüßen,Henry Schneideralias LilaEs gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,die Natur versucht, immer bessere Idioten zu bauenXing
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Objekt finden, vergleichen und in Tabelle darstellen.
lamdiabolo am 06.05.2013 um 09:19 Uhr (0)
Hallo liebe Community,ich habe jetzt ein Makro geschrieben, welches alle Durchmesser eines Bauteils ausgibt und nach Art unterschiedlich einfärbt.Dazu habe ich eine Listbox benutzt, welche ich gerne sortiert haben würde. Ich habe mich auch schon im Internet etwas schlau gemacht, wie das funktionieren könnte, aber leider funktioniert das bei mir nicht so wie erwartet.Ich habe es mit : Listbox1.sorted=true ausprobiert, was aber leider zu keinem Ergebnis geführt hat.Bitte helft mir,wenn ihr irgendeine Idee ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Set of Relation Löschen
geekv5 am 07.05.2013 um 09:04 Uhr (1)
Hallo Uwe,müsste doch dann eigentlich so langen, kanns aber gerade nicht testen und bin noch stark angeschlagen vom gestrigen Abend:Code:Sub Delete_Relations(RefDoc As Document)Set oSel = CATIA.ActiveDocument.SelectionSelect Case TypeName(RefDoc)Case "PartDocument","ProductDocument"Case Else MsgBox "Unerwarteter Dokumententyp!", vbExclamation, "DOKUMENT: FEHLER" Exit SubEnd SelectoSel.clearoSel.Add RefDocoSel.search "CATKnowledgeSearch.AdvisorRelationSet,sel"oSel.Delete End SubAus der Function habe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Namensänderung eines Produkt nicht sichtbar
geekv5 am 08.05.2013 um 10:10 Uhr (0)
Hallo Rick,das hatte ich schon probiert, leider ohne Erfolg..Hier mal der Code, der ausgeführt wird, wenn ich auf einer Form einen Button klicke:Code:Private Sub CommandButton14_Click()Dim partdocument1 As PartDocumentDim part1 As PartDim bodies1 As BodiesDim body1 As BodySet partdocument1 = CATIA.ActiveDocumentSet part1 = partdocument1.PartSet bodies1 = part1.BodiesSet body1 = bodies1.AddOn Error Resume NextIf Not Me.TextBox1.Text = "" Then body1.Name = Me.TextBox1.TextOn Error GoTo 0Dim oView As Viewer3D ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : KWA Befehlsliste
bordercrosser am 07.05.2013 um 15:47 Uhr (0)
Vielen Dank für deine Info und dem Willkommensgruß Bernd!Man darf mich auch für beschränkt halten... Eine Liste ist im Regeleditor selber vorhanden und Auf der CATIA Hilfe Seite bin ich nun auch fündig geworden.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Namensänderung eines Produkt nicht sichtbar
RSchulz am 07.05.2013 um 17:17 Uhr (0)
Hallo zusammen,CATIA reagiert eben nicht auf das von euch erschaffene Ereignis.Versucht mal folgendes:Code:Sub CATMain() Dim oView As Viewer3D Dim oWindow As SpecsAndGeomWindow Set oWindow = CATIA.ActiveWindow Set oView = oWindow.ActiveViewer oView.updateEnd SubDies sollte eigentlich ein "redraw"-Ereignis im Window ausführen! Das wird aus Performancegründen nicht automatisch mit jedem puckelmuckel ausgeführt ------------------MFGRick SchulzNettiquette (CAD.de) - Was ist die Systeminfo? - Wie man Fragen ric ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Namensänderung eines Produkt nicht sichtbar
geekv5 am 08.05.2013 um 12:26 Uhr (0)
Mahlzeit Stefan bitte mit "f", aber das nur nebenbei Habe ein wenig mit deinem Trick herumprobiert und festgestellt, dass er einwandfrei funktioniert, wenn ich den Code in eine Prozedur packe und aus dem VB Editor starte.. Normalerweise müsste ich die Maus in das CATIA Fenster bewegen (aber nicht hineinklicken), um die Änderung zu bewirken, mit dem AppActivate CATIA.Caption ist das nicht notwendig.. Allerdings klappt das nicht wenn ich eine Form geöffnet habe, da diese anscheinend verhindert, den Fokus auf ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Namensänderung eines Produkt nicht sichtbar
RSchulz am 08.05.2013 um 11:20 Uhr (0)
Hallo Stephan,dein Problem hängt nicht mit CATIA, sondern mit Windows zusammen. Das Fenster wird nicht neu gezeichnet, da der Fokus auf deiner Form ist. Ich habe das Ganze gerade mal nachvollziehen können.Versuch es mal mit folgendem kleinen Trick Code:Sub CATMain() Dim partdocument1 As PartDocument Dim part1 As Part Dim bodies1 As Bodies Dim body1 As Body Set partdocument1 = CATIA.ActiveDocument Set part1 = partdocument1.Part Set bodies1 = part1.Bodies Set body1 = bodies1.Add On Error Resume Next body1.Na ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Namensänderung eines Produkt nicht sichtbar
geekv5 am 08.05.2013 um 12:48 Uhr (0)
Ja, an VB.NET habe ich auch direkt denken müssen, zumal ich schon ein paar Sachen damit verwirklicht habe.. Ich denke mal es kommt der Tag, an dem ich komplett umsteige.. Ok danke für den Tipp mit dem showmodal, habe ich schlicht überlesen beim Überfliegen der Eigenschaften.. Komischerweise zeigt das AppActivate hier nicht die erhoffte Wirkung (CATIA wird aktiviert, aber Körper erscheint nicht), wenn ich allerdings mit der Maus ins CATIA Fenster fahre sehe ich die Änderungen.. Nichts desto trotz bringt mi ...
|
| In das Form CATIA V5 Programmierung wechseln |
