| V I S U A L I Z Z A D I S C U S S I O N E |
| piratabobo |
Inserito il - 29/08/2006 : 12:07:46
salve a tutti
nel realizzare un piccolo programma in VB per autocad ho avuto il seguente problema:
Dim docName As String
docName = App.Path & "\tipo\elemento"
if dir(docName) <> "" Then
ThisDrawing.Application.Documents.Open docName
Else
MsgBox docName & "modello disegno non trovato."
end if
in questo codice il problema e che in VB non esiste la libreria di "ACADProject" e quindi di conseguenza la funzione ThisDrawing non viene riconosciuta chiedendo di dichiarare la variabile.
Qualcuno saprebbe dirmi come posso ovviare al problema.
Grazie |
| 4 U L T I M E R I S P O S T E (in alto le più recenti) |
| piratabobo |
Inserito il - 31/08/2006 : 16:14:41
certo all'inizio dell'istruzione, come tu inizialmente mi avevi consigliato |
| admin |
Inserito il - 30/08/2006 : 12:39:54
Bravo bravo!
Effettivamente mettendo ThisDrawing devi essere già nell'oggetto Autocad.
Ma avrai messo da qualche parte un set per abbinare autocad all'oggetto Autocad... o no. |
| piratabobo |
Inserito il - 30/08/2006 : 11:19:12
no sto utilizzando visual basic, comunque il problema l'ho risolto con il seguente codice:
Dim docName As String
docName = App.Path & "\tipo\elemento"
if dir(docName) <> "" Then
autocad.Documents.Open docName
Else
MsgBox docName & "modello disegno non trovato."
end if
|
| admin |
Inserito il - 29/08/2006 : 20:14:08
Ciao pirata,
strano essendo già in Autocad che non trovi la libreria, prova a verificare quando sei dentro in VBA nella voce Strumenti->Riferimenti se c'è e se è selezionata la libreria.
Almeno mi sembra di aver capito che stai utilizzando VBA e non Visual Basic semplicemente.
Ciao! |
|
|
