|
CATIA V5 Programmierung : GetGeometricalFeatureType von Selection Item
geekv5 am 16.09.2012 um 11:25 Uhr (0)
Hallo Bernd,leider hilft mir das nicht wirklich weiter, ich möchte ja explizit ein Element einer Selektion prüfen, oder hast du eine Idee wie ich vom Selection Item auf das Shape-Collection Item komme? TypeName liefert mir zu viele Varianten (will nur zwischen Punkt, Kurve, Fläche usw. unterscheiden)..MfGNachtrag:Mit dieser Methode funktioniert es, sind zwar fünf Typen mehr zu unterscheiden, aber für meine Zwecke ist das denke ich besser als TypeName..Code:Sub CATMain()Dim partdocument1 As PartDocumentDim ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : GetGeometricalFeatureType von Selection Item
geekv5 am 16.09.2012 um 10:15 Uhr (0)
Hallo zusammen,könnt ihr mir kurz auf die Sprünge helfen, versuche verzweifelt den Geometrietyp eines selektierten Elements auszugeben doch GetGeometricalFeatureType schlägt immer fehl..Hier mal ein Beispiel:Code:MsgBox CATIA.ActiveDocument.Part.HybridShapeFactory.GetGeometricalFeatureType(CATIA.ActiveDocument.Selection.Item2(1).Value)Und nochmal in lang:Code:Dim partdocument1 As PartDocumentDim part1 As PartDim selection1 As SelectionDim ref1 As ReferenceDim hybridshapefactory1 As HybridShapeFactoryDim in ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : GetGeometricalFeatureType von Selection Item
geekv5 am 16.09.2012 um 11:54 Uhr (0)
Komisch, da haut er mir entweder "Automation Error", "Type missmatch" oder komische Zahlenwerte wie "18704" raus, je nachdem was ich anfasse, hier der Code, den ich probiert habe:Code:Sub CATMain()Dim partdocument1 As PartDocumentDim part1 As PartDim selection1 As SelectionDim hybridshapefactory1 As HybridShapeFactoryDim intGeomType As IntegerSet partdocument1 = CATIA.ActiveDocumentSet selection1 = partdocument1.SelectionSet part1 = partdocument1.PartSet hybridshapefactory1 = part1.HybridShapeFactoryintGeo ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Saved-Attribut wird falsch ausgelesen
geekv5 am 19.09.2012 um 13:49 Uhr (0)
Also bei einer anderen Installation hat es funktioniert, allerdings gleiches Release und SP (R20SP7).. Am Code kann es eigentlich nicht liegen, da ich per Hand ein Part erstellt und gespeichert und dann nur folgende Zeile getestet habe:Code:msgbox catia.activedocument.savedKann ja dann nur wieder was mit den Settings sein CATIA - Fluch und Segen Danke euch fürs testen..------------------Seid nicht dumm, lest drin rum!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Body von Part in Produkt selektieren/verstecken
geekv5 am 01.10.2012 um 11:37 Uhr (0)
Also wenn ich das richtig verstanden habe gibt es nur eine Selektion und zwar die des aktiven Dokuments, was in deinem Falle das oberste Produkt ist und auch nicht geändert werden kann.. Und statt dem Part einfach den Körper der Selektion hinzufügen, den willst du ja auch ausblenden..AlsoCode:set selection = CATIA.ActiveDocument.Selectionselection.Clearselection.add pressureRollerselection.VisProperties.SetShow catVisPropertyNoShowAttr------------------Seid nicht dumm, lest drin rum!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Eigenschaften von Selektion zurücksetzen
geekv5 am 02.10.2012 um 12:04 Uhr (0)
Hatte jetzt zwei Ideen:1) Die einzelnen Eigenschaften manuell auf einen von mir gewählten Standardwert setzen (Farbe, Transparenz, Linienstärke usw..) - Anwendung auf Kinder? (großer Aufwand?)2) Das Fenster per Startcommand aufrufen und mit der Win32 API die Checkbox setzen und "OK" klicken..Edit: Habs hinbekommen, hier Variante (2) mit anschließender Änderung der Linienstärke:Code:Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Lo ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Eigenschaften von Selektion zurücksetzen
geekv5 am 03.12.2012 um 13:31 Uhr (0)
SendKeys hatte ich schon probiert, aber leider kommt kein Tastendruck an.. In die Befehlszeile kann ich schreiben via SendKeys, aber wenn ein Dialogfenster offen ist, scheint es nicht zu funktionieren..Code:Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub CATMain()CATIA.StartCommand ("Eigenschaften zurücksetzen")CATIA.RefreshDisplay = TrueSleep 2000SendKeys "{TAB}", TrueSendKeys "{TAB}", TrueSendKeys "{ENTER}", TrueEnd SubGruß------------------Seid nicht dumm, lest drin rum!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ermitteln ob Wert eines Parameters eine Formel ist
geekv5 am 21.03.2013 um 10:21 Uhr (0)
Morgen!Habe jetzt erstmal via Startcommand gelöst, geht sicher besser..Code:Sub CATMain()Dim partDocument1 As PartDocumentDim selection1 As ObjectDim part1 As PartDim relations1 As RelationsDim parameters1 As ParametersDim length1 As LengthDim formula1 As FormulaDim quellparameter As ParameterDim parameterliste() As VariantSet partDocument1 = CATIA.ActiveDocumentSet selection1 = CATIA.ActiveDocument.SelectionSet part1 = partDocument1.PartSet relations1 = part1.RelationsSet parameters1 = part1.ParametersIf ...
|
| 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 : 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
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 |
|
CATIA V5 Programmierung : PartBody Farbe wechsel
geekv5 am 13.06.2013 um 15:10 Uhr (0)
Hallo,da ich es nicht hinbekommen habe, explizit nach Hauptkörpern zu suchen (geht das überhaupt?) sind mir zwei Ansätze eingefallen:1. Das Produkt rekursiv durchlaufen und dann bei jedem gefundenen Part den Hauptkörper selektieren (part.mainbody) und die Farbe anwenden..2. Alle Körper suchen, bei jedem Körper zum dazugehörigen Part hochhangeln und falls es der Hauptkörper ist, zu einer Liste hinzufügen.. Dann alle Elemente dieser Liste der Selektion hinzufügen und die Farbe anwenden..Ich habe jetzt mal Va ...
|
| In das Form CATIA V5 Programmierung wechseln |
