Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Rundung Farbe ändern

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Rundung Farbe ändern (2118 mal gelesen)
sidibu
Mitglied



Sehen Sie sich das Profil von sidibu an!   Senden Sie eine Private Message an sidibu  Schreiben Sie einen Gästebucheintrag für sidibu

Beiträge: 21
Registriert: 21.11.2007

erstellt am: 16. Aug. 2011 14:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Guten Tag,
ich würde gerne in einem Bauteil die Farbe einer Rundung ändern. Mir fehlt aber der dazugehörige Begriff um eine Schleife mit Features zu erstellen. (bei Extrusionen Features.ExtrudeFeatures).
Es wäre nett wenn mir jemand weiterhelfen kann.

    For Each oFeature In oCompDef.Features.ExtrudeFeatures
        Select Case oFeature.name
            Case "ext1": Set oRenderStyle = odoc.RenderStyles.Item(f1)
                        Call oFeature.SetRenderStyle(kOverrideRenderStyle, oRenderStyle)
            Case "ext2":  Set oRenderStyle = odoc.RenderStyles.Item(f1)
                        Call oFeature.SetRenderStyle(kOverrideRenderStyle, oRenderStyle)
            Case "Rundung":  Set oRenderStyle = odoc.RenderStyles.Item(f1)
                        Call oFeature.SetRenderStyle(kOverrideRenderStyle, oRenderStyle)
        End Select
    Next


Weiß jemand was diese Features (aus der Hilfe) auf Deutsch bedeuten, damit man sie verwenden kann?

BendFeature BoundaryPatchFeature ChamferFeature
CircularPatternFeature CoilFeature ContourFlangeFeature
CornerChamferFeature CornerFeature CornerRoundFeature
CutFeature DecalFeature DeleteFaceFeature
EmbossFeature ExtrudeFeature FaceDraftFeature
FaceFeature FeatureBasedOccurrencePattern FeaturePatternElement
FeaturePatternElements FilletFeature FlangeFeature
FoldFeature HemFeature HoleFeature
KnitFeature LoftFeature MirrorFeature
MoveFaceFeature NonParametricBaseFeature PartFeature
PartFeatureExtent PunchToolFeature RectangularPatternFeature
ReferenceFeature ReplaceFaceFeature RevolveFeature
RibFeature ShellFeature SplitFeature
SweepFeature ThickenFeature ThreadFeature

------------------
mit freundlichen Grüßen
Dirk

[Diese Nachricht wurde von sidibu am 16. Aug. 2011 editiert.]

[Diese Nachricht wurde von sidibu am 16. Aug. 2011 editiert.]

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2166
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 16. Aug. 2011 23:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für sidibu 10 Unities + Antwort hilfreich

Hi

Das Feature heißt FilletFeature.

Wenn du wieder mal so ein Problem hast, nimm den VBA-Editor, füge folgendes Script ein, setze einen Haltepunkt auf End Sub und schau dir im Überwachungsfenster den Inhalt von oSelected an. Vorher natürlich auch was selektieren.

Code:
Private Sub SelectSet()

Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

Dim oSelected As Variant
Set oSelected = oDoc.SelectSet.Item(1)

End Sub


------------------
MfG
RK

[Diese Nachricht wurde von rkauskh am 16. Aug. 2011 editiert.]

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz