CAD Fórum : ilogic https://www.cadforum.cz/forum/ Thu, 14 May 2026 13:29:08 +0000 Mon, 15 Jan 2018 13:19:14 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=25498 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[ilogic : zkuste takhle po drobné úpravě:Dim...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110122&title=ilogic#110122 Autor: Vít Marčík
Předmět: 25498
Zasláno: 15.led.2018 v 13:19

zkuste takhle po drobné úpravě:
Dim oAsmDoc As AssemblyDocumentoAsmDoc = ThisApplication.ActiveDocumentDim userParam As ParameterDim oRefDocs As DocumentsEnumeratorDim oRefDoc As ObjectoRefDocs = oAsmDoc.AllReferencedDocumentsFor Each oRefDoc In oRefDocsTry	For Each userParam In oRefDoc.ComponentDefinition.Parameters            userParam.ExposedAsProperty = True			Dim propertyFormat  = userParam.CustomPropertyFormat			oRefDoc.Update			propertyFormat.Precision = Inventor. custompropertyprecisionenum.kZeroDecimalPlacePrecision			propertyFormat.ShowTrailingZeros = False			propertyFormat.ShowUnitsString = False	NextCatchEnd TryNext
]]> Mon, 15 Jan 2018 13:19:14 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110122&title=ilogic#110122 <![CDATA[ilogic : mohu ještě jednou poprosit, mam...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110097&title=ilogic#110097 Autor: assaxio
Předmět: 25498
Zasláno: 12.led.2018 v 15:07

mohu ještě jednou poprosit, mam asi při pátku zatmění a nějak si nevim rady jak to spasovat dohromady. předem moc děkuji.

Dim oAsmDoc As AssemblyDocument

oAsmDoc = ThisApplication.ActiveDocument

Dim userParam As Parameter

Dim oRefDocs As DocumentsEnumerator

Dim oRefDoc As Object

oRefDocs = oAsmDoc.AllReferencedDocuments

For Each oRefDoc In oRefDocs

Try

  For Each userParam In oRefDoc.ComponentDefinition.Parameters

            userParam.ExposedAsProperty = True

     Next

Catch

End Try

Next

 

Dim part As PartDocument = ThisDoc.Document
Dim userParam As Inventor.Parameter = part.ComponentDefinition.Parameters(1)

 

'...
Dim propertyFormat  = userParam.CustomPropertyFormat

userParam.ExposedAsProperty = True
part.Update

propertyFormat.Precision = Inventor.custompropertyprecisionenum.kZeroDecimalPlacePrecision
propertyFormat.ShowTrailingZeros = False
propertyFormat.ShowUnitsString = False
'...

]]> Fri, 12 Jan 2018 15:07:09 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110097&title=ilogic#110097 <![CDATA[ilogic : třeba takhle: Dim part As PartDocument...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110071&title=ilogic#110071 Autor: Navara
Předmět: 25498
Zasláno: 11.led.2018 v 10:03

třeba takhle:
 
Dim part As PartDocument = ThisDoc.Document
Dim userParam As Inventor.Parameter = part.ComponentDefinition.Parameters(1)
 
'...
Dim propertyFormat  = userParam.CustomPropertyFormat
userParam.ExposedAsProperty = True
part.Update
propertyFormat.Precision = Inventor. custompropertyprecisionenum.kZeroDecimalPlacePrecision
propertyFormat.ShowTrailingZeros = False
propertyFormat.ShowUnitsString = False
'...
 
]]> Thu, 11 Jan 2018 10:03:16 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110071&title=ilogic#110071 <![CDATA[ilogic : tak ještě malinkoupomoct, chtěl...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110062&title=ilogic#110062 Autor: assaxio
Předmět: 25498
Zasláno: 10.led.2018 v 16:25

