-
Re: Change Scale and Shading of a single view
Changing single view Macro by Leon Wurr - the shaded macro not sure who wrote that one
-
Re: Change Scale and Shading of a single view
I can play with the macro to get it to-do it but it applies the changes to all views, the attached macros require me to select the view before running the macro. I'm wanting the macro to select the drawing view "drawing view2" I think its my method of selecting the view is incorrect.
-
Re: Change Scale and Shading of a single view
The reason it changes all the views is the "Use Parent Scale" is checked
-
Re: Change Scale and Shading of a single view
when I use this line with "False"
swView.SetDisplayMode3 False, swSHADED, True, True
it should use local setting and True to use the parent's setting, false to use its own local settings so should not apply to all the views
value = instance.SetDisplayMode3(UseParent, Mode, Facetted, Edges)
unless i'm missing something. I just don't think I have the correct method for setting swView to "Drawing View2" and I don't know what the correct method is.
Mat
-
Re: Change Scale and Shading of a single view
We need to create New object for Drawing view2 .. Cheers
Try this...
Option Explicit
Dim swApp As Object
Dim Part As ModelDoc2
Dim swModel As DrawingDoc
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim myView As View
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swModel = Part
boolstatus = Part.ActivateView("Drawing View1")
boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0.51545, 0.59543, 0, False, 0, Nothing, 0)
Set myView = swModel.CreateUnfoldedViewAt3(0.180250386904157, 0.13971698113208, 0, True)
swModel.ClearSelection2 True
Dim swview As View
boolstatus = swModel.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.13842553485699, 0.187862387566601, 0, False, 0, Nothing, 0)
Set swview = Part.SelectionManager.GetSelectedObject6(1, -1)
Dim vScaleRatio As Variant
vScaleRatio = swview.ScaleRatio
swview.ScaleDecimal = swview.ScaleDecimal * 0.7
vScaleRatio = swview.ScaleRatio
swview.SetDisplayMode3 False, swSHADED, True, True
boolstatus = swModel.EditRebuild3()
End Sub
-
-
-
-
-
