|
CATIA V5 Programmierung : Maschine in Prozess Dokument einfügen
Proofin am 11.10.2006 um 14:35 Uhr (0)
Hallo alle zusammen,wir haben mehrere (eigene) Maschinen für Catia Processe erstellt. Ich möchte nun die Maschinen überprüfen und ein Paar Sachen auslesen. Dazu möchte per VB ein ProcessDocument erstellen und diesem eine Maschine hinzufügen. Interaktiv geht es ja über: Doppelklick auf Aufspannung dann Klick auf Maschine und anschließend Maschine aus Dateiauswahl.Den Process anzulegen ist nicht das Problem aber wie bekomme ich die Maschine in die Aufspannung??Hat einer von Euch dieses Prozedere schon mal pe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Maschine in Prozess Dokument einfügen
Proofin am 16.10.2006 um 09:38 Uhr (0)
Hallo alle zusammen,nur falls es jemanden interesiert wie man eine MAschine zu einem Process per Skript hinzufügt.Vorraussetzung ist ein offenes ProcessDocument und das Produkt mit der kinematisierten Maschine. Set oPPRDoc = Catia.ActiveDocument.PPRDocument Set oPPRResources = oPPRDoc.Resources Set ActivityRef = oPPRDoc.Processes.Item("Process") *** Manufacturing SetUp suchen *** If (ActivityRef.IsSubTypeOf("PhysicalActivity")) Then Set Childs = ActivityRef.ChildrenActivities nChildCount = Childs.Count ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Gruppe erstellen
Proofin am 17.10.2006 um 13:35 Uhr (0)
Hallo AlfaRomeo,ich hab dein Skript mal erweitert:Language="VBSCRIPT"Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet oProduct = partDocument1.Product product vom PartDoc speichernSet part1 = partDocument1.PartSet hybridBodies1 = part1.HybridBodiesSet hybridBody1 = hybridBodies1.Add()part1.UpdateSet TheGroups = oProduct.GetTechnologicalObject("Groups") Groups speichernSet NewGroup = TheGroups.Addpart1.UpdateEnd SubGruß Proofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Gruppe erstellen
Proofin am 17.10.2006 um 15:16 Uhr (0)
für welches Catia Release ist das oder welche Lizenz braucht man dafür?Denn die Schaltfläche hab ich garnicht zur AuswahlGrußProofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Drawing-View / Verknüpftes DOkument
Proofin am 20.10.2006 um 14:44 Uhr (0)
Hallo Heiko,wenn du das soweit hast: Dim ReferenceComponent Set ReferenceComponent = drawingView1.GenerativeBehavior.Document.ParentDann solltest du mit: Catia.Documents.Open(ReferenceComponent.FullName)das verlinkte Dokument öffnen können.MfgProofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Probleme beim Umbennen von untergeordneten Products
Proofin am 25.10.2006 um 15:33 Uhr (0)
Hi BentelerBoy2,mit Warnungen ausschalten CATIA.DisplayFileAlerts = False ... Dein Code ... wichtig Alarm wieder einschalten es werden solange keine Warnungen mehr angezeigt bis diese Eigenschaft wieder auf TRUE gesetzt wird auch nicht nach dem Beenden von CATIA CATIA.DisplayFileAlerts = Truesollten die Meldungen nicht mehr erscheinen.Gruß Proofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter erkennen
Proofin am 25.10.2006 um 10:56 Uhr (0)
Hi Timberwolve,was willst du mit dem Parametern machen??Wenn du die Werte der Parameter auslesen willst brauchst du den Typ.Mit Dim sValue as String Set Param1 = Catia.ActiveDocument.Part.Parameters.Item(5) sValue = Param1.ValueAsStringbekommst du den Wert als String.GrußProofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente aus Geometrischen Set in txt-File exportieren
Proofin am 06.11.2006 um 09:17 Uhr (0)
Hi Matthias,ich hab dein Skript mal erweitert für das Auslesen von Punkten, Linien und Kreisen.Const sPOINT = "HybridShapePoint"Const sLINE = "HybridShapeLine"Const sCIRCLE = "HybridShapeCircle"Const sFILEPATH = "C:Dokumente und EinstellungenAll UsersDesktopexport.txt"Sub CATMain() Was soll selektierbar sein Dim sSel Dim UserSelection Dim EnableSelectionFor(0) Dim oHybridbody Dim aCoord(2) Dim aPoints(8) Dim oStream Dim oShapes Dim ii Dim oSpaWB As SPAWorkbench Dim oMeas As Measurable Dim oDatei Dim sType ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente aus Geometrischen Set in txt-File exportieren
Proofin am 06.11.2006 um 13:50 Uhr (0)
Ich hab noch eine Lösung für die Nachkommastellen,hier mal das geänderte Skript:Const sPOINT = "HybridShapePoint"Const sLINE = "HybridShapeLine"Const sCIRCLE = "HybridShapeCircle"Const sFILEPATH = "C:Dokumente und EinstellungenAll UsersDesktopexport.txt"Sub CATMain() Was soll selektierbar sein Dim sSel Dim UserSelection Dim EnableSelectionFor(0) Dim oHybridbody Dim aCoord(2) Dim aPoints(8) Dim oStream Dim oShapes Dim ii Dim oSpaWB As SPAWorkbench Dim oMeas As Measurable Dim oDatei Dim sType EnableSelec ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente aus Geometrischen Set in txt-File exportieren
Proofin am 15.11.2006 um 19:24 Uhr (0)
Nein mit dem oMeas kommst du bei 2D nicht weiter!!Funktioniert nur mit 3D.Du kannst aber die Sachen direkt abfragen:Type des GeoElement abfragensType = TypeName(osketchelement) wenn KreisIf InStr(1, sType, sCIRCLE2D) 0 Then Bis hier läufts, nun muß ich aber Eigenschaften wie den Mittelpunkt abfragen dim a2DCoord(2) osketchelement.Radius osketchelement.GetCenter(a2DCoord)end ifFür die Linie kannst du GetEndPoints(aCoords) verwenden mit aCoords(3)aCoords(0) - x erster PunktaCoords(1) - y erster PunktaCoord ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente aus Geometrischen Set in txt-File exportieren
Proofin am 22.11.2006 um 11:11 Uhr (0)
Moin Matthias,das liegt an dem Suchstring: in dieser selektion die achsessysteme selektieren Call sSel.Search("Typ=Achsensystem,sel")Diesen String muß du in der englischen Version anpassen, ich hab es nicht im englischen getestet.müßte dann sowas sein wie: in dieser selektion die achsessysteme selektieren Call sSel.Search("Type=Axis System,sel")aber wie gesagt hab ich nicht getestet. Das kannst du aber auch in Catia ausprobieren, wenn in das Menü "Bearbeiten/Suchen..." gehst. Da siehst du die Suchstrings ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente aus Geometrischen Set in txt-File exportieren
Proofin am 24.11.2006 um 18:42 Uhr (0)
Hi Matthias,ich habe gerade den Suchstring mal im englischen ausprobiert, also bei mir funktioniert es. Mein Aufruf lautet: sSel.Add (oHybridbody) sSel.Search ("Type=Axis System,sel")Was die 2D Punkte angeht kannst du folgendes in die Abfrage der Skizzen einbauen:-------------------------------------------------Code------------------------------------------------- wenn Kreis ElseIf InStr(1, sType, sCircle2D) 0 Then Set oRef = CATIA.ActiveDocument.Part.CreateReferenceFromObject(oGeoElements.Item( ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : koordinaten aus Excel
Proofin am 01.12.2006 um 10:24 Uhr (0)
Hi Tobi,ich hab hier mal ein einfaches Beispiel für dich. Das Beispiel habe ich im VBA Editor von CATIA erstellt.------------------------------Code------------------------------Sub CATMain() Dim oExcel As Application Dim oWB As Workbook Dim oWS As Worksheet Dim XCoord As Double Dim YCoord As Double Dim ZCoord As Double Dim nRow As Integer Dim oPart As Part Dim oHybShapeFac As HybridShapeFactory Dim oPoint Dim oMainBody As Body Excel starten Set oExcel = CreateObject("Excel.Application") oExcel.Visible = ...
|
| In das Form CATIA V5 Programmierung wechseln |
