---

Liegt vermutlich daran das Freitag ist aber heute klappt garnichts 

Hab ein Makro geschrieben in dem man in einem Product ein Part anklickt und dann werden an diesem verschiedene Funktionen durchgeführt. Jetzt wollte ich das Makro nur auf ein Part anwenden. Klappt natürlich auch aber es kommt jedes mal die Abfrage das man ein Part anklicken soll. Da ich aber nicht mehr in einem Product bin und somit nur ein Part vorhanden ist kann ich mir diese ja eigentlich sparen.

Ich bekomm es aber einfach nicht hin das mein Makro das Part auswählt und die Funktionen durchführt ohne das ich es manuel anklick. Dürfte ja eigentlich nicht so schwer sein aber wie gesagt es ist Freitag morgen 

Hoffe mir kann auf die schnell jemand weiter helfen damit ich bald Feierabend machen kann 

MfG Danny

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

---

also der bisherige code sieht so aus:

Code:

---

MsgBox "Part auswählen"

Set selection1 = activedoc.Selection
InputObjectType(0) = "Body"
       
Status = selection1.SelectElement2(InputObjectType, "Körper für Rohklotzerzeugung auswählen", False)
If (Status = "Cancel") Then
MsgBox "Makro wurde abgebrochen", 16, makroname + " " + version
Exit Sub
Else
       
Set usersel = selection1.Item(1).Value

---

Ich will halt das am Ende in der Variable "usersel" das selbe drin steht ohne das sich die MsgBox öffnet und ich das Part extra anklicken muß. Und wie gesagt es ist nur ein Part vorhanden und sonst nichts.

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

---

frage doch den Dokumententyp ab

Code:

---

'****
Const c_DocTypCATProduct = 1
Const c_DocTypCATPart = 2
Const c_DocTypCATDrawing = 3
'****

Function FCheck_Doctyp(oDoc)
   
    Dim sDocName
    sDocName = oDoc.Name
 
    If Right(sDocName, 10) = "CATDrawing" Then
        FCheck_Doctyp = c_DocTypCATDrawing
    ElseIf Right(sDocName, 10) = "CATProduct" Then
        FCheck_Doctyp = c_DocTypCATProduct
    ElseIf Right(sDocName, 7) = "CATPart" Then
        FCheck_Doctyp = c_DocTypCATPart
    Else
        FCheck_Doctyp = 0
    End If

End Function

Sub CheckDokument()
'Set CATIA = GetObject("", "CATIA.Application") 'xl-VB

Set oRDoc = CATIA.ActiveDocument
    iDoctyp = FCheck_Doctyp(oRDoc)
        If (iDoctyp <> c_DocTypCATProduct) And (iDoctyp <> c_DocTypCATPart) Then
            msg_Abbruch = "Dokument ist kein Produkt & kein Part"
            MsgBox msg_Abbruch & vbNewLine & "Stoppe das Macro", vbOKOnly + 16, "Fehler"
        Else
            If iDoctyp = c_DocTypCATPart Then
                oRDoc.Part.Update '--- part_document
            Else
                If iDoctyp = c_DocTypCATProduct Then
                                 '--- product_document
                End If
            End If
        End If
End Sub

---

[Diese Nachricht wurde von Thomas Harmening am 26. Jun. 2009 editiert.]

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