• This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Leggi altro.

Elencare gli xrif

ale

Utente Junior
Professione: tecnico
Software: office+autocad
Regione: Veneto
#1
un "bentornato" a tutti voi​

volevo sottoporre all' attenzione del forum un inconveniente incontrato con un file .dwg che ho ripreso dopo qualche tempo al cui interno ci sono alcuni x_rif che compongono il disegno.
alcuni di questi sono caricati, altri invece che non lo sono vengono evidenziati nel “ModelSpace” con il testo del percorso e del nome file .
per elencare questi riferimenti ed andarli ad individuare uno ad uno nelle varie directory ho scritto la routine :

Public Sub riferimento()
Dim j As AcadExternalReference
For Each j In ThisDrawing.ModelSpace
Debug.Print j.Path
Next
End Sub

Purtroppo il debug dopo aver scritto i primi riferimenti che risultano caricati si blocca con il “next” in corrispondenza dei riferimenti non caricati.

Idem se a j.path sostituisco j.name

come posso fare per avere una lista completa degli x_rif ?
 

lattu

Moderatore
Staff Forum
Professione: Libero professionista
Software: Autocad - 3ds Max - Inventor - Blender - Fusion 360
Regione: Lombardia - BG
#2
Comando: -xrif

Digitare un'opzione
[?/Unisci/STacca/Percorso/Scarica/Ricarica/soVrapponi/Attacca] <Attacca>: ?

Digitare nome/i di xrif da elencare <*>: (invio)

(a questo punto ti da le seguenti informazioni):

Nome xrif / Tipo xrif / Percorso
 

PlannerRoad

Moderatore
Staff Forum
Professione: Variabile
Software: AutoCAD 2016
Regione: Italia
#3
Oppure nel pannello dei Riferimenti Esterni (comando XRIF) hai tutta la lista degli xrif, tra cui pure indicati quelli non trovati.
 

lattu

Moderatore
Staff Forum
Professione: Libero professionista
Software: Autocad - 3ds Max - Inventor - Blender - Fusion 360
Regione: Lombardia - BG
#4
Oppure nel pannello dei Riferimenti Esterni (comando XRIF) hai tutta la lista degli xrif, tra cui pure indicati quelli non trovati.
giusto, però per avere un elenco esportabile con il tuo suggerimento non si riesce. :)
 

Shape

Utente Senior
Professione: Disegnatore Carpenteria
Software: Autocad, VBA-AutoLisp, Tecnometal4D, GIMP
Regione: Friuli
#6
un "bentornato" a tutti voi​

Public Sub riferimento()
Dim j As AcadExternalReference
For Each j In ThisDrawing.ModelSpace
Debug.Print j.Path
Next
End Sub
ora non vorrei dirti una costronata perchè non ho provato.. ma non ho mai utilizzato il metodo For Each j In ThisDrawing.ModelSpace generalemtne si fa una selezione anche su tutti gli oggetti con i selectionsets e poi il ciclo for each...

credo possa essere li il probl...
 

lattu

Moderatore
Staff Forum
Professione: Libero professionista
Software: Autocad - 3ds Max - Inventor - Blender - Fusion 360
Regione: Lombardia - BG
#8
figurati ....:)