Zobrazit plnou verzi příspěvku: Informace o obvodu dilce a plocha
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.
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
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.
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...)
Ano ale zde je to v cm2:(
To umim dostat do vykresu ale ja to chci vytahnout do rozpisky
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]