| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co. |
| |
 | KISTERS 3DViewStation: Schutz sensibler 3D CAD Daten, egal von wo Sie arbeiten, eine Pressemitteilung
|
Autor
|
Thema: 3D Genauigkeit per CATVBA ändern (870 mal gelesen)
|
geekv5 Mitglied Konstrukteur
 
 Beiträge: 214 Registriert: 13.07.2011 Notebook<P>MSI GX660R Intel Core i5 460M 8GB DDR3 1GB Mobility HD5870 80GB Intel X25-M Postville 250GB HDD<P>Desktop<P>AMD Phenom II X4 965 1GB HD4890@ FirePro V8700 8GB DDR3-1600 2,5TB HDD<P>Belinea 2485 S1W 24" MVA
|
erstellt am: 05. Dez. 2011 11:16 <-- editieren / zitieren --> Unities abgeben:         
Hallo zusammen! Ist es eigentlich möglich per VBA die 3D Genauigkeit zu ändern? Hintergrund ist, ich möchte eine STL exportieren und wenn ich das richtig sehe hängt die Genauigkeit der Tesselierung von der Genauigkeit der Darstellung ab.. Korrigiert mich bitte, wenn ich falsch liege.. Gruß Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
       
 Beiträge: 12054 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 05. Dez. 2011 11:37 <-- editieren / zitieren --> Unities abgeben:          Nur für geekv5
|
geekv5 Mitglied Konstrukteur
 
 Beiträge: 214 Registriert: 13.07.2011 Notebook<P>MSI GX660R Intel Core i5 460M 8GB DDR3 1GB Mobility HD5870 80GB Intel X25-M Postville 250GB HDD<P>Desktop<P>AMD Phenom II X4 965 1GB HD4890@ FirePro V8700 8GB DDR3-1600 2,5TB HDD<P>Belinea 2485 S1W 24" MVA
|
erstellt am: 05. Dez. 2011 11:49 <-- editieren / zitieren --> Unities abgeben:         
Hi, das Ergebnis der Aufzeichnung funktioniert sofort, wusste nicht, dass er auch Änderungen der Settings aufzeichnen kann.. Wer sich die Arbeit sparen will, hier der Code: Code:
Sub CATMain()Dim settingControllers1 As SettingControllers Set settingControllers1 = CATIA.SettingControllers Dim visualizationSettingAtt1 As VisualizationSettingAtt Set visualizationSettingAtt1 = settingControllers1.Item("CATVizVisualizationSettingCtrl") visualizationSettingAtt1.TwoSideLightingMode = False visualizationSettingAtt1.Viz3DFixedAccuracy = 0.2 visualizationSettingAtt1.SaveRepository End Sub
Danke für die schnelle Hilfe! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |