---

Hallo nochmal,

ich hab folgendes Problem komme aber auf absolut keinen
Grünen Zweig.

Ich habe ein Zeichnungsableitung von einem
ASM (vier Ansichten)
nun möchte ich mit VB (VBA) abfragen welche Ballons in einer freiwählbaren Ansicht positioniert sind.

Fragen:
A) wie muss programieren, damit ich mit der Maus die Ansicht wählen kann, um diese an das programm zuübergeben. (kleiner quellcode wäre net, mit dem ...\coustom\mouse komm ich nicht zurecht)

B) ich finde keinen Parameter der mir darüber auskunft gibt an welcher Ansicht welcher Ballon platziert ist.

Es wäre schön wenn Ihr ne Idee hättet.

MfG
AMG

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

---

Hallo AMG,

die prinzipielle Vorgehensweise ist folgende.
Zu prüfst zunächst ab ob der Anwender geklickt hat.
Danach fragts Du das 'SelectSet' ab, das enthält die Objekte die gerade markiert sind.

Jetzt prüfst Du ob eine Ansicht dabei ist, wenn ja nimmst Du die und suchst Dir dazu die 'Balloons' raus.

------------------
Gruß

Markus Gras
Unitec Informationssysteme GmbH

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

---

Hallo Marcus,

prinzipiell ist mir die Vorgehens weise schon klar.
Ich hab mit Programierung bisher nicht viel am hut gehabt.
Meistens waren es so kleine tools ohne Benutzer interaktion.
Deshalb wäre ein Beispiel für diese "Klickabfrage" eine große
Hilfe für mich.

Die Prfüfung ob eine Ansicht dabei ist würde ich schon hinbekommen.
Wie finde ich die dazugehörigen Ballons herraus.

Ich finde einfach kein Unterscheidungsmerkmal an dem ich die Balloons
selektieren könnte, er liefert mir immer, in meinem Fall 64 Ballons zurück, dass sind alle die auf dem Zeichenblatt positioniert sind.
Hast Du da ne Idee?

MfG
AMG

Jetzt prüfst Du ob eine Ansicht dabei ist, wenn ja nimmst Du die und suchst Dir dazu die 'Balloons' raus.

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

---

... daran denken; ist der 'Balloon' assoziiert und die Balloons
'haengen', so mir bekannt, am Blatt-Objekt

Klaus

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

---

Hallo amg13,

zu A
Private Sub Command1_Click()
Dim SelDW As SolidEdgeDraft.DrawingView

'objDft (Draft-Dokument) ermitteln
...
  If GetSelectDrawingView(objDft, SelDW) Then
    MsgBox SelDW.Name
  End If
End Sub

Die Funktion gibt die ausgewählte Ansicht an SelDW weiter:
Private Function GetSelectDrawingView(ByVal SEDft As SolidEdgeDraft.DraftDocument, _
                                      ByRef SelDW As SolidEdgeDraft.DrawingView) As Boolean
  On Error GoTo ErrorHandler
  If SEDft.SelectSet.Count <> 1 Then Exit Function
  If SEDft.SelectSet(1).Type = igDrawingView Then
    Set SelDW = SEDft.SelectSet(1)
    GetSelectDrawingView = True
  End If
ErrorHandler:
End Function

zu B
das liegt daran, das es keinen gibt.

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

---

Hallo pablo,

danke für den code, werde ich mich gleich mal drüber machen.

hast Du vielleicht ne Idee wie man herrausfindet an welcher View welcher balloon hängt.
Irgend wie muss das doch möglich sein, oder?

cya
AMG

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

---

hallo amg13,

dafür gibt es keine Möglichkeit, du kannst mit den Rangeobjekten der Views und des Balloons arbeiten, wahrscheinlich ist die Trefferquote ziemlich hoch, aber eine Verbindung zwischen View und Balloon gibt es leider nicht.

pablo

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

---

Hallo pablo,

wie meinst Du das mit den Rangeobjekten (ich bin ein absoluter Anfänger im bereich Programieren).

Kennst du eine Möglichkeit wie ich z.B. das element abfragen kann an
dem die Positionsnummer hängt. So das ich anschließend über dieses Object die Verknüfung zur View bekomme.

Danke,
AMG

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

---

... wird nicht gehen, da du nur bis zum Einzelteil sprich
Linie, Bogen etc. kommst aber damit immer noch nicht weisst
wozu das nun gehoert.

Klaus

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

---

versteh ich das richtig, ich kann den bogen, linie usw... an der der Balloon hängt ermitteln. Es gibt aber keine möglichkeit heraus zufinden in welcher View sich diese Linie befindet.
Hm, das ist nicht wirklich schön.

Verratet ihr mir wie ich das element herraus finde an dem ein Ballon hängt?

Mahlzeiz,
AMG

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

---

Hallo amg13,

Public Sub GetDWfromBalloon()
Dim objApp As SolidEdgeFramework.Application
Dim oBalloon As SolidEdgeFrameworkSupport.Balloon
Dim X As Double, y As Double, Z As Double
Dim bKeypoint As Boolean
Dim Terminator As Object
Dim GraphicMember As Object
Dim DrawingView As SolidEdgeDraft.DrawingView

    Set objApp = GetObject(, "SolidEdge.Application")
    If objApp.ActiveDocument.SelectSet(1).Type = igBalloon Then
      Set oBalloon = objApp.ActiveDocument.SelectSet(1)
    Else
      Exit Sub
    End If
    With oBalloon
      Call oBalloon.GetTerminator(Terminator, X, y, Z, bKeypoint)
      Set GraphicMember = Terminator.object
      Set DrawingView = GraphicMember.DrawingView
      Debug.Print DrawingView.Name
    End With
End Sub

sollte das erledigen, was du willst.

pablo

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

---

Thank you very much, dankeschön,

das hat mir weitergeholfen.

Bis Bald
AMG

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