---

Hallo Zusammen,

ich möchte in einer Zeichnung alle Texte um einen Wert in X verschieben.
Makro-Editor und alle mir bekannten Doku's : Fehlanzeige.

Views etc. sind klar. Mir fehlt nur der Befehl zum Verschieben !

Hat jemand einen Lösungsansatz ?

(Nachtrag
Die Punkte der einzelnen Elemente(Linie, Kreis, Text etc.) zu veraendern ist eine Lösung.
Gibt es noch die Lösung der Vektorverschiebung des ganzen Elementes ?

(mytext.X = mytext.X - 2 ist eine Möglichkeit fuer Texte)

Vielen Dank im Voraus

Louis

[Diese Nachricht wurde von louis am 29. August 2003 editiert.]

[Diese Nachricht wurde von louis am 29. August 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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 Schwarzwald
Viktor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo vk,

ich hatte vor Jahren (so Anno 2001) mal eine Programmierung versucht, bei der Linien gedreht und verschoben wurden. Dabei mußte ich die Koordinaten umrechnen, die zu den Linien gehören.

Viele Grüße in den schwäbischen Busch,

CEROG

------------------
CATIA-FAQ

http://www.cad-gaenssler.de

---

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)+TranslationX, Origin(1)+TranslationY, Direction(0), Direction(1)
            End If
Next
-------------------------------------------------------------------------------------------

Aber in VB wird GetOrigin und GetDirection nicht unterstützt.
Damals Ano 2001 war das noch möglich. 

Wir aus dem schwäbischen Busch sind auch nicht auf den Kopf gefallen.

------------------
Grüße aus dem Schwarzwald
Viktor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

Nach dem Schreiben des Postings ist es mir eingefallen:

Genau das ist der Lösungsweg !

Ich weiche einfach auf das CATScript aus.

Aufruf:

        Dim SServ, LibPath, ScriptName, FunctionName
        Dim Params(1)
        Params(0) = difbreite
        Params(1) = difhoehe
        Set SServ = CATIA.SystemService
        LibPath = "D:\temp" 'Verzeichnis in dem das Makro liegt
        ScriptName = "Verschieben.CATScript"
        FunctionName = "CATMain"
        Call SServ.ExecuteScript(LibPath, catScriptLibraryTypeDirectory, ScriptName, FunctionName, Params)

Das CATScript:

Public DrwDocument                As DrawingDocument
Public DrwSheets                    As DrawingSheets
Public DrwSheet                      As DrawingSheet
Public DrwView                        As DrawingView
Public DrwTexts                      As DrawingTexts

Public Text                              As DrawingText
Public Line                                As Line2D
Public GeomElems                    As GeometricElements
Public Hoehe                        As Double            'Blatt Höhe
Public Breite                            As Double            'Blattbreite
Public TranslationX                As Double            'Horizontal translation to operate when changing standard
Public TranslationY                As Double            'Vertical  translation to operate when changing standard

Sub CATMain(TranslationX, TranslationY)

  Set DrwDocument = CATIA.ActiveDocument
  Set DrwSheets  = DrwDocument.Sheets
  Set DrwSheet    = DrwSheets.ActiveSheet
  Set DrwView    = DrwSheet.Views.ActiveView
  Set DrwTexts    = DrwView.Texts
  Set GeomElems  = DrwView.GeometricElements
  Dim rootName As String
  Dim rootNameLength As Integer
  Dim NbLineToMove  As Integer
  Dim NbTextToMove As Integer
  Dim Origin(2)
  Dim Direction(2)

  rootName      = "MessTabLine"
  rootNameLength = Len(rootName)
  NbLineToMove  = GeomElems.Count
  For i = 1 To NbLineToMove
    Set Line = GeomElems.Item(i)
    If  (Left(Line.Name, rootNameLength) = rootName) Then
      Line.GetOrigin(Origin)
      Line.GetDirection(Direction)
      Line.SetData Origin(0)+TranslationX, Origin(1)+TranslationY, Direction(0), Direction(1)
    End If
  Next

End Sub

vieleich hilft's ja noch Jemand.

------------------
Grüße aus dem Schwarzwald
Viktor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Jahre später, aber mir hat es gerade geholfen.

------------------
Gruß Michael B.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP