Skipping parts of a macro
Skipping parts of a macro
(OP)
Hi Guys,
If I need to miss part of a macro out how can I do that?
I imagine this is easy for you guys but not for me :(
ie,
if value = 0 then goto10
if value > 0 then goto20
10
string = something
goto30
20
string = something else
30
carry on with the macro
many thanks as always
Alan
If I need to miss part of a macro out how can I do that?
I imagine this is easy for you guys but not for me :(
ie,
if value = 0 then goto10
if value > 0 then goto20
10
string = something
goto30
20
string = something else
30
carry on with the macro
many thanks as always
Alan





RE: Skipping parts of a macro
CATIA VBA uses the Select Case...End Select construct...http://www.coe.org/p/fo/et/thread=14001
CODE
' Select Case Value Case 0 'Executes these statements when Value is zero string = something Case >0 'Executes these statements when Value is greater than zero string = somethng else Case Else 'Executes these statements when Value fits none of the above criteria string = and now something entirely different End Select 'Carry on with macroYou can also use If...Then...ElseIf...Then...Else...End If
Skip,
for a NUance!
RE: Skipping parts of a macro
RE: Skipping parts of a macro
I need to get the value from an input box and when i add the case commands it doesnt show the box ?
Just crashes at Case >0
RE: Skipping parts of a macro
Skip,
Just traded in my OLD subtlety...
for a NUance!
RE: Skipping parts of a macro
Sorry for the delay but been away with the family for a break.
This is the code I was playing with, need to get my head around it again but basically it doesn't work :(
'-----------------------------------------------------------------------------------------------------------------------
Sub CATMain()
Dim documents1
Set documents1 = CATIA.Documents
Set Document = CATIA.ActiveDocument
Dim selection1
Set selection1 = Document.Selection
Set Info = selection1.Item(1)
Dim Dimension1
Set Dimension1 = Info.Value
'---------------------------------------------------------------------------------------------------
Dim DimTolValue
Set DimTolValue = Dimension1
Dim oTolType
Dim oDisplayMode
Dim oTolName
Dim oUpTolS
Dim oLowTolS
Dim oUpTolD
Dim oLowTolD
DimTolValue.GetTolerances oTolType, oTolName, oUpTolS, oLowTolS, oUpTolD, oLowTolD, oDisplayMode
oTolName = "TOL_NUM2"
DimTolValue.SetTolerances oTolType, oTolName, oUpTolS, oLowTolS, oUpTolD, oLowTolD, oDisplayMode
DimTolValue.GetTolerances oTolType, oTolName, oUpTolS, oLowTolS, oUpTolD, oLowTolD, oDisplayMode
oUpTolD = 0.2
oLowTolD = 0.0
DimTolValue.SetTolerances oTolType, oTolName, oUpTolS, oLowTolS, oUpTolD, oLowTolD, oDisplayMode
'---------------------------------------------------------------------------------------------------
Dim DimDimValue
Set DimDimValue = Dimension1.GetValue
DimDimValue.SetFormatName 1, "NUM.DIMM"
DimDimValue.SetFormatPrecision 1, "0.100" 'precision
'---------------------------------------------------------------------------------------------------
Dim oNoOff
oNoOff=InputBox ( "Enter No Off Holes" )
Select Case Value
Case 0
Dim oNoOffText
oNoOffText = oNoOff & "x "
Dim oBefore
oBefore =oNoOffText
Dim oAfter
'oAfter = "oAfter"
Dim oUpper
'oUpper = "Upper"
Dim oLower
'oLower = "Lower"
Dimension1.GetValue.SetBaultText 1, oBefore, oAfter, oUpper, oLower
Case >0
Dim oBefore
oBefore = "oBefore"
Dim oAfter
oAfter = "oAfter"
'Dim oUpper
'oUpper = "Upper"
'Dim oLower
'oLower = "Lower"
Dimension1.GetValue.SetBaultText 1, oBefore, oAfter, oUpper, oLower
End Select
'----------------------------------------------------------------------------
Dim myDim 'As DrawingDimension
Set myDim = CATIA.ActiveDocument.Selection.Item(1).Value
Dim myDimLine 'As DrawingDimLine
Set myDimLine = myDim.GetDimLine
myDimLine.DimLineGraphRep = catDimLine2Parts
MyDim.RestoreValuePosition()
End Sub
'-------------------------------------------------------------------------------------