Zobrazit plnou verzi příspěvku: Informace o obvodu dilce a plocha

maiklss
19.10.2020, 11:27
Dobrý den jakým způsobem jde dostat informace do výkresového razítka o ploše dílce a obvodu hran dilce?

JDoubrava
19.10.2020, 12:03
To chcete na plechy? Jsou tu na to myslím tipy.

maiklss
19.10.2020, 12:27
Mužů poprosit o link

JDoubrava
19.10.2020, 12:40
Našel jsem podobné téma tady -https://www.cadforum.cz/cadforum/delka-vnejsich-a-vnitrnich-hran-rozvinu-plechu-tip10593https://www.cadforum.cz/cadforum/parametricke-zobrazeni-sirky-a-delky-rozvinu-plechu-tip6869

maiklss
04.11.2020, 09:55
Super funguje. Jakým způsobem dokážu dostat plochu nátěru v mm2 či m2 do kusovníku? Do vykresu to jde z vlasnoti modelu ale v rozpisce tu vlasnost nikde nemůžu najít.

MILKA
06.11.2020, 10:16
Zdravím, mě napadá jen vytvoření uživatelské vlastnosti "povrch" v díle  =<SurfaceArea>a tuto hodnotu volat v kusovníku (vytvoření ivlastnosti zautomatizovat přes ilogic...)

maiklss
06.11.2020, 21:00
Ano ale zde je to v cm2:(

MILKA
09.11.2020, 11:34
Jak kde.

maiklss
09.11.2020, 17:12
To umim dostat do vykresu ale ja to chci  vytahnout do rozpisky

Navara
09.11.2020, 21:36
Podle mě to bez iLogicu nepůjde. V X-Tools je možné zapnout obsluhu událostí (například BeforeSave) a spouštět v něm následující externí pravidlo.Pravidlo je vhodné spouštět jen nad souborem součásti.Chování je velmi podobné standardním automatickým vlastnostem v X-Tools[code]'Nastaveni:Dim areaPropertyName As String = "Plocha" ' Nazev uzivatelske iVlastnostiDim createMissingProperty As Boolean = False ' Vytvorit chybejici iVlastnostDim valueFormat As String = "0.##" ' Presnost hodnoty na dve desetinna mistaDim conversionConstant As Double = 10 * 10 ' Prevodni konstanta jednotek cm2 => mm2'ThisDoc.Document musi byt soucastDim partDoc As PartDocument = ThisDoc.DocumentDim area As Double = partDoc.ComponentDefinition.MassProperties.Areaarea = area * conversionConstantDim userDefinedProperties As PropertySet = partDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")Dim areaProperty As [Property]Try    areaProperty = userDefinedProperties(areaPropertyName)Catch    If createMissingProperty Then        areaProperty = userDefinedProperties.Add("", areaPropertyName)    Else        Return    End IfEnd TryDim areaString As String = area.ToString(valueFormat)If areaProperty.Value.ToString() <> areaString Then    areaProperty.Value = areaStringEnd If[/code]