- eseguire un'applicazione esterna

[ Home | Discussioni Attive | Discussioni Recenti | Segnalibro | Msg privati | Sondaggi Attivi | Utenti | Download | Cerca | FAQ ]
Nome Utente:
Password:
Salva Password
Password Dimenticata?

 Tutti i Forum
 Autocad
 VBA - Visual Basic per Autocad
 eseguire un'applicazione esterna
 Nuova Discussione  Rispondi Bookmark this Topic Aggiungi Segnalibro
I seguenti utenti stanno leggendo questo Forum Qui c'è:
Autore Discussione Precedente Discussione Discussione Successiva  

piratabobo
Utente Normale




69 Messaggi

Inserito il - 07/06/2006 : 19:12:09  Mostra Profilo  Rispondi Quotando
Salve e da un po di tempo che non ci si sente
volevo chiedere se qualcuno saprebbe dirmi come posso fare eseguire un file script da VBA, o meglio dovre fare in modo da poter lanciare tramite un pulsante su un form creato in VBA un file di script.
Grazie a chiunque mi possa dare un aiuto.

admin
Amministratore



Regione: Veneto
Prov.: TV
Città: Treviso


188 Messaggi

Inserito il - 07/06/2006 : 20:35:17  Mostra Profilo  Visita l'Homepage di admin Invia a admin un Messaggio Privato  Rispondi Quotando
Ciao,
ma intendi un file script con estensione scr o uno script programmino con estensione tipo exe?
Torna all'inizio della Pagina

piratabobo
Utente Normale




69 Messaggi

Inserito il - 08/06/2006 : 08:20:58  Mostra Profilo  Rispondi Quotando
si intendo un file script con estensione .scr
Torna all'inizio della Pagina

admin
Amministratore



Regione: Veneto
Prov.: TV
Città: Treviso


188 Messaggi

Inserito il - 08/06/2006 : 09:06:47  Mostra Profilo  Visita l'Homepage di admin Invia a admin un Messaggio Privato  Rispondi Quotando
Ciao,
il metodo più semplice secondo me è questo anche se banale...

Dim sysVarName As String
Dim sysVarData As Variant
Dim DataType As Integer
Dim intData As Integer

' Imposto la variabile FILEDIA a 0
sysVarName = "FILEDIA"
intData = 0
sysVarData = intData ' Integer data
ThisDrawing.SetVariable sysVarName, sysVarData

ThisDrawing.SendCommand "'script"
ThisDrawing.SendCommand vbCr
ThisDrawing.SendCommand "c:\prova.scr"
ThisDrawing.SendCommand vbCr

' Imposto la variabile FILEDIA a 1
sysVarName = "FILEDIA"
intData = 1
sysVarData = intData ' Integer data
ThisDrawing.SetVariable sysVarName, sysVarData

'E poi scarichi il form
Torna all'inizio della Pagina

piratabobo
Utente Normale




69 Messaggi

Inserito il - 08/06/2006 : 11:33:09  Mostra Profilo  Rispondi Quotando
ok grazie e quello che mi serviva, come sempre sei impeccabile.
Torna all'inizio della Pagina
  Discussione Precedente Discussione Discussione Successiva  
 Nuova Discussione  Rispondi Bookmark this Topic Aggiungi Segnalibro
Vai a:
© Torna all'inizio della Pagina
Tradotto Da: Vincenzo Daniele & Luciano Boccellino- www.targatona.it | Distribuito Da: Massimo Farieri - www.superdeejay.net | Powered By: - Snitz Forums 2000 Version 3.4.03

Antidoto.org | Brutto.it | Estela.org | Equiweb.it