Dobrý den,
lze nějak předvolit hodnotu ve značce drsnosti, aby tam bylo napsano třeba 3,2 a vždy se tam vložila značka s drsností 3,2. A pokud to budu chtit zmenit,tak to prepisu.
Jiste by to urychlilo kotovani.
Dekuji

Bojím se, že nelze. Má-li někdo jinou zkušenost, rád se poučím.
Nicméně to obcházím tím, že značku poprvé vygeneruji, pak ji zkopíruji do schránky a poté už jen pomocí Ctrl-V sázím značky všude, kde je potřebuji. Podobně se dá zefektivnit třeba kótování svarů, ...

V tejto "otvorenosti" je Inventor 100 rokov za opicami....Ja už od verzie 8 reklamujem niečo podobné pri polohovaní modelu pri jeho vkladaní do výkresu...a  v Autodesku sú spoľahlivo hluchí.... Ak vyberiete to okno kde si natáčate model podľa nejakej geometrie alebo natáčaním o určitý uhol, tak Vám tam defaultne naskočí hodnota 10 stupňov. Robím v Inventore od verzie 4, ale ešte ani raz som nevyužil tú ich defaultnú hodnotu....Veď prečo aj, keď každý náčrt zakladám ako slušný človek na základnú kresliacu rovinu...Teda v 99,99999% som potreboval model natáčať o 90 stupňov.Za tú dobu neboli schopní Inventor poľučtiť a dovoliť užívateľovy riadiť si defaultné hodnoty podľa obrazu svojho alebo aspoň tú hodnotu zmeniť z idiotských (prepáčte za výraz ale inak naozaj nemôžem) 10 stupňov na 90...

Není jednodušší model natáčet přímo ukázáním požadovaného pohledu na krychli ViewCube?
 
Co se týče značek drsnosti, makrem si lze předvolit libovolně nadefinovanou značku. Právě díky otevřenosti lze v Inventoru doplňovat další funkce. Zkuste třeba následující VBA makro - je to rovnou z ukázek, takže asi nedělá přesně to co chcete, ale pro ilustraci principu snad bude stačit. Přes Alt+F8 Edit si jej vložte do dokumentu, vyberte přímou kótu a přes Alt+F8 Run makro spusťte.
 
[CODE]
Public Sub AddSurfaceTextureSymbol32()    ' Set a reference to the drawing document.    ' This assumes a drawing document is active.    Dim oDrawDoc As DrawingDocument    Set oDrawDoc = ThisApplication.ActiveDocument        ' Check to make sure a linear dimension is selected.    If Not TypeOf oDrawDoc.SelectSet.Item(1) Is LinearGeneralDimension Then        MsgBox "A linear general dimension must be selected."        Exit Sub    End If        ' Set a reference to the active sheet.    Dim oActiveSheet As Sheet    Set oActiveSheet = oDrawDoc.ActiveSheet        ' Set a reference to the drawing dimension.    ' This assumes that a linear general dimension is selected.    Dim oLinearDim As LinearGeneralDimension    Set oLinearDim = oDrawDoc.SelectSet.Item(1)
    ' Get the mid point of the first extension line of the dimension    Dim oMidPoint As Object    Set oMidPoint = oLinearDim.ExtensionLineOne.MidPoint
    ' Set a reference to the TransientGeometry object.    Dim oTG As TransientGeometry    Set oTG = ThisApplication.TransientGeometry
    Dim oLeaderPoints As ObjectCollection    Set oLeaderPoints = ThisApplication.TransientObjects.CreateObjectCollection
    ' Create a few leader points.    Call oLeaderPoints.Add(oTG.CreatePoint2d(oMidPoint.X + 5, oMidPoint.Y + 5))    'Call oLeaderPoints.Add(oTG.CreatePoint2d(oMidPoint.X + 10, oMidPoint.Y + 5))
    ' Create an intent and add to the leader points collection.    ' This is the geometry that the symbol will attach to.    Dim oGeometryIntent As GeometryIntent    Set oGeometryIntent = oActiveSheet.CreateGeometryIntent(oLinearDim, oMidPoint)
    Call oLeaderPoints.Add(oGeometryIntent)
    ' Create the symbol with a leader    Dim oSymbol As SurfaceTextureSymbol    Set oSymbol = oActiveSheet.SurfaceTextureSymbols.Add(oLeaderPoints, _            kBasicSurfaceType, _            False, _            False, _            False, _            3.2, _            , , , , , _            kParticulateNondirectional)End Sub
[/CODE]

p. Michl, samozrejme že je možné natáčať model ako píšete...aj keď nie vždy. Ale myslím že takto otázka nestojí...A nazvať otvorenosťou Inventoru možnosť doplňovania funkcií pomocou VBA je určite možné, ale iba nazvať. Uvedomte si že väčšina uživateľov (a to drvivá väčšina) o VBA vie iba to že existuje...Väčšinový UŽIVATEĽ si predstavuje otvorenosť tak, že bude môcť pomocou dialógu nastavovať paramere softu, prípadne editovaním nejakého konfiguračného TXT súboru...Bez znalostí VBA kódovania. On totiž musí pracovať na zákazke a nie zabíjať pri každej novej verzii mesiac odlaďovaním, nastavovaním a študovaním kódovania aby si mohol SW prispôsobiť na svoj obraz....Toť moje pocity...Ľubomír Pápay2009-10-22 09:13:21

HOUUU!! Takto promluvil člověk z oboru a mne přímo z duše. Plně souhlasím.
Radek

Mne by stačilo, kdyby se makra dala nahrávat sejmutím činnosti na obrazovce.
Pane Michle, neuvažuje se o něčem takovém?
 
Baďura
 

  V doplnku ESKD-GOST 2.309-73 sú drsnosti prednastavené,prečo by to nemohlo byť aj v norme podľa ISO?

 
dental2009-10-22 12:52:41

Za "otevřenost" se u programů považuje spíše ta možnost uživatelských úprav formou API. Otevírá podstatně širší možnosti než jen uživatelské nastavování parametrů.
Ale máte pravdu že to není vhodná cesta pro běžného uživatele - spíš se předpokládá, že potřebné makro připraví dodavatel nebo CAD manager ve firmě. A nic by asi nebránilo ani úpravě Inventoru (Autodeskem) přednastavující tento parametr.
Nicméně hlavně nic nebrání si vytvořit uživatelský načrtnutý symbol a ten pak už jen vkládat z ribbonu pomocí ikony Symboly > Uživatel.
 
Přímé nahrávání VBA/.NET maker se pod vím nepřipravuje.