Již 10.000+ CAD tipů.
Přes 118.500 registrovaných u nás, celkem 1.095.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor.
Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
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 ·