---

Hallo zusammen,

im Forum wurd ja schon mal besprochen wie der Farbstil
eines Parts geändert werden kann.
Leider ändert sich dadurch bei mehrfach Verwendung in
einer Baugruppe alle Exemplare des Parts.
Es gibt die Möglichkeit unter Eigenschaften nur den Farbstil
eines Exemplares zu ändern.
Hat jemand einen Tipp, ob dies auch mit VB bzw. VBA geht.

------------------
Gruß Jörn

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

---

Schau mal in Deine PM

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

---

Tja, jetzt bin ich natürlich neugierig, was Vosta1 da als PM verschickt hat.
Werbung für eine Zusatzroutine oder echte Hilfe?
Warum dürfen die anderen Forumsmitglieder nichts davon wissen?

------------------
Mit freundlichem Gruß

Udo Hübner
----------
1. Sind Sie im Zweifel, murmeln Sie.
2. Sind Sie in Schwierigkeiten, delegieren Sie.
3. Sind Sie verantwortlich, denken Sie nach.

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

---

Also, ich wäre für ein Script welches die Threads nach Posts in der Art: "Schau mal in Deine PM" durchsucht, und ...Hm, schwer zu erklären... Ich versuche es mal mit dem Code:

Code:

---

For Each Thread in CAD-DE.Threads
  For Each Post in Thread.Posts
    If Post = "Schau mal in Deine PM" Then
      Thread.Delete ' !
      Post.Author.Account.Delete ' !!!
      CAD-DE.Users.Update
    End If
  Next
Next

---

Seas...

------------------
Grüße daywa1k3r

   

[Diese Nachricht wurde von daywa1k3r am 16. Dez. 2004 editiert.]

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

---

Hallo,
auf Grund der großen Nachfrage der Makro Entwurf.
Einige werden damit nichts anfangen können aber Jörn hats geholfen und
der hat auch die Frage gestellt und mir auch schon öfters mit Rat beigestanden! Deshalb die schnelle PM!!!!!!!!!!
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub CB_Farben_ändern_Click()
If Not ThisApplication.ActiveDocument.DocumentType = kAssemblyDocumentObject Then
        MsgBox "kein AssemblyDocumentObjekt", vbCritical
        Exit Sub
    End If

   

Dim oAsmDoc As AssemblyDocument
Set oAsmDoc = ThisApplication.ActiveDocument
Dim Farbe As String

'Hier Farben definieren, die in der Baugruppe vorhanden sind

If OB_orange.Value = True Then

Farbe = "Orange"

End If

'MsgBox OB_blaugrau.Value

If OB_blaugrau.Value = True Then

Farbe = "Blaugrau"

End If

' Get a reference to an occurrence in the assembly.
Dim oOcc As ComponentOccurrence

Dim Bauteil As String

Dim ende As Integer
ende = oAsmDoc.ComponentDefinition.Occurrences.Count

For i = 1 To ende
Set oOcc = oAsmDoc.ComponentDefinition.Occurrences.Item(i)

'MsgBox oAsmDoc.ComponentDefinition.Occurrences.Item(i).Name
Bauteil = oAsmDoc.ComponentDefinition.Occurrences.Item(i).Name

'Farbe1 = oAsmDoc.ComponentDefinition.OccurrencePath.Item(i)
'Farbe1 = oAsmDoc.ComponentDefinition.Occurrence.Item(i).Open

'oAsmDoc.ComponentDefinition.Occurrence.Item(i).Open
MsgBox Bauteil '& "    Farbe " & Farbe1

Mldg = ("Soll Farbe in " & Farbe & " geändert werden")

Stil = vbYesNo + vbExclamation + vbDefaultButton2    ' Schaltflächen
Titel = "Bauteil : " & Bauteil              ' Titel definieren.

Antwort = MsgBox(Mldg, Stil, Titel)                        ' Meldung anzeigen.

If Antwort = vbYes Then ' Benutzer hat "Ja"

' Set the render style for the occurrence.
oOcc.RenderStyle = oAsmDoc.RenderStyles.Item(Farbe)
'oOcc.RenderStyle = oAsmDoc.RenderStyles.Default

End If

Next i

FRM_Baugruppenfarbe.Hide

End Sub

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

---

Hallo CAD-Huebner,

Hab von dir auch noch nicht zuviele Beiträge gesehen.

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

Hallo daywa1k3r,

Du hast eindeutig das Recht dies zu bemängeln und du hast
auch recht nach meiner Meinung mit den "Schau mal in Deine PM", aberrrrrrr
SoŽn bisschen will ja auch jeder für sich behalten, oder?
Ich sag nur: ClientView, Hombree

------------------
Gruß Jörn

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

---

@yamaha
Versteh ich jetzt nicht - wenn du meine Beiträge lesen willst, kannst du dir doch einfach mein Profil ansehen.
@Vosta1
habe schon ein paar interessante Artikel von dir gelesen - top

Ich wollte nur erinnern, das das Forum für öffentliche Hilfe vorgesehen ist - natürlich kann man PMs verschicken - aber das dann öffentlich anzukündigen find ich blöd.
Solls privat sein, dann eben nur ne PM, aber ohne Ankündigung.
Vom Prinzip her sollten aber öffentlich im Forum gestellte Fragen auch öffentlich beantwortet werden, das machts ja gerade aus.

------------------
Mit freundlichem Gruß

Udo Hübner
----------
1. Sind Sie im Zweifel, murmeln Sie.
2. Sind Sie in Schwierigkeiten, delegieren Sie.
3. Sind Sie verantwortlich, denken Sie nach.

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

---

Hallo,

die Anworten sollten aber dann so verfasst sein, dass Sie eine Breite Masse versteht und frei von Beiwerk. Bei manchen Themen wird manchmal zu viel ablenkendes Beiwerk dazugeschrieben.
Ich versuche immer kleine lauffähige Sub's bereitzustellen, die jeder
versteht. In diesem Fall fehlte mir die Zeit aus diesem Grunde die PM.

Es hat schon seinen Grund warum hier immer wieder die selben Fragen gestellt werden siehe Inventor Forum.

MFG

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

---

Hallo Leute,

man ein anderer Ansatz zu den PMŽs:
Wieso bekommt man eigentlich keine E-Mail Benachrichtigung
wenn man eine PM erhalten hat?

Oder muß man im Profil:
"Die Benachrichtigungen auf Lesezeichen beschränken"
mit Nein ankreuzen? Oder welche Benachrichtigungen sind gemeint?

------------------
Gruß Jörn

[Diese Nachricht wurde von yamaha am 17. Dez. 2004 editiert.]

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