---

Hallo Freunde,

Jetzt kenn' ich zwar Makros zum Entfernen von Excel aus (MDT-Import-)Dateien, zum Fixieren aller BT, und sonst noch so Einige.
Aber was mir fehlt ist ein Tool zum Entfernen jedweder Adaptivität aus allen Skizzen und BT einer (tief verschachtelten) BG.

Kennt/hat Jemand Sowas?

------------------
mfg - Leo

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

---

Hallo Leo,

so ein Tool würde ich mir auch manchmal wünschen, kenne aber leider keines. Eventuell hilft jedoch beim manuellen Abschalten die Suchfunktion von IV (Bearbeiten / Suchen oder Strg F). Damit kann man alle Bauteile suchen, die adaptiv sind (Eigenschaft: Adaptiv, Bedingung: ist Ja) und danach mit RMK z.B. zur besseren Übersicht isolieren. Leider lässt sich die Adaptivität nicht sofort nach der Selektion mit der Suche für mehrere Bauteile gleichzeitig abschalten und schon gar nicht über Baugruppenebenen hinweg abschalten.

------------------
Michael Puschner
Autodesk Inventor Certified Expert
Scholle und Partner GmbH

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

---

Hallo Michael,

Das ist aber traurig. Denn so gut die Adaptivität in den Händen eines Könners ist, so besch*** ist sie in einem Riesen-Assembly, das von undisziplinierten Leuten erstellt wurde.

------------------
mfg - Leo

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

---

 

Zitat:

---

Original erstellt von Leo Laimer:
Hallo Michael,

Das ist aber traurig. Denn so gut die Adaptivität in den Händen eines Könners ist, so besch*** ist sie in einem Riesen-Assembly, das von undisziplinierten Leuten erstellt wurde.

---

Könnte jetzt auch so ein Tool gebrauchen.
Habe mir jetzt selber ein riesen Ei mit der Adaptivität gelegt.
Gibt es da wirklich noch keinen Knopf mit dem man die Adaptivität ohne Rücksicht auf Verluste löscht?

------------------

          Gruß
          Hans-Peter     

     

[Diese Nachricht wurde von SHP am 03. Nov. 2007 editiert.]

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

---

Hallo Hans-Peter, den Rumpf habe ich bereits mehrfach gepostet, aber OK. Hiermit kannst du die Adaptivität aus allen Unterkomponenten einer Baugruppe entfernen (sogar mit Report -> Boh Ey):

Code:

---

Dim sMessage As String

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
        "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation _
        As String, ByVal lpFile As String, ByVal lpParameters _
        As String, ByVal lpDirectory As String, ByVal nShowCmd _
        As Long) As Long

Sub KillAdaptivity()
    If ThisApplication.ActiveDocumentType <> kAssemblyDocumentObject Then
        MsgBox "Mach' erst die Baugruppe auf!", vbExclamation, "Keine Baugruppe"
        Exit Sub
    End If
   
    Dim oAsm As AssemblyDocument
    Set oAsm = ThisApplication.ActiveDocument
   
    If (oAsm.FullFileName <> "") Then
        sMessage = Format$(Now, "dd.mm.yyyy hh:mm:ss") + vbCrLf + oAsm.FullFileName + vbCrLf + vbCrLf
    Else
        sMessage = Format$(Now, "dd.mm.yyyy hh:mm:ss") + vbCrLf + "Baugruppe nicht gespeichert" + vbCrLf + vbCrLf
    End If
   
    sMessage = sMessage + "Deleting adaptivity..." + vbCrLf + vbCrLf
    ForAllComponents oAsm.ComponentDefinition.Occurrences
    sMessage = sMessage + vbCrLf + vbCrLf + "Have a nice day!" + vbCrLf + vbCrLf + "[FX64] daywa1k3r"
    ThisApplication.StatusBarText = "Bereit"
   
    Open "c:\temp.txt" For Output As #1
    Print #1, sMessage
    Close #1
   
    Call ShellExecute(0, "Open", "notepad.exe", "c:\temp.txt", "", 1)
End Sub

Sub ForAllComponents(oOccs As ComponentOccurrences)
    Dim oOcc As ComponentOccurrence
    For Each oOcc In oOccs
        On Error Resume Next
        oOcc.Adaptive = False
        sMessage = sMessage + "OK" + vbTab + vbTab + oOcc.Name + vbCrLf
        ThisApplication.StatusBarText = oOcc.Definition.Document.FullFileName
        If Err.Number <> 0 Then
            sMessage = sMessage + "Error: " + vbTab + Err.Description + vbTab + "Occurrence: " + oOcc.Name + vbCrLf
            Err.Number = 0
        End If
        ForAllComponents oOcc.SubOccurrences
    Next
End Sub

---

------------------
Grüße Igor

FX64 Software Solutions

[Diese Nachricht wurde von daywa1k3r am 04. Nov. 2007 editiert.]

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

---

Danke, werd ich gleich mal probieren.

------------------

          Gruß
          Hans-Peter    

  

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