Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  Featureeigenschaften über VBA

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 SOLIDWORKS
  
Planen Sie schon die Fertigung der nächsten Generation?
Autor Thema:  Featureeigenschaften über VBA (1307 mal gelesen)
Wälzfräser
Mitglied
Wissenschaftlicher MA

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

Beiträge: 5
Registriert: 18.12.2013

erstellt am: 18. Dez. 2013 15:55    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

Hallo Leute,

Ich befinde mich in einer Assemly. Dort habe ich mit dem Befehl

Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureRevolveCut(6.2831853071796, False, 0, 0, 5, True, True)

einen rotierten Ausschnitt erzeugt. Das Feature soll in die Partdatei übernommen werden (manuell würde ich im Feature die Checkbox dafür setzen).

Über Makro sollte es irgendwie über den Tag


PropagateFeatureToParts


gehen. Allerdings geht aus der Beschreibung nicht hervor, wie ich die Eigenschaft auf mein Feature anwenden soll.
http://help.solidworks.com/2011/English/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.IRevolveFeatureData2~PropagateFeatureToParts.html


Schönen Dank schonma im Voraus...

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

Torsten Niemeier
Ehrenmitglied V.I.P. h.c.
Maschinenbau Ingenieur



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

Beiträge: 3682
Registriert: 21.06.2001

"ZUSE I.36", 8 BIT, 32 Lämpchen, Service-Ölkännchen "ESSO-Super", Software: AO auf Kuhlmann-Parallelogramm-Plattform
** CSWP 04/2011 **
** CSWE 08/2011 **

erstellt am: 18. Dez. 2013 16:13    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 Wälzfräser 10 Unities + Antwort hilfreich

Wälzfräser
Mitglied
Wissenschaftlicher MA

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

Beiträge: 5
Registriert: 18.12.2013

erstellt am: 19. Dez. 2013 10:17    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

Dankeschön...der Ansatz leuchtet ein...

Leider reagiert solid works genau so wie auf das neuere FeatureRevolveCut.Generell kann ich nach dem "Rotationsbetrag im Bogenmaß" (im Bsp. 6) eingeben was ich will (z.B. False oder 1 oder 0 anstatt True) und es kommt immer das gleiche raus.

Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureRevolveCut2(6, True, 0, 0, 0, True, True, True, True, True)

erzeugt also kein Häkchen bei den Feature-Eigenschaften.

Gibt es keine Möglichkeit die Eigenschaft des Features nach dessen Erzeugung zu ändern? Vielleicht mit feateditdef? Dazumüsste ich natürlich die checkbox irgendwie adressieren...

hierüber geht es naiverweise nicht...

boolstatus = Part.Extension.SelectByID2("Schnitt-Rotation1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.PropagateFeatureToParts = True

[Diese Nachricht wurde von Wälzfräser am 19. Dez. 2013 editiert.]

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

Wälzfräser
Mitglied
Wissenschaftlicher MA

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

Beiträge: 5
Registriert: 18.12.2013

erstellt am: 07. Jan. 2014 09:02    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

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)2024 CAD.de | Impressum | Datenschutz