Pokud se vám nedaří z výkresu odstranit odkaz na již nepoužívané logo (BMP, PNG, GIF obrázek), OLE objekt či jinou smazanou referenci, můžete využít následující jednoduché VBA makro (obrNazev si upravte dle potřeby):
Sub smazLogo()
Dim obrNazev As String
obrNazev = "logo razitko.png"
Dim oDoc As Document
Dim oDrawDoc As DrawingDocument
Dim obrazek As ReferencedOLEFileDescriptor
On Error Resume Next
Set oDoc = ThisApplication.ActiveDocument
If oDoc.DocumentType <> kDrawingDocumentObject Then
MsgBox "Aktuální dokument není výkres.", vbCritical, "Nemám výkres"
Exit Sub
Else
Set oDrawDoc = oDoc
End If
For i = 1 To oDoc.ReferencedOLEFileDescriptors.Count
Set obrazek = oDoc.ReferencedOLEFileDescriptors.Item(i)
If obrazek.DisplayName = obrNazev Then
obrazek.Delete
End If
Next
End Sub
Reference v DWG výkresech Inventoru lze zpravidla také odstranit v prostředí AutoCADu.
Pomohl vám tento tip? Provoz služby CADForum.cz podpoříte i nákupem produktů Autodesk u provozovatele tohoto serveru a Platinum partnera Autodesku, firmy Arkance Systems. Můžete si také přidat odkaz na vaše stránky:
Tipy a triky prosím využívejte na vlastní zodpovědnost. Provozovatel (Arkance Systems CZ s.r.o.) nenese odpovědnost za případné potíže vzniklé v souvislosti s použitím kteréhokoliv z uvedených tipů. Pro plné zvládnutí dané aplikace doporučujeme absolvování některého z nabízených CAD školení. Další publikování obsahu je dovoleno jen se souhlasem autora.