Scale einer Ansicht setzten ? (Autodesk/Inventor VBA)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Scale einer Ansicht setzten ? (711 mal gelesen)
Pelikan Mitglied Dipl. Ing. Masch. Bau. Beiträge: 260 Registriert: 30.12.2002 Inv 2013/2014 FDS Win7 64bit PSP2011 FX3000m HP 8770w 32GB	erstellt am: 21. Sep. 2009 14:53 <-- editieren / zitieren --> Unities abgeben: Hallo zusammen, mir gelingt es leider nicht den Massstab einer Ansicht zu setzten. eigentlich sollte mit DrawingView.Scale das möglich sein. Wenn ich aber per set Drawing.View.Scale=0.1 den Wert zu setzten versuche, kommt direkt eine Fehlermeldung. Kann mir da jemand einen Tip geben ? Vielen Dank ! Gruss Pelikan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik Beiträge: 2166 Registriert: 15.11.2006 Windows 10 x64, AIP 2022	erstellt am: 21. Sep. 2009 18:51 <-- editieren / zitieren --> Unities abgeben: Nur für Pelikan Hallo Scale ist ein reserviertes Wort in VB/A. Es muß daher in eckige Klammer gesetzt werden. Hier mal ein Beispiel, das die erste Ansicht auf 1:10 setzt. Code: Private Sub Scal_change() Dim oDraw As DrawingDocument Set oDraw = ThisApplication.ActiveDocument Dim oView As DrawingView Set oView = oDraw.ActiveSheet.DrawingViews.Item(1) Dim oScale As Double oView.[Scale] = 0.1 oDraw.Update End Sub ------------------ MfG RK [Diese Nachricht wurde von rkauskh am 21. Sep. 2009 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Pelikan Mitglied Dipl. Ing. Masch. Bau. Beiträge: 260 Registriert: 30.12.2002 Inv 2013/2014 FDS Win7 64bit PSP2011 FX3000m HP 8770w 32GB	erstellt am: 23. Sep. 2009 15:05 <-- editieren / zitieren --> Unities abgeben: Danke für den Tip ! Gruss Pelikan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)