tak ještě malinkou pomoct, chtěl bych aby u všech zaškrtnutých parametrů se mi nastavilo "přesnost - na celá čísla" a pak odškrtnout řetězec jednotek a koncové nuly.
vše niz příloha
]]> Wed, 10 Jan 2018 16:25:37 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110062&title=ilogic#110062 <![CDATA[ilogic : Nevim proč ale poodmazaní &#034;MsgBox&#034;...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110061&title=ilogic#110061 Autor: assaxio
Předmět: 25498
Zasláno: 10.led.2018 v 15:57

Nevim proč ale po odmazaní "MsgBox" to šlape, opět děkuji.]]> Wed, 10 Jan 2018 15:57:29 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110061&title=ilogic#110061 <![CDATA[ilogic : Takto by to fungovat mělo -...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110060&title=ilogic#110060 Autor: Vladimír Michl
Předmět: 25498
Zasláno: 10.led.2018 v 15:21

Takto by to fungovat mělo - možná zkuste odkomentovat ten MsgBox, abyste viděl k jakému parametru to dojde - možná vám ten Try vypadne na nějaké chybě.]]> Wed, 10 Jan 2018 15:21:57 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110060&title=ilogic#110060 <![CDATA[ilogic : Ještě jednou chci poprosit. To...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110058&title=ilogic#110058 Autor: assaxio
Předmět: 25498
Zasláno: 10.led.2018 v 14:11

Ještě jednou chci poprosit. To zašrtnutí "Thickness" už běží, ale věděl by někdo jak napsat aby to zašrtlo všechny parametry. Zkusil jsem to takto ale nedělá to co má.

Dim oAsmDoc As AssemblyDocumentoAsmDoc = ThisApplication.ActiveDocumentDim userParam As ParameterDim oRefDocs As DocumentsEnumeratorDim oRefDoc As ObjectoRefDocs = oAsmDoc.AllReferencedDocumentsFor Each oRefDoc In oRefDocsTry  For Each userParam In oRefDoc.ComponentDefinition.Parameters   ' MsgBox(oRefDoc.DisplayName & "=" & userParam.Name)            userParam.ExposedAsProperty = True     NextCatchEnd TryNext

Já bych si pak vybral které budu používat dále.
Děkuji
]]> Wed, 10 Jan 2018 14:11:14 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110058&title=ilogic#110058 <![CDATA[ilogic : Děkuji moc už to běhá, jstedobrej....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110009&title=ilogic#110009 Autor: assaxio
Předmět: 25498
Zasláno: 08.led.2018 v 11:44

Děkuji moc už to běhá, jste dobrej.]]> Mon, 08 Jan 2018 11:44:47 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110009&title=ilogic#110009 <![CDATA[ilogic : Pokud to není uživatelský, ale...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110008&title=ilogic#110008 Autor: Vladimír Michl
Předmět: 25498
Zasláno: 08.led.2018 v 11:35

Pokud to není uživatelský, ale běžný geometrický parametr, pak:
 
Dim oAsmDoc As AssemblyDocument
oAsmDoc = ThisApplication.ActiveDocument
Dim userParam As Parameter
Dim oRefDocs As DocumentsEnumerator
Dim oRefDoc As Object
oRefDocs = oAsmDoc.AllReferencedDocuments
For Each oRefDoc In oRefDocs
Try
  For Each userParam In oRefDoc.ComponentDefinition.Parameters
   ' MsgBox(oRefDoc.DisplayName & "=" & userParam.Name)
     If userParam.Name = "Thickness" 
       userParam.ExposedAsProperty = True
     End If
  Next
Catch
End Try
Next
]]> Mon, 08 Jan 2018 11:35:21 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110008&title=ilogic#110008 <![CDATA[ilogic : Děkuji za raduale pořád mi to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110007&title=ilogic#110007 Autor: assaxio
Předmět: 25498
Zasláno: 08.led.2018 v 10:46

Děkuji za radu ale pořád mi to nechce zaškrtávat Thickness.
Napadlo jestli by někdo nevěděl udělat aby to zašktlo všechny ty okýnka v parametrech.
Já bych si pak vybral které budu používat dále.
Děkuji
]]> Mon, 08 Jan 2018 10:46:24 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25498&PID=110007&title=ilogic#110007