<img src="/common/bigicon-diskuze.png" style="vertical-align:middle;height:80px" alt="Diskuze"/> Diskuzní fórum, poradna

Diskutér

Přihlášen: 08.říj.2018
Lokalita: Slovensko
Používám:
Inventor 2018
Stav: Offline
Bodů: 11

Téma: Riadena a neriadena honota
Zasláno: 31.říj.2018 v 10:56

Dobrý den, viete mi poradiť so zapinanim riadenej(referenčnej) a neriadenej koty?
'If questions = "Angle" Then
'     oSketch = ThisDoc.Document.ComponentDefinition.Sketches.Item("moj-sketch")
'     oSketch.DimensionConstraints.Item(FlangeAngle).Driven = True
'     oSketch.DimensionConstraints.Item(d293).Driven = False
'Else If questions = "Diameter" Then
'     oSketch = ThisDoc.Document.ComponentDefinition.Sketches.Item("moj_sketch")
'oSketch.DimensionConstraints.Item(d293).Driven = True
'oSketch.DimensionConstraints.Item(FlangeAngle).Driven = False
'End If
Vyhadzuje error a nechce mi zprepinat koty v rovnakom načrte.

Navara

Navštívit stránky člena

ARKANCE support

Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1637

Zasláno: 31.říj.2018 v 11:25

Musíte se rozhodnout, jstli se ten náčrt jmenuje "moj-sketch" nebo "moj_sketch"

Navíc identifikovat kótu musíte číslem (indexem v kolekci), ne názvem parametru

Výsledek

Sub Main()
 Dim oSketch As PlanarSketch = ThisDoc.Document.ComponentDefinition.Sketches.Item("moj-sketch")
 Dim dim1 = GetDimensionByParameterName(oSketch, "FlangeAngle")
 Dim dim2 = GetDimensionByParameterName(oSketch, "d293")
 If questions = "Angle" Then
  dim1.Driven = True
  dim2.Driven = False
 ElseIf questions = "Diameter" Then
  dim1.Driven = False
  dim2.Driven = True
 End If
End Sub
Function GetDimensionByParameterName(oSketch As Sketch, parameName As String)
 For Each d As DimensionConstraint In oSketch.DimensionConstraints
  If d.Parameter.Name = parameName Then
   Return d
  End If
 Next
 Return Nothing
End Function

Upravil Navara - 31.říj.2018 v 11:34

hanc.mat

Diskutér

Přihlášen: 08.říj.2018
Lokalita: Slovensko
Používám:
Inventor 2018
Stav: Offline
Bodů: 11

Zasláno: 02.lis.2018 v 11:37

Dakujem za radu. vas prikaz som musel dat do čisteho pravidla nakoľko ak boli dalšie podmienky za vašim kodom vyhadzovalo to dalšie chyby.

kód stale vyhadzuje tu istu chybu:

Unspecified error (Exception from HRESULT: 0x80004005 (E_FAIL))
More info:
System.Runtime.InteropServices.COMException (0x80004005): Unspecified error (Exception from HRESULT: 0x80004005 (E_FAIL))
   at Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateSet(Object o, Type& objType, String name, Object[] args, String[] paramnames, Boolean OptimisticSet, CallType UseCallType)
   at Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateSet(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean OptimisticSet, Boolean RValueBase, CallType CallType)
   at LmiRuleScript.Main()
   at Autodesk.iLogic.Exec.AppDomExec.ExecRuleInAssembly(Assembly assem)
   at iLogic.RuleEvalContainer.ExecRuleEval(String execRule)

Navara

Navštívit stránky člena

ARKANCE support

Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1637

Zasláno: 02.lis.2018 v 12:46

tak sem dejte i ten model, protože mě to fungovalo

hanc.mat