|
CATIA V5 Programmierung : flexible Komponente
bgrittmann am 20.04.2011 um 10:22 Uhr (0)
ServusSolle so gehen:- Komponente selektieren- CATIA.StartCommand ("flexible/starre Unterbaugruppe")Vorsicht: die Befehle sind Sprach abhängig.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Körper im Allcatpart durchnummerieren
bgrittmann am 22.04.2011 um 19:34 Uhr (0)
ServusScheint daran z liegen, dass du CATIA auf deutsch verwendest.Ersetze einfach die Zeile Code:objSel.Search "Part Design.Body.Name != PartBody, all" durch Code:objSel.Search "CATPrtSearch.BodyFeature,all"im Script.GrußBernd ------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Offset-Ebene: Referenzfläche ändern
bgrittmann am 16.05.2011 um 16:16 Uhr (0)
ServusAnbei ein Beispiel, dass bei mir durchläuft:Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim XYEbene, XZEbeneSet XYEbene = part1.OriginElements.PlaneXYSet XZEbene = part1.OriginElements.PlaneZXEbene seletkierenDim userselSet usersel = partDocument1.SelectionDim f As StringDim was(0)was(0) = "Plane"f = usersel.SelectElement2(was, "Selektieren Sie die ebene die sie ändern möchten", False)Dim ebene As PlaneSet e ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Werte aus SmarTeam-Profilkarte auslesen (mit VBA)
bgrittmann am 16.05.2011 um 23:05 Uhr (0)
ServusDie Dok zur CATIA-AP findest du im CATIA-Installationsverzeichnis (V5Automation.chm)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA Makro - Affinität (Volumen)
bgrittmann am 12.08.2011 um 10:31 Uhr (0)
ServusAnbei ein Beispiel wie eine Affinität im Body erstellt wird (ohne Referenzen):Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim ShapeFactory1 As ShapeFactorySet ShapeFactory1 = part1.ShapeFactoryDim ShapeAffinity1 As AffinitySet ShapeAffinity1 = ShapeFactory1.AddNewAffinity2(1, 2, 3)part1.UpdateEnd SubUm die Referenzen zu setzen kannst du dann über ShapeAffinity1.Hybridshape auf die Befehle im GSD zurückgreife ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Formeln mit Makro erstellen
bgrittmann am 24.05.2011 um 21:50 Uhr (0)
ServusWillkommen im Forum. Bitte Systeminfo ausfüllen.Das geht mit dem Befehl CreateFormula . Ein Beispiel aus der Doku:Code:...Dim CATDocs As DocumentsSet CATDocs = CATIA.DocumentsDim part1 As DocumentSet part1 = CATDocs.Add("CATPart")Dim width As RealParamSet width = part1.Part.Parameters.CreateReal("width", 1.) Dim height As RealParamSet height = part1.Part.Parameters.CreateReal("height", 2.) Dim depth As RealParamSet depth = part1.Part.Parameters.CreateReal("depth", 3.) Dim density As RealParamSet dens ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Masse und schwerpunkt von einzelnen Parts
bgrittmann am 17.06.2011 um 18:09 Uhr (0)
ServusVersuch es mal mit der SPAWorkbench - GetMeasurable - Area (siehe Doku) zB:Code:Sub CATMain() Dim objPart As Part Dim objBody As Body Dim objMeasreable As Measurable Set objPart = CATIA.ActiveDocument.Part Set objBody = objPart.Mainbody Set objMeasreable = GetBodyMeasureable(objPart, objBody) If Not (objMeasreable Is Nothing) Then Retrieve the volume and area just to show it worked MsgBox objMeasreable.Area MsgBox objMeasreable.Volume Else MsgBox "The Measureable could not be retr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Eine Plane bewegen
bgrittmann am 29.06.2011 um 10:40 Uhr (0)
ServusSchau mal in der Doku unter "HybridShapePlaneOffset". Beispiel zum den Offset zu ändern:Code:Language="VBSCRIPT"Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet hybridBodies1 = part1.HybridBodiesSet hybridBody1 = hybridBodies1.Item("Geometrisches Set.1")Set hybridShapes1 = hybridBody1.HybridShapesSet hybridShapePlaneOffset1 = hybridShapes1.Item("Ebene.1")hybridShapePlaneOffset1.offset.value = 20.part1.Update End SubGrußBernd------------------Warum einfach, wenn e ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro gibt nur Zahlenwerte aus keine Buchstaben
bgrittmann am 06.07.2011 um 11:01 Uhr (0)
Servusich behaupte mal: nein.CATIA verwendet Layer nur mit nummern, der Name ist scheinbar nur ein zusätzliche Eigenschaft (auf die man nicht zugreifen kann?)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Automatische Erzeugung von Baugruppen-CGRs
bgrittmann am 14.07.2011 um 22:38 Uhr (0)
ServusPoste doch mal bitte einen Code-Abschnitt mit dem Fehler und die Fehlermeldung.Die Doku zur Programmierung findest du im CATIA-Installationsverzeichnis unter: ...B19intel_acodeinV5Automation.chmGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Automatische Erzeugung von Baugruppen-CGRs
bgrittmann am 15.07.2011 um 16:00 Uhr (0)
ServusAlso ich würde alles vom Product aus steuern (ist einfacher vom Code).ICh hab mal deinen etwas angepasst/besser strukturiert (aber nicht getestet), vielleicht hilft es dir weiter:Code:Sub CATMain()***Product geöffnet?*** Set oFenster = CATIA.Windows If oFenster.Count = 0 Then Box = MsgBox("Es ist kein Dokument geladen!" + Chr(10) + "Das Makro kann nicht ausgeführt werden und wird beendet!", vbCritical, "Keine Dokument geladen") Exit Sub End If ObjType = TypeName(CATIA.Activ ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Automatische Erzeugung von Baugruppen-CGRs
bgrittmann am 15.07.2011 um 17:54 Uhr (0)
ServusZu 1.:Versuch mal ObjType = TypeName(CATIA.Activedocument)Zu 2.:Versuch mal:Set partDocument1 = CATIA.Documents.Item("3432A75A39D531603432A75A39D76F06VPMENV DOCCAD PLOC")oderSet partDocument1 = CATIA.Documents.Item("3432A75A39D531603432A75A39D76F06VPMENV DOCCAD PLOC.CATPart")GrußBerndPS: Was machst du wenn das "Skelettpart" mal anders heißt?------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Automatische Erzeugung von Baugruppen-CGRs
bgrittmann am 16.07.2011 um 00:12 Uhr (0)
ServusAFAIK kann man zwischen den Fenstern zB über:CATIA.Windows.item(2).ActivatebzwCATIA.Windows.item("Part1.CATPart").Activatewechseln. (siehe auch Doku).GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
