---

Hallo,

ich würde gerne per Macro das Material löschen, mit

swPart.SetMaterialPropertyName2 Config, MaterialDB, myMaterial

komme ich irgendwie nicht weiter. Ich kann zwar das Material wechseln (z.B. von Baustahl auf Gold) aber was muss ich dem String myMaterial
zuweisen, damit ich kein Material bekomme. Oder benutze ich den falschen Befehl? Der Macrorecorder zeichnet leider nichts auf.

Vielen Dank für Eure Hilfe
Gruß HaPe

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

---

Material löschen?! Wie stellst Du Dir das vor? Und dann? Was wohl SolidWorks dazu sagen würde? 

Ich habe einfach ein "Dummy" Material names "---". Wenn ich kein Material brauche, weise ich das zu.
Ich denke nicht, dass man das Material "löschen" kann...

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

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

---

vielen Dank für die Antwort,
ich habe mich etwas ungeschickt ausgedrückt      , das Macro soll das selbe leisten, was ich händisch mit -> Material bearbeiten -> Material entfernen bewirken kann. (Material <nicht festgelegt> )
Wenn ich Dich recht verstehe, müsste der String ein "nicht festgelegt"
enthalten.

/edit
Habe das gerade mal probiert, scheint aber so nicht zu funktionieren. Wie es aussieht kann ich nur Materialien zuweisen, die in der Materialdatenbank vorhanden sind.
/edit

Gruß HaPe

[Diese Nachricht wurde von HaPe am 12. Feb. 2008 editiert.]

[Diese Nachricht wurde von HaPe am 12. Feb. 2008 editiert.]

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

---

Hallo HaPe

http://ww3.cad.de/foren/ubb/Forum2/HTML/014092.shtml#000001

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Hallo,

das war auch mein erster Gedanke, nur leider funktioniert es nicht. Könnte es daran liegen, das das Teil mehrere
Konfigurationen hat und ich die Konfiguration nicht spezifiziert habe, in der Annahme, das dann die aktive Konfiguration bearbeitet wird?

Gruß HaPe

/edit
Habe es mit nur einer Konfig probiert, ohne Erfolg. Das Material ändern geht, löschen nicht!

Sub main()
    Dim swApp                      As SldWorks.SldWorks
    Dim swModel                    As SldWorks.ModelDoc2
    Dim swPart                      As SldWorks.PartDoc
    Dim sMatName                    As String
    Dim sMatDB                      As String
    Dim bRet                        As Boolean

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swPart = swModel

    sMatName = swPart.GetMaterialPropertyName2("", sMatDB)
    MsgBox ("  Material = " & sMatName & " (" & sMatDB & ")")

    sMatName = ""
    swPart.SetMaterialPropertyName2 "", sMatDB, sMatName

   
    sMatName = swPart.GetMaterialPropertyName2("Default", sMatDB)
    MsgBox ("  Material = " & sMatName & " (" & sMatDB & ")")
   
End Sub

/edit

[Diese Nachricht wurde von HaPe am 12. Feb. 2008 editiert.]

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

---

Hallo HaPe

Bei mir funktioniert dein Makro für die aktuelle Konfiguration ohne Problem (SWX2007 SP5).
Wieso es bei dir nicht tut...    

Anbei der umgeschriebene Code, der bei mir für alle Konfigurationen geht.

Code:

---

Sub main()
    Dim swApp              As SldWorks.SldWorks
    Dim swModel            As SldWorks.ModelDoc2
    Dim sMatName          As String
    Dim sMatDB            As String
    Dim vConfNameArr      As Variant
    Dim bRet              As Boolean
       
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc

    sMatDB = ""
    sMatName = ""
   
    vConfNameArr = swModel.GetConfigurationNames
   
    For i = 0 To UBound(vConfNameArr)
      bRet = swModel.SetMaterialPropertyName2(vConfNameArr(i), sMatDB, sMatName)
    Next i
     
End Sub

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Hallo Andreas,

schön zu hören, das es bei Dir läuft. Ich habe es gerade nochmal mit Deinem Code versucht, es ist zum verzweifeln
aber Solid läßt sich nicht dazu überreden das Material rauszuwerfen. 
Vielen Dank für Deine Hilfe.

Gruß HaPe

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