Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.099.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
CAD tip # 8660:
Otázka
A
Pro rychlý výpis seznamu souborů odkazovaných formou reference z výkresu Inventoru můžete použít následující jednoduché VBA makro. Makro "VypisRef" vložte do VBA editoru Inventoru (Nástroje > Možnosti > Editor VBA) a spusťte pomocí Alt+F8.
Sub VypisRef() Dim oDoc As Document Dim Refs As String Refs = "" Set oDoc = ThisApplication.ActiveDocument For i = 1 To oDoc.AllReferencedDocuments.Count Refs = Refs & oDoc.AllReferencedDocuments.Item(i).FullDocumentName & vbCrLf Next MsgBox Refs, vbInformation, "Seznam referencí" End Sub
platí pro: Inventor ·