---

Hallo Leute,

bisher ging alles gut. Nur heute stadn ich vor einem problem was
mir etwas zu denken gibt.
Ich schreibe meine kleinen Progrämmchen in VBA und kompiliere sie später mit VB zu einer exe.

Vor kurzem habt ihr mir geholfen die Drawingview auszulesen.
Durch eure Tips ist dann folgendes Entstanden:

Sub SetDV()
   
'get the selected drawing view and set "SelectedDV"
    If GetSelectedDV(objDoc, objDV) Then
        SelectedDV = objDV.Name
    End If
   
    If SelectedDV = "" Then
        MsgBox "No drawing view selected. Select a drawing view and run the macro again."
        End
    End If
 
End Sub

'this Function returns the selcted drawing view
Function GetSelectedDV(ByVal objDft As Object, ByRef objDW As Object) As Boolean
 
  On Error GoTo ErrorHandler
 
    If objDft.SelectSet.Count <> 1 Then Exit Function
    If objDft.SelectSet(1).Type = igDrawingView Then
        Set objDW = objDft.SelectSet(1)
        GetSelectedDV = True
    End If
ErrorHandler:

End Function

Nun zu meinem Problem:
In VBA bekomme ich in SelectedDV die aktuelle, gewählte
Drawing view zurück (muss vor dem Programmstart markiert sein)

Starte ich das ganze aus VB Studio 6 bekomme ich keinen Wert zurück.
Obwohl eine Drawingview in SE gehighlighted ist.

Hat jemand eine Idee? Ich bin kein profi im programmieren.

cya
AMG

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

---

So sollte es gehen. Ich hab das zwar nur als Main() gemacht. Aber als Funktion müsste es auch gehen.
Gewählt werden dar nur eine einzelne Zeichnungsansicht.
Ist es wie gewünscht?

*******************
Dim objApp As SolidEdgeFramework.Application
Dim objDocDraft As SolidEdgeDraft.DraftDocument
Dim objView As SolidEdgeDraft.DrawingView

Private Sub main()
Set objApp = GetObject(, "SolidEdge.Application")

If objApp.ActiveDocument.Type = igDraftDocument Then
        Set objDocDraft = objApp.ActiveDocument
Else
        Exit Sub
End If

Select Case objDocDraft.SelectSet.Count
    Case 0
            MsgBox "Selectset empty. Please select one DrawingView."
    Case 1
        If objDocDraft.SelectSet(1).Type = igDrawingView Then  '1298446368
            Set objView = objDocDraft.SelectSet(1)
            MsgBox "Ich bin drin" & Chr(13) & Chr(13) & "Name= " & objView.Name
        Else
            MsgBox "Selected Object is not a Drawing View."
        End If
    Case Else
            MsgBox "Selectset contains more than 1 Element. Please select one DrawingView."
End Select

End Sub

------------------
APeters@BSS-Online.de

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

---

Hallo,

also ich versteh das wirklich nicht.
Ich hab jetzt die Funtion aufgelöstund im Sub integriert.
In VBA funktionierts, in VB bekomme ich einfach keine
Drawingview zurück.

Eine Idee Warum????

cya
AMG

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

---

hmm, VBA ist ja nur ein Subset von VB und laeuft z.T. etwas
anders. Es koennte also durchaus sein, das das Coding in
VB einen Fehler erzeugt *und* noch ein 'On error resume next'
wirksam ist -- dann wird der Fehler ja schlicht und ergreifend
ignoriert. War nur mal so 'ne Idee ...

Klaus

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

---

Hallo amg13,

meines Wissens gibt es bezüglich des SolidEdge.Application Objects keinen Unterschied zwischen VB und VBA, hast du dein objDoc in VB überprüft? Wie sieht es mit Option Explicit aus?

pablo

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

---

Export.zip

Bevor wir hier spekulieren,

ist hier der Code und das Formular.

Schaut doch einfach mal drüber vielleicht kann mir jemand sagen
was nicht korrekt ist.

cya
AMG

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

---

... laeuft, wo ist das Problem? Einen ausgewaehlten View bekomme
ich on VB 6/Sp 4 V14/Sp6 zu fassen ...

Klaus

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

---

Kill_Balloons.zip

hi,

also nun dreh zweifle ich echt!
Kannst Du mir das Exe zukommen lassen :-)

Hier einmal das EXE das ich mit unserem VB Studio 6.
erzeugt habe.

Probier doch mal bitte aus ob das bei Dir funktioniert (Option3)

Danke,
AMG

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

---

Image1.jpg

hast Du an das Setzen der Project Properties in VB gedacht?
sonst laeuft naemlich nix
Die SE Constants sollten auch gesetzt sein

Klaus

[Diese Nachricht wurde von modeng am 12. Mai. 2004 editiert.]

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

---

Danke Klaus,

das wars. Ohne diesen Tip wäre ich noch zum Elch geworden.
Es hat ein Häckchen gefehlt.

schönen Tag noch, nun bin ich wieder beruhigt.
ciao
AMG

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

---

Eine kleine frage hab ich noch.

Wenn ich das programm ausführe (es macht das was es soll)
und ich schau in den Taskmanager gibt es selbst nach beenden von SE
einen Prozess der Killballoon.e (nicht exe sondern nur*.e) heißt.
muss ich noch ne zeile einabuen damit der prozess auch verschwindet?

cya
AMG

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

---

irgendwo in dem Coding hiess es Kill_Balloon.Hide und sicher ist
das Window noch aktiv es wird also so sein, dass noch auf das
Beenden dieser Form gewartet wird ergo vor dem VB command END
sollte noch ein  unload Kill_Balloon kommen. Die Logik des KillBallon
ist etwas gewoehungsbeduerftig ...

Klaus

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

---

Hallo Klaus,

danke für den Hinweis mit dem unload.

Warum ist die Logik des Programms etwas gewöhnungsbedürftig?

Wie würde man es besser machen, bzw. was ist so unlogisch?

cya
AMG

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