---

Hallo zusammen,

mal eine Frage an die Experten. Gibt es die Möglichkeit in CATIA mittels der Selection Klasse einen Rahmen innerhalb einer Zeichnung (mittels zwei Koordinatenpaaren) zu definieren? Alles was innerhalb des Rahmens ist, sollte dann der Selection "zugeordnet" werden.

Hintergrund: Wir haben in bestimmten Zeichnungen ein Firmenlogo, das aus Linien, Polylinien, Punkten, Circles/Curves und Aera Fills besteht - die wiederrum nicht eindeutig benannt sind :-(. Dieses Logo soll gegen eine Bilddatei ausgetauscht werden. Damit das performant läuft wäre es hilfreich nur die entsprechende Geometrie zu löschen. Derzeit lösche ich den gesamten Hintergrund (Geometrie und Aera Fills) und tausche ihn aus. Die Performance ist da natürlich eher suboptimal.

Danke schon mal im voraus.
Gruß
Randle

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

---

Hallo Randle,

geht grundsätzlich schon, zB

Code:

---

Public Declare Function SetCursorPos Lib "User32.dll" (ByVal X As Integer, ByVal Y As Integer) As Long
'Public Declare Function GetCursorPos Lib "User32.dll" (ByRef lpPoint As Point) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2              ' left button down
Public Const MOUSEEVENTF_LEFTUP = &H4                ' left button up
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20            ' middle button down
Public Const MOUSEEVENTF_MIDDLEUP = &H40              ' middle button up
Public Const MOUSEEVENTF_RIGHTDOWN = &H8              ' right button down
Public Const MOUSEEVENTF_RIGHTUP = &H10              ' right button up

Sub CATMain()
  Dim drSht As DrawingSheet
  Dim drVw As DrawingView
  Dim oSel As Selection
 
  Set oSel = CATIA.ActiveDocument.Selection
  oSel.Clear

  CATIA.ActiveDocument.Activate
  Set drSht = CATIA.ActiveDocument.Sheets.Item(1)
  Set drVw = drSht.Views.Item("Front view")

  SetCursorPos 200, 200                                ' screen coordinates in pixel
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  SetCursorPos 1000, 1000
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
  DoEvents
  Debug.Print oSel.Count2
  CATIA.ActiveDocument.Activate
  SendKeys "{DELETE}"
 
End Sub

---

Die Gemeinheit dabei ist, dass api mouse events in Bildschirm-Koordinaten(pixel) angegeben werden,
Catia aber in mm denkt.
Um den Fangbereich gezielt einzugrenzen, müsstest vom Sheet auf die View rechnen;
danach das ganze durch die GetCursorPos-Abfrage zweier bekannter Catia-Positionen normieren.
Wenn das Sheet immer die gleiche Lage und Grösse hat, geht's wahrscheinlich auch mit probieren.

Ausserdem: Die Selektion bekommt von all dem nix mit.
          Die Methode bügelt über alle Views.

Hope it helps,
Joe

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

---

Vielen Dank für den Hinweis - sehr inspirierend. Ich werde mir das mit Sicherheit mal ansehen, allerdings sind wir hier gerade in einem Migrationprojekt (Fa. kauft Fa. = Datenmigration). D.h. ich werde (jetzt) nicht die Zeit haben besonders viel zu testen und "rumzuspielen". Die Lage des Logos hängt natürlich vom Blattformat ab. Wer zeichnet denn auch schon sein Logo und benennt die Elemente dann nicht einmal eindeutig. ;-(

Trotzdem Danke und Gruß
Randle

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