|
CATIA V5 Programmierung : Geometrie aus dem Blatthintergrund
cevk am 21.01.2008 um 11:58 Uhr (0)
Hallo zusammen,Ich habe ein "fremdes" Makro, das mir entsprechend meinen Zeichnungsrahmen anpasst, die Indexstände ändert und meine Schriftkopfeinträge wunderbar verwaltet. Kurzum ein dolles Ding.Jetzt haben wir noch ein eigenes Makro das Messpunkte aus einem Part ausliest, eine Tabelle aus Linien und Texten in den Blatthintergrund erstellt und die Werte der Messpunkte einträgt.Wenn ich aber jetzt das Zeichnungsblatt (Größe) ändere, Löscht das erste Makro den kompletten Blatthintergrund, das bedeutet meine ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrie aus dem Blatthintergrund
cevk am 22.01.2008 um 08:17 Uhr (0)
Hallo Zoltan,Hallo Lusilnie,viiiiiiiiiiiiiiiiiieeeeeeeeeeelen Dank, ihr habt mir sehr geholfen, lasst Euch umarmen KlKr. Habe noch eine Kleinigkeit modifiziert.Code:Sub copieren() Set drwdocument = CATIA.ActiveDocument Set DrwSheets = drwdocument.Sheets Set DrwSheet = DrwSheets.ActiveSheet Dim selection3 As Selection Set selection3 = drwdocument.Selection selection3.Clear selection3.Add DrwSheet.Views.Item(2) selection3.Search ("Name=*Testlinie*,all") selection3.Copy selection3.Clear selectio ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinatenpunkte verschieben
cevk am 25.01.2008 um 15:23 Uhr (0)
Hallo Taylor Herzlich willkommen im Forum Habe leider keine Vollständige Lösung für Dich aber ich fang mal an vieleicht können die Anderen noch etwas beitragen.Code:_____________________________________________________________________________Sub Punkteverschieben()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim selection1 As SelectionSet selection1 = partDocument1.SelectionDim hybridShapeFactory1 As HybridShapeFactorySet hybridSh ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinatenpunkte verschieben
cevk am 28.01.2008 um 09:25 Uhr (0)
Hallo Taylor912,Hier der ganze Code:-------------------------------------------------------------------Sub Punkteverschieben()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim selection1 As SelectionSet selection1 = partDocument1.SelectionDim hybridShapeFactory1 As HybridShapeFactorySet hybridShapeFactory1 = part1.HybridShapeFactoryDim hybridShapePointCoord1 As HybridShapePointCoordDim auswahlElement As SelectedElementDim XVerschDim ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
