WorkPlane Visibility on/off

[Anonymous]

Can anyone check to see why I can not use this sub turn the workplane visibility on/off I have part with few workplanes with diff. names. Private Sub SwitchPlane(sPlane As String, Flag As Boolean) Dim oDoc As PartDocument Set oDoc = ThisApplication.ActiveDocument Dim oWorkPlane As WorkPlane Set oWorkPlane = oDoc.ComponentDefinition.WorkPlanes.Item(sPlane) oWorkPlane.Visible = Flag End Sub

[Anonymous]

Just another bad day. Nothing wrong wiht this sub. I did not pass the correct parameter (typo) to the sub "Calimesa" wrote in message news:40d85d5e_3@newsprd01... > Can anyone check to see why I can not use this sub turn the workplane > visibility on/off > I have part with few workplanes with diff. names. > > Private Sub SwitchPlane(sPlane As String, Flag As Boolean) > > Dim oDoc As PartDocument > Set oDoc = ThisApplication.ActiveDocument > > Dim oWorkPlane As WorkPlane > Set oWorkPlane = oDoc.ComponentDefinition.WorkPlanes.Item(sPlane) > > oWorkPlane.Visible = Flag > > > End Sub > > >