Prosím o radu.
V Inventoru 2013 jsem měl ve výkresu makro, které při uložení výkresu automaticky přepsalo datum změny ve výkrese.Po přechodu na Inventor 2014 mi toto makro přestalo fungovat, přitom je ve výkrese (novém i starém) stále obsaženo. Nevíte kde je problém a jak jej vyřešit aby makro znofu fungovalo?Zde je text zmíněného makra.Public Sub AutoSave()Call AddSysDateTimeEnd SubPublic Sub AddSysDateTime()On Error Resume Next'Check if the active document is a DrawingIf ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then'Add a custom property "SysDate" with system dateSet oPropSet = ThisApplication.ActiveDocument.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")'As a workaround the property must be delete because it can not be changedoPropSet.Item("SysDate").DeleteCall oPropSet.Add(Format(Date, "d.m.yyyy"), "SysDate")'Add a custom property "SysTime" with system timeSet oPropSet = ThisApplication.ActiveDocument.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")'As a workaround the property must be delete because it can not be changedoPropSet.Item("SysTime").DeleteCall oPropSet.Add(Format(Time, "h:mmam/pm"), "SysTime")'Still having some problems that the last property does not update correctCall RefreshPropertiesEnd IfEnd SubPrivate Sub RefreshProperties()Set oPropSet = ThisApplication.ActiveDocument.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")Call oPropSet.Add("", "MyDummy")oPropSet.Item("MyDummy").DeleteEnd Sub

Doporučuji použít vestavěnou funkci datumu v X-Tools, funguje automaticky.

Tohle makro už fungovat nebude, protože používalo potenciálně nebezpečnou funkci AutoSave()Tato a jí podobné funkce AutoOpen, AutoNew,
AutoSave, AutoClose, and AutoEdit byly bez náhrady zrušeny. Jedinou možností tak je přepsat to jako AddIn, nebo použít X-Tools

Nebude takováto, s prominutím, ptákovina (velice potřebná) někdy defaultně v Inventoru?Používal jsem "datum uložení" v inventoru 0011 s programem Iproperty (což byl asi předchůdce X-tools). Pak jsem musel na nové verze předělávat kusovníky zpět na datum vytvoření. Xtools mám, ale bojím se, že to zase do budoucna z jakéhokoliv důvodu nebude fungovat.

Nevím, kdo přesně stál za doplňkem iProperty. Myslím, že u X-Tools něco podobného v dohledné době nehrozí. A pokud by se v budoucnu přece jen stalo, že by jejich vývoj skončil, tak bude určitě k dispozici nějaká důstojná náhrada, nebo se alespoň zveřejní zdrojové kódy, aby v tom mohl někdo pokračovat.

Nainstaloval jsem X-tools a po nastavení to funguje.
Nevíte jestli by se dalo pomocí tohoto X-tools nastavit i přepsání jména podle toho, kdo udělal poslední změnu ve výkrese?

Jestli to není v X-tools, můžete na to použít makro v iLogic:iProperties.Value("Custom","LastUser") = ThisApplication.UserName