|
CATIA V5 Programmierung : 2D-Elemente verschieben (Translate/Move)
cevk am 23.01.2008 um 13:11 Uhr (5)
Hallo louis,Hallo Zusammen,Habe jetzt das gleiche Problem. Das mit den Texten ist klar aber Linien?Hast Du, oder jemand Anderst, eine möglichkeit gefunden das auch mit selections zu machen?------------------Grüße aus dem SchwarzwaldViktor
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 2D-Elemente verschieben (Translate/Move)
cevk am 23.01.2008 um 15:22 Uhr (1)
Hallo RG,Danke für Deinen Beitrag. Bei sehr vielen Linien ist das halt sehr aufwendig, da ich von jeder Linie erst einmal den Startpunkt auslesen muß. Das ginge im CATScript über:Code:-----------------------------------------------------------------------------------------For i = 1 To NbLineToMove Set Line = selection4.Item(i) Set Line = GeomElems.Item(10) If (Left(Line.Name, rootNameLength) = rootName) Then Line.GetOrigin (Origin) Line.GetDirection (Direction) Line.SetData Origin(0)+ ...
| | 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 |
|
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 |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
