dobermanz > 04-13-2023, 01:41 PM
Dim n 'numero documenti aperti
n=ThisDrawing.Application.Documents.Count
U.Prompt "Questo e' il numero di documenti aperti: " & n 'ok, funziona!Dim doc
Set doc = ThisDrawing.Application.Documents.Item(1) 'già a questa riga da errore
doc.Activate 'dovrebbe attivare il disegno 1, ma già dalla riga prima da erroretracciatura.net > 05-02-2023, 08:20 AM
Dim doc
Set doc = ThisDrawing.Application.Documents.Item(1)
doc.Activatedobermanz > 05-15-2023, 04:44 PM
'variabili programma -------------------------------------------------------------------------------
Dim n 'numero documenti aperti
Dim doc
n=ThisDrawing.Application.Documents.Count
ThisDrawing.Utility.Prompt "Questo e' il numero di documenti aperti: " & n
Set doc = ThisDrawing.Application.Documents.Item(1)
doc.ActivateQuesto e' il numero di documenti aperti: 3err: "Errore di run-time di Microsoft VBScript" raised an exception "Chiamata di routine o argomento non validi" at line 12 pos 0
Set doc = ThisDrawing.Application.Documents.Item(1)
^tracciatura.net > 05-16-2023, 08:18 AM
Dim ndoc 'numero documenti aperti
ReDim DOCs(100)
ndoc = Application.Documents.Count
ThisDrawing.Utility.Prompt "Disegni aperti " & ndoc
ReDim DOCs(ndoc - 1)
For c = 0 to ndoc - 1
Set DOCs(c) = Application.Documents(c + 1)
Next
DOCs(1).Activatedobermanz > 06-10-2023, 05:32 PM
Dim ndoc 'numero documenti aperti
Dim DOCs(2)
ndoc = Application.Documents.Count
ThisDrawing.Utility.Prompt "Disegni aperti " & ndoc
Set DOCs(1) = Application.Documents(2) 'in pratica in questo punto mi da errore chiamata di routine o argomento non validi in posizione 4
DOCs(1).Activatetracciatura.net > 06-13-2023, 10:18 AM