|
CATIA V5 Programmierung : Probleme mit GetCoordinat bzw. SetCoordinate
bgrittmann am 04.11.2010 um 10:10 Uhr (0)
ServusVersuch es mal so:Code:Sub CATMain()Geometrisches Set in Bearbeitung definieren!Set Dokument = CATIA.ActiveDocumentSet PunktePart = Dokument.PartSet Hbody = PunktePart.HybridBodies.Item("Punkte")Set selection1 = Dokument.Selectionselection1.Clearselection1.Add Hbodyselection1.Search "CATGmoSearch.Point,sel"AnzahlSelekt = selection1.CountMsgBox (AnzahlSelekt)Set Auswahl = selection1.Item(1).ValueDim acoord(2)Auswahl.GetCoordinates acoordMsgBox ("x=" & acoord(0) & ", y=" & acoord(1) & ", z=" & acoord(2 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Linien in Frame Entfernen
bgrittmann am 08.11.2010 um 12:31 Uhr (0)
ServusAnbei ein Beispiel:Code:Sub CATMain()Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.Item("Blatt .1")Dim drawingViews1 As DrawingViewsSet drawingViews1 = drawingSheet1.ViewsDim drawingView1 As DrawingViewSet drawingView1 = drawingViews1.Item("Background View")Dim geometricElements1 As GeometricElementsSet geometricElements ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Umwandlung von STEP Dateien in Catia V5
bgrittmann am 10.11.2010 um 10:39 Uhr (0)
ServusDu könntest doch auch die Dienstprogramme (Tools - Dienstprogramme) zu Batch-Konvertierung verwenden.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : View Achse ausblenden
bgrittmann am 16.11.2010 um 22:00 Uhr (0)
ServusDas sollte mit Bearbeiten - Suchen gehenMit Hilfe des Makrorekorders und etwas Nacharbeit bekommt man zB so ein Script:Language="VBSCRIPT"Sub CATMain()Dim drawingDocument1 As DocumentSet drawingDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = drawingDocument1.Selectionselection1.Search "(CATSketchSearch.2DAxis_VDirection + CATSketchSearch.2DAxis_HDirection),all"Dim visPropertySet1 As VisPropertySetSet visPropertySet1 = selection1.VisPropertiesvisPropertySet1.SetShow 1select ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product öffnen und Partname auslesen
bgrittmann am 16.11.2010 um 22:46 Uhr (0)
ServusAnbei ein paar Beispiele wie man an Name/Pfad/... drankommt (siehe auch Doku):Code:Sub CATMain()Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim product1 As ProductSet product1 = productDocument1.ProductDim products1 As ProductsSet products1 = product1.ProductsDim product2 As ProductSet product2 = products1.Item(1)ExemplarnameMsgBox product2.NamePartNumberMsgBox product2.PartNumberDateinameMsgBox product2.ReferenceProduct.Parent.NamePfadMsgBox product2.ReferencePr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : View Achse ausblenden
bgrittmann am 17.11.2010 um 07:20 Uhr (0)
ServusIn den Standards kann man dies einstellen (CATIA im Admin-Modus starten).GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kinematik
bgrittmann am 19.01.2009 um 12:30 Uhr (0)
ServusDu musst den Mechanismus richtig deklarieren. Ich vermute:Code:dim product1 as productset product1 = catia.activedocumetdim mechanismus as mechanismset machanismus = product1.mechanisms.add()GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.[Diese Nachricht wurde von bgrittmann am 19. Jan. 2009 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schnittpunkt von 2 Geraden
bgrittmann am 15.08.2011 um 10:54 Uhr (0)
ServusWillkommen im Forum. Bitte Systeminfo ausfüllen.Du könntest kurzfristig die Fehlerbehandlung ausschalten, dann das Update durchführen und Fehlernummer auslesen. Entsprechende kannst d dann eine Fehlermeldung ausgeben und das Makro beenden bzw die Intersection löschen.Beispiel:Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridShapeFactory1 As hybridShapeFactorySet hybridShapeFactory1 = part1.hybridShapeFa ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Properties auslesen
bgrittmann am 31.08.2010 um 12:56 Uhr (0)
ServusHier (und in der Doku) findest du wie UserDefinedproperties erstellt werden. Und mit:Code:set oProduct = CATIA.activedocument.productmsgBox oProduct.PartNumbermsgBox oProduct.RevisionmsgBox oProduct.Nomenclature...Kommst du an die "alten" (noch nicht überschriebenen) Wert ran.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter auslesen
bgrittmann am 06.12.2010 um 19:44 Uhr (0)
ServusDu könntest einfach über eine Schleife den Parameter abfragen und wenn die entsprechende Bedingung nicht erfüllt ist das Makro abbrechen:Code:Sub CATMain()Dim oProduct As ProductDim oParameter As ParameterDim Box As StringSet oProduct = CATIA.ActiveDocument.ProductFor Each oParameter In oProduct.Parameters.RootParameterSet.AllParameters If oParameter.Value = "B" Then Box = MsgBox("Der Parameter " + oParameter.Name + " ist nicht zugewiesen." + Chr(10) + "Das Makro kann nicht ausgeführt werden und ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part oder Product aus Drawing öffnen
bgrittmann am 13.12.2010 um 12:38 Uhr (0)
ServusBei mir läuft der Code, mit kleinen Änderungen (oName statt oFullname verwenden und oName = oProduct.Fullname) durch: Code:Sub CATMain()On Error Resume NextSet odoc = CATIA.ActiveDocumentSet oView = odoc.Sheets.ActiveSheet.Views.ActiveViewSet oProduct = oView.GenerativeBehavior.Document.ParentoName = oProduct.FullNameIf Err.Number 0 Then Set oProduct = oView.GenerativeBehavior.Document.Parent.Parent.Parent oName = oProduct.FullName Err.ClearEnd IfOn Error GoTo 0MsgBox("oName = oProduct.FullName: ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part oder Product aus Drawing öffnen
bgrittmann am 13.12.2010 um 21:16 Uhr (0)
Servus StephanIch hab nochmal dein Beispiel ausprobiert, mit dem gleichen Ergebnis wie bei dir (kein Pfad wird ausgegeben).Aber, nach einem Neustart von CATIA lief das Makro wieder (CATIA = close and try it again)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkte auslesen
bgrittmann am 15.12.2010 um 13:21 Uhr (0)
ServusFolgendes Makro such dir alle Punkte in der gerade selektiereten Skizze:Code:Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet selection1 = partDocument1.Selectionselection1.Search "CATSketchSearch.2DPoint,sel"End SubDen Rest solltest du selbst hin bekommen.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
