Re: Two managers? Now I want them....thanks Art.
- From: Dale Dunn <daledunnSCRATCH@xxxxxxxxxxxxx>
- Date: Tue, 26 Jul 2005 20:22:51 GMT
Huh? What? This?
' *************************************************************************
*****
'Splitterfixer by Dale Dunn
' *************************************************************************
*****
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim Splitterpos As Double
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Splitterpos = Part.FeatureManagerSplitterPosition
Select Case Round(Splitterpos, 1)
Case 0.5
Part.FeatureManagerSplitterPosition = 1
Case Else
Part.FeatureManagerSplitterPosition = 0.5
End Select
End Sub
.
- References:
- Two managers? Now I want them....thanks Art.
- From: dlevy
- Re: Two managers? Now I want them....thanks Art.
- From: Michael Eckstein
- Re: Two managers? Now I want them....thanks Art.
- From: Steve Rauenbuehler
- Two managers? Now I want them....thanks Art.
- Prev by Date: Re: Two managers? Now I want them....thanks Art.
- Next by Date: Re: Is Pentium M a better CAD chip than P4 and Athlon even?
- Previous by thread: Re: Two managers? Now I want them....thanks Art.
- Next by thread: Re: Two managers? Now I want them....thanks Art.
- Index(es):
Relevant Pages
|
