salvare in un file dxf

Hai un problema con Excel?

Nuova discussione

salvare in un file dxf
di maradona (utente non iscritto) data: 26/08/2014 12:55:53
Salve a tutti, volevo sapere se esiste un metodo per salvare delle polilinee e dei testi creati con applicazione vba for excel, in un file dxf da aprire con autocad.
Grazie.
di lepat (utente non iscritto) data: 26/08/2014 17:05:41
a domanda vaga risposta vaga, hai provato a cercare con google ?
il formato dxf è un formato specifico, quello dei tuoi dati che tipo di formato è ?
di maradona (utente non iscritto) data: 27/08/2014 09:35:22
Mi spiego meglio, con un'applicazione creata con vba excel ricavo le coordinate di tutti i punti per il disegno del diagramma del momento su una trave. Ora mi servirebbe sapere se tali punti, con una macro in excel, possono essere rappresentati, uniti con una polilinea e salvati su un file dxf per poi poter essere aperto con un cad.

P.S.: I miei dati sono in un foglio excel

Grazie.
di Luca73 data: 27/08/2014 10:59:52
Per farlo, si può fare
e secondo me non è neanche troppo difficile ma solo lungo da scrivere.
Cercando nella rete ho trovato nel Forum freevbcode.com come Category:Office/VBA, Type:Snippets,
Difficulty:Intermediate, Author: Anonymous un modello che ho solo leggermente corretto e ti allego.
Secondo me si puo modificare e con opportuni cicli, a partire da una colonna di coordinate X e Y, costruire linee che disegnino il profilo richiesto. L'esempio che allego contiene linee, cerchi e testi.
L'ho provato e funziona (nota della fonte "the code [...] works with versions of Autocad after v12.")
Spero di esserti stato di aiuto
Ciao
Luca
di maradona (utente non iscritto) data: 27/08/2014 12:18:19
Ciao Luca, ti ringrazio per il tuo interessamento. Purtroppo non riesco a vedere dov'e' l'allegato. Potresti ripostarlo?
Grazie.
di Luca73 data: 27/08/2014 12:22:55
GLi allegati li trovi in alto a destra nella banda blu sotto il pulsante "allega file" dove c'èl'icona di un foglio con la freccia in basso
Ciao
di maradona (utente non iscritto) data: 27/08/2014 12:50:47
Ok grazie. Provo e ti faccio sapere gli sviluppi.
Ancora grazie.
di maradona (utente non iscritto) data: 27/08/2014 19:00:33
Errore di run time al rigo 72
Sub DxfInit(f$) Open f$ For Output As #1
di lepat (utente non iscritto) data: 27/08/2014 20:33:37
hai inserito un path esistente sul tuo pc ?
di Luca73 data: 28/08/2014 08:39:21
Oltre a Verificare (come ti ha scritto Lepat che il path esiste) e dovrebbe esistere perchè è C: e il Nome del File (percorso che e' scritto nella cella "A4") verifica che tu abbia il permesso di scrittura in tale percorso. Io per esempio avevo utilizzato un path diverso in quanto sul mio PC di lavoro non ho il permesso di scrivere in C:.
Ciao
Luca
di lepat (utente non iscritto) data: 28/08/2014 09:26:17
Allego un esempio più significativo che disegna un quadrato e un cerchio, da tenere presente che Acad vuole i decimali col punto, quindi occorre sostituire la virgola col punto
di lepat (utente non iscritto) data: 28/08/2014 13:21:14
come dicevo basta cercare con google e si trova di meglio
h t t p://www.strutturista.com/2009/04/xls-to-dxf-crea-diagrammi-in-excel-ed-esporta-in-autocad/
di maradona (utente non iscritto) data: 29/08/2014 17:36:10
Grazie ragazzi, stò elaborando il file poi quando sarà finito ve lo giro per un giudizio.
P.S.: Come si fa a cambiare la virgola con il punto? Io ho saltato il problema usando dati senza decimali pero'...

A e poi sarebbe il massimo se si potesse anche cambiare il font della scrittura ma non so se si può.

Cmq grazie. Siete grandi!
di lepat (utente non iscritto) data: 29/08/2014 17:46:54
si usa replace, c'è nell'esempio che ho allegato
di lepat (utente non iscritto) data: 30/08/2014 09:22:12
il font si può cambiare, ma un solo font per tutte le scritte, basta sostituire nella Sub DxfInit(f$) la riga
Print #1, "txt"
con
Print #1, "nomefont.ttf"
di lepat (utente non iscritto) data: 08/10/2014 10:15:34
Riprendo questa discussione per segnalare l'ottimo lavoro sviluppato qui
h t t p://bar-ingegneria.forumfree.it/?t=69347956

Vuoi Approfondire?