|
CATIA V5 NC : Maschineneditor
bewnc am 23.03.2006 um 17:58 Uhr (0)
Hallo,ich habe mir ein Makro gebastelt.Sub CATMain()On Error GoTo Fehler Set actdoku = CATIA.ActiveDocument Set liste = actdoku.Selection anzahl = liste.Count If anzahl 1 Then MsgBox "Es darf nur eine Aufspannung selektiert werden!" Exit Sub End If Set aufsp = Nothing Set aufsp = liste.Item(1).Value If (aufsp.IsSubTypeOf("ManufacturingSetup")) Then Dim Machine1 As ManufacturingMachine Set Machine1 = aufsp.CreateMachine("Mfg3AxisMachine") Machine1.PreferedToolCatalogN ...
| | In das Form CATIA V5 NC wechseln |
|
CATIA V5 Programmierung : Drucker ansteuern
bewnc am 07.03.2007 um 12:43 Uhr (0)
Hallo Ole,ich arbeite mit VBA. Hier ein Auszug aus meinem Makro.Sub CATMain()On Error GoTo fehlerDim DrwDocument As DrawingDocumentSet DrwDocument = CATIA.ActiveDocumentDim DrwSheets As DrawingSheetsSet DrwSheets = DrwDocument.SheetsDim DrwSheet As drawingsheetSet DrwSheet = DrwSheets.ActiveSheetSet pageSetup1 = DrwSheet.PageSetuppageSetup1.Orientation = catPaperPortraitpageSetup1.LeftMargin = 3.5pageSetup1.RightMargin = -3.5pageSetup1.TopMargin = 0pageSetup1.BottomMargin = 0pageSetup1.MaximumSize = Truepa ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
