http://www.zwsoft.com/forum/viewthread.php?tid=2597 [color=#ffffff][font=monospace][size=13px]Sub XOPEN()[/size][/font] [font=monospace][size=13px]'abre referencia em outro desenho[/size][/font] [font=monospace][size=13px]Dim Documento As ZcadDocument[/size][/font] [font=monospace][size=13px]Dim PONTOBASE1 As ZcadPoint[/size][/font] [font=monospace][size=13px]Dim Xreferencia As ZcadEntity[/size][/font] [font=monospace][size=13px]Dim auxiliar As Integer[/size][/font] [font=monospace][size=13px]Dim Ficheiro As String[/size][/font] [font=monospace][size=13px]Dim FicheiroNome As String[/size][/font] [font=monospace][size=13px]On Error Resume Next[/size][/font] [font=monospace][size=13px]ThisDrawing.Utility.GetEntity Xreferencia, PONTOBASE1, "Escolha o Xref a abrir."[/size][/font] [font=monospace][size=13px] If Xreferencia.IsLayout = False Then[/size][/font] [font=monospace][size=13px] If Xreferencia.IsXRef = True Then[/size][/font] [font=monospace][size=13px] Ficheiro = Xreferencia.Path[/size][/font] [font=monospace][size=13px] FicheiroNome = ThisDrawing.Application.ActiveDocument.FullName[/size][/font] [font=monospace][size=13px] If Left(Ficheiro, 1) = "." Then[/size][/font] [font=monospace][size=13px] auxiliar = 0[/size][/font] [font=monospace][size=13px] Do While Mid(FicheiroNome, Len(FicheiroNome) - auxiliar, 1) <> "\" And Mid(FicheiroNome, Len(FicheiroNome) - auxiliar, 1) <> "/"[/size][/font] [font=monospace][size=13px] auxiliar = auxiliar + 1[/size][/font] [font=monospace][size=13px] If Len(FicheiroNome) - auxiliar = 0 Then Exit Sub[/size][/font] [font=monospace][size=13px] Loop[/size][/font] [font=monospace][size=13px] Ficheiro = Mid(FicheiroNome, 1, Len(FicheiroNome) - auxiliar) + Right(Ficheiro, Len(Ficheiro) - 2)[/size][/font] [font=monospace][size=13px] End If[/size][/font] [font=monospace][size=13px] For Each Documento In Documents[/size][/font] [font=monospace][size=13px] If Documento.FullName = Ficheiro Then[/size][/font] [font=monospace][size=13px] MsgBox ("O xref já se encontra aberto.")[/size][/font] [font=monospace][size=13px] Exit Sub[/size][/font] [font=monospace][size=13px] End If[/size][/font] [font=monospace][size=13px] Next Documento[/size][/font] [font=monospace][size=13px] ThisDrawing.Application.Documents.Open (Ficheiro)[/size][/font] [font=monospace][size=13px] End If[/size][/font] [font=monospace][size=13px] End If[/size][/font] [font=monospace][size=13px]End Sub[/size][/font][/color] franciscocsilva 2013-02-05 20:33:08