|
CATIA V5 Programmierung : Absoluter Link einer Ansicht (View) Objektverbindungen abfragen...
K.Siebert am 04.09.2008 um 18:27 Uhr (0)
Hallo CATMikeMmhh frage doch mal bitte mit einer msgbox direkt nach der Deklaration was er ÜbergibtBitte beschreibe doch mal was du mit dem Skript Automatisieren möchtet.PS: ist die Ansicht die du ansprichst Aktiv ?Führe mal Bitte dieses Skript aus:Code: Dim drawingDocument1 As DocumentSet drawingDocument1 = CATIA.ActiveDocument Dim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.Sheets Dim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.ActiveSheet Dim drawingViews1 As ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elternteil einer Selection?
K.Siebert am 25.09.2008 um 14:33 Uhr (0)
Bitte schön http://ww3.cad.de/foren/ubb/Forum134/HTML/002619.shtml#000022 Edit: Code eingefügt "Speicherpfad zum Part o. Product lesen und Zeichnung Speichern"Code:If TypeName(oDocument) = "DrawingDocument" Then__________________Ansicht bestimmen_________________________________Dim drawingDocument1 As DocumentSet drawingDocument1 = CATIA.ActiveDocumentDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.ActiveShee ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Windowsdateiname von CATPart zu Teilenummer Makro
K.Siebert am 09.10.2008 um 15:08 Uhr (0)
Sollte so gehen (nicht Getestet)Code:Sub CATMain()Code_von_Makro1Code_von_Makro2End SubSub Code_von_Makro1()Set specsAndGeomWindow1 = CATIA.ActiveWindowSet viewer3D1 = specsAndGeomWindow1.ActiveViewerSet viewpoint3D1 = viewer3D1.Viewpoint3Dviewer3D1.Reframe Set viewpoint3D1 = viewer3D1.Viewpoint3DCATIA.ActiveDocument.Product.Partnumber = Left(CATIA.ActiveDocument.Name, Len(CATIA.ActiveDocument.Name) - 8)Set partDocument1 = CATIA.ActiveDocumentpartDocument1.Save partDocument1.Close End SubSub Code_von_Makro ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Pfadbearbeitung von FileSelBox Eingabe
K.Siebert am 20.10.2008 um 12:56 Uhr (0)
Hallo Ghat,So könnte es aussehen ist nicht getestetCode:Language="VBSCRIPT"Sub CATMain() Set partDocument1 = CATIA.ActiveDocument Pfad = CATIA.ActiveDocument.Path Name oder FullName oder PathName = CATIA.ActiveDocument.Name Name oder FullName oder PathfileName = CATIA.FileSelectionBox("FileSave", "*.CATPart", CATFileSelectionModeSave) Eingabe = Left(fileName, InStrRev(fileName, "") )FileNameEx = Eingabe & "" & "SHADOW" & "" & Namemsgbox fileNamemsgbox FileNameExIf fileName "" then partDocument1.SaveAs Fil ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Pfadbearbeitung von FileSelBox Eingabe
K.Siebert am 20.10.2008 um 19:02 Uhr (0)
Aus dem Stehgreif nicht,aber hier eine kleine hilfeFolgendes habe ich mit dem Makro Rekorder aufgezeichnetTools- Makro - Makroaufzeichnung StartenCode:Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = partDocument1.Selectionselection1.Clear Dim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodySet hybridBody1 = hybridBodies1.Item("Geometrisches Set.1")s ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part in einem Product anwählen
K.Siebert am 03.11.2008 um 17:13 Uhr (0)
Hallo KnowledgeSo kannst du denn Namen oder den Pfad abfragen. Diese Abfrage ist immer für das Aktive FesterBei FullName bekommst du alles Pfad und Name als StringCode:Set partDocument1 = CATIA.ActiveDocument Pfad = CATIA.ActiveDocument.Path Name oder FullName oder PathName = CATIA.ActiveDocument.Name Name oder FullName oder Pathmsgbox Namemsgbox PfadUnd so kannst du alle Parts Selektieren und den Namen Auslesen (PartName)Code:Dim UserSelektion As SelectionSet productDocument1 = CATIA.ActiveDocument ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Linie auf Blatthintergrund erstellen
K.Siebert am 14.11.2008 um 21:10 Uhr (0)
Hallo zusammen,Ist nicht getestet und aus einem anderem Skript KopiertCode:__________________In den Hintergrund wecheln_________________________________Set oDraw = CATIA.ActiveDocument Zeichnung als aktives Dokument bestimmenSet oSheets = oDraw.SheetsSet oSheet = oSheets.ActiveSheetoSheet.ActivateSet oViews = oSheet.ViewsoSheet.Views.Item(2).Activate BLATT001 aktivierenSet oView = oViews.Item(2)oView.Activate____________________________________________________ ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Teilenummer an DrawingText
K.Siebert am 28.11.2008 um 09:57 Uhr (0)
Hallo hawu Das steht zwar nicht direkt drin aber du hast da schon die Lösung denn du möchtest doch die ausgelesene PartNumer (Beitrag von bgrittmann) noch aufteilenDas wird da gemachtCode:__________________________________ STRING zerlegen ____________________________vTXT = Left(Name, InStrRev(Name, ".") - 1)BenennTXT = Right( vTXT, Len( vTXT) -18 ) Right LeftPosTXT1 = Left(vTXT, InStrRev(vTXT, "_") - 1)PosTXT2 = Right( PosTXT1, Len( PosTXT1) -14 ) Right LeftAuftragNrTXT1 = Left( PosTXT1, Len( PosTXT1) -9 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SaveAs klappt nicht
K.Siebert am 04.12.2008 um 12:56 Uhr (0)
Hallo,Hier ist eine Diskussion über SaveAs http://ww3.cad.de/foren/ubb/Forum137/HTML/002554.shtml und du musst den Kompletten Pfad angeben das Verzeichnis list du mit Path aus hier ein LösungsvorschlagCode:__________________________Dateipad LESEN___________________________________________Dateipfad = drawingView1.GenerativeBehavior.document.ReferenceProduct.Parent.PathFullName = drawingView1.GenerativeBehavior.document.ReferenceProduct.Parent.FullnameName = drawingView1.GenerativeBehavior.document.Reference ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Vom Sruckturbaum Teile Zählen und die Gesamtstückzahl auslesen.
K.Siebert am 07.03.2009 um 19:21 Uhr (1)
Hallo zoltan.bekesiDanke für deine schnelle Antwort!Das Hilft mir bestimmt zur Zeit lese ich zwar nur Bahnhof Ich versuche dann mal das auf Catia anzupassen Könntest du mit noch einen gefallen tun und mit einer msgbox mit dem Ergebnis der Zahl einbauen denn ich muss zugeben ich bin noch nicht der Beste Programmiererhier ist (sind) beiträge zum rekursive durchgehen des Baumes http://ww3.cad.de/foren/ubb/Forum137/HTML/001796.shtml oder hier http://ww3.cad.de/foren/ubb/Forum137/HTML/002334.shtml#000000 PS: de ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenzlink aus Drawing
K.Siebert am 12.03.2009 um 18:57 Uhr (0)
Hallo,so könnte das Aussehenich lese mir den Pfad zum Part/Product über die Vorderansicht aus.Code:__________________Ansicht bestimmen_________________________________Dim oDrwDocument As DocumentSet oDrwDocument = CATIA.ActiveDocumentDim oDrwSheets As DrawingSheetsSet oDrwSheets = oDrwDocument.SheetsDim oDrwSheet As DrawingSheetoDrwDocument.Sheets.Item(1).ActivateSet oDrwSheet = oDrwSheets.ActiveSheetDim oViews As DrawingViewsSet oViews = oDrwSheet.ViewsDim oView As DrawingViewSet oView = oViews.ActiveView ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Anfängerfrage Reframe / FileSelectionBox
K.Siebert am 18.03.2009 um 16:25 Uhr (0)
HalloSchon mal so probiert ?Code:sInputFile = CATIA.FileSelectionBox("Part auswaehlen und ab gehts!", "*.CATPart", CatFileSelectionModeOpen) Set oDoc = CATIA.Documents.Open(sInputFile)------------------ Sei Schlau bleib Dumm !!?!!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Anfängerfrage Reframe / FileSelectionBox
K.Siebert am 18.03.2009 um 16:55 Uhr (0)
Ja fast bis auf CATIASet oDoc = CATIA.Documents.Open(sInputFile)------------------ Sei Schlau bleib Dumm !!?!!
|
| In das Form CATIA V5 Programmierung wechseln |
