CAD Fórum : M��en� smy�ky v n��rtu

M��en� smy�ky v n��rtu : Děkuji, mrknu na to a vyzkouším....

Thu, 20 Feb 2014 10:49:35 +0000

Autor: kosulic
P�edm�t: 18766
Zasl�no: 20.�no.2014 v 10:49

D�kuji, mrknu na to a vyzkou��m.

M��en� smy�ky v n��rtu : V tom kódu je několik formálních...

Tue, 18 Feb 2014 20:00:31 +0000

Autor: Navara
P�edm�t: 18766
Zasl�no: 18.�no.2014 v 20:00

V tom k�du je n�kolik form�ln�ch chyb a m�l by vypadat takhle:

Dim Param As Parameter
Try
    Param = ThisDoc.Document.ComponentDefinition.Parameters("DELKA_SMYCKY")
Catch
    Param = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByExpression("DELKA_SMYCKY", 1, "mm")
End Try
Dim se As SketchEntity = ThisDoc.Document.ComponentDefinition.Sketches(1).SketchLines(1)
Dim delkaRetezu As Double = Math.Round(ThisApplication.MeasureTools.GetLoopLength(se)) * 10
Param.Expression = (delkaRetezu & " mm")
Try
    Param = ThisDoc.Document.ComponentDefinition.Parameters("ROZTEC_RETEZU")
Catch
    Param = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByExpression("ROZTEC_RETEZU", 1, "mm")
End Try
Dim roztecRetezu As Double = 12.7
Param.Expression = roztecRetezu & "mm"
Try
    Param = ThisDoc.Document.ComponentDefinition.Parameters("POCET_CLANKU")
Catch
    Param = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByExpression("POCET_CLANKU", 1, "ul")
End Try
Dim pocetClanku As Integer = Math.Round(delkaRetezu / roztecRetezu)
Param.Expression = pocetClanku & "ul"
Try
    Param = ThisDoc.Document.ComponentDefinition.Parameters("SPOJKA_POCET")
Catch
    Param = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByExpression("SPOJKA_POCET", 1, "ul")
End Try
Param.Expression = Math.Floor((delkaRetezu / 5000)) + 1 & "ul"

ale asi bych dal p�ednost zkr�cen� verzi s vol�n�m funkce pro nastaven� parametru a jeho p5enosem do iVlastnosti

Sub Main()
    Dim se As SketchEntity = ThisDoc.Document.ComponentDefinition.Sketches(1).SketchLines(1)
    Dim delkaRetezu As Double = Math.Round(ThisApplication.MeasureTools.GetLoopLength(se)) * 10
    SetParam("DELKA_SMYCKY", delkaRetezu, " mm")
    Dim roztecRetezu As Double = 12.7
    SetParam("ROZTEC_RETEZU", roztecRetezu, "mm")
    Dim pocetClanku As Integer = Math.Round(delkaRetezu / roztecRetezu)
    SetParam("POCET_CLANKU", pocetClanku, "ul")
    SetParam("SPOJKA_POCET", Math.Floor((delkaRetezu / 5000)) + 1, "ul")
End Sub
Sub SetParam(paramName As String, value As Double, units As String)
    Dim Param As Parameter
    Try
        Param = ThisDoc.Document.ComponentDefinition.Parameters(paramName)
    Catch
        Param = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByExpression(paramName, 1, units)
    End Try
    Param.Expression = String.Format("{0} {1}", value, units)
    'Set as property
    Param.ExposedAsProperty = True
    Param.CustomPropertyFormat.Precision = CustomPropertyPrecisionEnum.kOneDecimalPlacePrecision
    Param.CustomPropertyFormat.PropertyType = CustomPropertyTypeEnum.kTextPropertyType
    Param.CustomPropertyFormat.ShowTrailingZeros = False
    Param.CustomPropertyFormat.ShowUnitsString = False
    '...
End Sub

M��en� smy�ky v n��rtu : Zkouším udělat pravidlo na měření...

Tue, 18 Feb 2014 09:33:50 +0000

Autor: kosulic
P�edm�t: 18766
Zasl�no: 18.�no.2014 v 09:33

Zkou��m ud�lat pravidlo na m��en� smy�ky z n��rtu (model �et�zu)

Pot�ebuji vytvo�it 4 parametry (nejl�pe je ozna�it pro export)

Zm��it smy�ku

vypo��tat po�et �l�nk�

vypo��tat po�et spojek

Nefunguje mi ale zaokrouhlov�n� a nev�m jak parametry ozna�it pro export.

Kdyby se na�la dobr� du�e, kter� by mi pomohla, byl bych vd��n�.

Try

    Param = ThisDoc.Document.ComponentDefinition.Parameters("DELKA_SMYCKY")Catch    Param = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByExpression("DELKA_SMYCKY", 1, "mm" )End TryDim se As SketchEntity = ThisDoc.Document.ComponentDefinition.Sketches(1).SketchLines(1)  Param.Expression =(ThisApplication.MeasureTools.GetLoopLength(se)*10 & " mm")Parameter("DELKA_SMYCKY") = Round(DELKA_SMYCKY)Try    Param = ThisDoc.Document.ComponentDefinition.Parameters("ROZTEC_RETEZU")Catch    Param = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByExpression("ROZTEC_RETEZU", 1, "mm" )End TryParameter("ROZTEC_RETEZU") = 12.7Try    Param = ThisDoc.Document.ComponentDefinition.Parameters("POCET_CLANKU")Catch    Param = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByExpression("POCET_CLANKU", 1, "ul" )End TryParameter("POCET_CLANKU") = Round(DELKA_SMYCKY/ROZTEC_RETEZU)Try    Param = ThisDoc.Document.ComponentDefinition.Parameters("SPOJKA_POCET")Catch    Param = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByExpression("SPOJKA_POCET", 1, "ul" )End TryParameter("SPOJKA_POCET") = Floor((DELKA_SMYCKY/5000))+1