CAD Fórum : Riadena a neriadena honota https://www.cadforum.cz/forum/ Thu, 07 May 2026 00:39:45 +0000 Tue, 27 Nov 2018 08:45:06 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=27917 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Riadena a neriadena honota : Ospravedlňujem sa a opravim moj...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27917&PID=114679&title=riadena-a-neriadena-honota#114679 Autor: hanc.mat
Předmět: 27917
Zasláno: 27.lis.2018 v 08:45

Ospravedlňujem sa a opravim moj unahleny post ...ano ak to nahodim na cistu verziu modelu kde nieje ziaden kod funguje to korektne - takze Vas kod funguje spravne!
Avšak ak to ale nahodim do môjho modelu kde je to naviazane na dalsie If ... tak to chybu vyhodi stale aj ked je to vo vlastnej rule a kod sa odkazuje len na danu rule ak ju požadujem z Formularu.]]> Tue, 27 Nov 2018 08:45:06 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27917&PID=114679&title=riadena-a-neriadena-honota#114679 <![CDATA[Riadena a neriadena honota : tak sem dejte i ten model, protože...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27917&PID=114410&title=riadena-a-neriadena-honota#114410 Autor: Navara
Předmět: 27917
Zasláno: 02.lis.2018 v 12:46

tak sem dejte i ten model, protože mě to fungovalo]]> Fri, 02 Nov 2018 12:46:28 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27917&PID=114410&title=riadena-a-neriadena-honota#114410 <![CDATA[Riadena a neriadena honota : Dakujem za radu. vas prikaz som...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27917&PID=114408&title=riadena-a-neriadena-honota#114408 Autor: hanc.mat
Předmět: 27917
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)

]]> Fri, 02 Nov 2018 11:37:56 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27917&PID=114408&title=riadena-a-neriadena-honota#114408 <![CDATA[Riadena a neriadena honota : Musíte se rozhodnout, jstli...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27917&PID=114371&title=riadena-a-neriadena-honota#114371 Autor: Navara
Předmět: 27917
Zasláno: 31.říj.2018 v 11:25

Musíte se rozhodnout, jstli se ten náčrt jmenuje "moj-sketch" nebo "moj_sketch" Wink
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]]> Wed, 31 Oct 2018 11:25:15 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27917&PID=114371&title=riadena-a-neriadena-honota#114371 <![CDATA[Riadena a neriadena honota : Dobrý den, viete mi poradiť so...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27917&PID=114370&title=riadena-a-neriadena-honota#114370 Autor: hanc.mat
Předmět: 27917
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.]]> Wed, 31 Oct 2018 10:56:36 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27917&PID=114370&title=riadena-a-neriadena-honota#114370