Zobrazit plnou verzi příspěvku: Dočasné vypnutí kót v náčrtu.
rychetsky
27.01.2012, 09:45
Dobrý denMůže mi někdo poradit, jakým způsobem bych mohl vypnout kóty v náčrtu?Jde mi o to, že nemohu upravovat náčrt, protože tam mám větší množství kót a překrývají mi geometrii. Potřeboval bych si upravit geometrii a pak si zase kóty zapnout.Lze to nějak provést? Díky
Vladimír Michl
27.01.2012, 13:22
Přímo v prostředí náčrtu asi jen makrem (jinak: pravé tlačítko ve stromu > Viditelnost kóty).
Viz:
http://www.cadforum.cz/cadforum/jak-vypnout-zobrazeni-kot-v-prostredi-nacrtu-inventoru-tip8440
rychetsky
27.01.2012, 14:49
Děkuji za tip.Bohužel asi něco dělám špatně.Píše mi to error >
Vladimír Michl
27.01.2012, 14:54
Uff, to makro je hodně triviální, co mu může vadit? Bavíme se o "součástkovém" náčrtu? Který řádek mu vadí (když dáte Debug)?
rychetsky
27.01.2012, 14:58
Vladimír Michl
27.01.2012, 15:06
Aha, kam jste to makro vložil? Patří do aktuálního dokumentu (resp. šablony). Také jsem to do toho tipu mohl napsat rovnou, napraveno.Vladimír Michl2012-01-27 15:13:04
rychetsky
27.01.2012, 15:19
Už chápu kam tím míříte.Když si otevřu part, tak to funguje bez problému. Problém je v tom, že mám part jako refeferenční model Nosné konstrukce. Takže pokud ho chci editovat v sestavě, tak mám smůlu.Když si kostru otevřu jako samostatný part, tak to opět šlape. Předpokládám, že to z pricipu asi nelze překopat tak, aby to fungovalo bez ohledu na "vnoření" do sestavy?
Pro přepnutí viditelnosti kót v aktivním náčrtu lze použít upravenou verzi. V tomto případě nezáleží na tom, kde je makro uloženo, ale jaký objekt právě upravujete. V případě, že to není náčrt, makro ho bude ignorovat.
Sub ToggleDims2() Dim oSketch As PlanarSketch On Error Resume Next Set oSketch = ThisApplication.ActiveEditObject If Err.Number <> 0 Then Exit Sub On Error GoTo 0 oSketch.DimensionsVisible = Not oSketch.DimensionsVisible ThisApplication.ActiveView.UpdateEnd Sub
rychetsky
30.01.2012, 08:50
Tak to je paráda!Moc vám děkuji. Společně s přiřazením makra k tlačítku to nemá chybu.