• Options
• Login
• Registrati
• Desktop Style
• Accelerated Mobile Pages Theme

Vbs Nanocad - rendere attivi i disegni aperti - Forum NANOCAD Italia

• Index

  • Forum NANOCAD Italia
  • NANOCAD ... ed altro ancora
  • Programmazione in nanoCAD
  • Vbs Nanocad - rendere attivi i disegni aperti
• Vbs Nanocad - rendere attivi i disegni aperti

• Vbs Nanocad - rendere attivi i disegni aperti

  dobermanz > 04-13-2023, 01:41 PM

  Nella programmazione in Visual Basic Script, sto cercando di trovare un comando che renda attivi i vari disegni aperti contemporaneamente in Nanocad. 
  La cosa sarebbe utilissima, per eseguire uno scritpt in automatico a tutti i disegni aperti contemporaneamente... un gran risparmio di tempo!
  
  Vediamo...  Documents.Count funziona, nel senso che recupera il numero dei documenti aperti in questo momento in Nanocad
  
  
  

  Codice:

  Dim n 'numero documenti aperti

n=ThisDrawing.Application.Documents.Count

U.Prompt "Questo e' il numero di documenti aperti: " & n   'ok, funziona!

  
  invece, se voglio attivarlo...
  
  

  Codice:

  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 errore

  
  da errore di codice alla riga dove voglio generare l'oggetto relativo al disegno 1
  
  Item risulta essere un metodo ammesso di Documents, come si può vedere in questo sito http://entercad.ru/acadauto.en/ , ma comunque non lavora, da errore
  
  non riesco a venirne a capo, ho provato tutte le combinazioni, ma niente

• RE: Vbs Nanocad - rendere attivi i disegni aperti

  tracciatura.net > 05-02-2023, 08:20 AM

  Non so che dirti io ho copiato e incollato il tuo codice e con 2 disegn aperti a me funziona
  

  Codice:

  Dim doc
Set doc = ThisDrawing.Application.Documents.Item(1)
doc.Activate

  assicurati che ci sia almeno un disegno aperto

• RE: Vbs Nanocad - rendere attivi i disegni aperti

  dobermanz > 05-15-2023, 04:44 PM

  Codice:

  '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.Activate

  Grazie per la risposta. Questo è il codice integrale del mio script e quello che ottengo nel prompt di Nanocad è 
  
  
  

  Codice:

  Questo 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)

^

  a questo punto credo che sia la mia versione di nanocad, che è quella free. la 5.0.2520

• RE: Vbs Nanocad - rendere attivi i disegni aperti

  tracciatura.net > 05-16-2023, 08:18 AM

  Sai che adesso l'ho riprovato e non mi funziona?!?
  
  usa questo anche se più articolato funzionerà
  

  Codice:

  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).Activate

• RE: Vbs Nanocad - rendere attivi i disegni aperti

  dobermanz > 06-10-2023, 05:32 PM

  Grazie! funziona!
  
  Ora mi sembra di capire qualcosa. ReDim ti serve prima per dichiarare un array a dimensione variabile e poi per ridimensionarlo la seconda volta che chiami ReDim. 
  Quello che mi piacerebbe capire è perchè il codice con il ciclo For Next e c funziona, mentre se provo a dare un indice solo numerico all'array mi da errore
  

  Codice:

  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).Activate

  
  questo giusto per capire un po' meglio... in pratica c si e 1 ... errore (ovviamente avevo più di due disegni aperti in nanocad quando ho provato)

• RE: Vbs Nanocad - rendere attivi i disegni aperti

  tracciatura.net > 06-13-2023, 10:18 AM

  Purtroppo lo stesso codice su NANOCAD5 gratuito e su uno a pagamento non sempre funziona l'ho notata sta cosa usando un codice che funzionava perfettamente poi dopo aver installato il PRO ho dovuto cambiare parte del codice per farlo fuzionare ...
  di fatti il primo codice che ti ho scritto sul 5 va e non sul PRO e il secondo codice viceversa....
• Precedente Successivo