Newsgroup: it.comp.software.cad
Titolo: Esportare info lunghezza da una tavola autocad usando codice Visual Basic

Da ieri mi sono cimentato a programmare in VB per far fare ad Autocad
ciò che serve veramente a me (AutoLisp è troppo complicato per me!!)
ma i risultati sono alquanto deludenti. Ecco il mio unico operato:
Sub sezioni()
         Dim i As Integer
         Dim Lunghezza As Double
         Open "c:\sezioni.txt" For Output As #1
         For i = 0 To ThisDrawing.ModelSpace.Count - 1
                 With ThisDrawing.ModelSpace(i)
                     If .ObjectName = "AcDbLine"  or .ObjectName =
"AcDbPolyLine" Then
                         Lunghezza = .Length
                         Print #1, Format(Lunghezza, "0.0000")
                     End If
                 End With
         Next
         Close #1
End Sub
Questo mi esporta tutte le lunghezze delle linee e delle polilinee del
mio dwg MA a me servirebbe qualcosa di più leggibile qualvolta le
sezioni siano sparse nel modello ed io invece volessi dare loro un
ordine!!
Help me on these topic, please:
- Come faccio a stabilire un ordine di lettura delle mie polilinee?
Cioè, se io creo le sezioni in ordine di esportazione queso codice
funziona, ma se il fiume biforca ed autocad si trova
con due linee sulla stessa riga e magari io le ho disegnate in ordine
sparso, il codice mi restituisce un elenco di numeri senza significato
perchè non sono associabili alla linea corretta!
Stò cercando di identificare tutte le entità del mo dwg per esempio
utilizzando UN ATTRIBUTO (come per i blocchi) sulle singole linee o
polylinee? Questo sarebbe il massimo così potrei esportare in un file
txt 2 colonne: 1.) Sezione nr°. 2.) Larghezza
Tutto questo è utopia secondo voi?
grazie
Roberto

 ha scritto nel messaggio
news:1148495180.1...@i40g2000cwc.googlegroups.com...


L'ho pubblicato...
http://www.sepram.com/DEMO/LSP/Scrive%20lunghezze%20polilinee%20in%20file%20csv.LSP
Ciao Claudio
-- 
--
"SePrAm.com" <in...@sepramNOSPAM.com> ha scritto nel messaggio
news:44756b4f$0$36929$4faf...@reader3.news.tin.it...


Sei un mago!
Ma dove hai imparato a programmare così in lisp?
Non so se posso permettermi ancora di disturbarti ma io proprio non
riesco neanche a modificarlo il codice tanto complesso mi sembra...
E' proprio quello che cerco MA:
non riesco a dare un ordine alle polilinee! Nel file di output mi
identifica le linee da 1 a N con l'ordine di lettura (penso) o di
creazione (credo) ma sicuro non quello di selezione....
Quello che servirebbe a me è un AUTOCAD che mi chiede, OGNI QUALVOLTA
IO DISEGNI UNA POLILINEA, il suo nome (io inserirei S1 per la prima
sezione, S2 per la seconda...e così via) e poi così nel mio file di
output, anche se ordinate, le misure delle lunghezze avrebbero un senso
perchè riferite ad una entità che so identificare nel mio dwg (anche
se son in disordine ora non c'è problema...le ornino in excel...)...
Come si fa ad assegnare un nome, attributo, xdata, xref ad una linea o
polilinea.... io mi sto scervellando ma non riesco a differenziare tra
loro le singole entità!
INTANTO GRAZIE MILLE PER IL TUO SUPPORTO SUPERTECNICO
CIAO ROBERTO

 ha scritto nel messaggio
news:1148551005....@38g2000cwa.googlegroups.com...


Sol ora ho visto che segue l'ordine di selezione. si riuscirebbe cmq ad
andare oltre dando i nomi alle singole entità in fase di disegno?
scusa se ho letto in ritardo quello della selezione
rob

CLAUDIO SEI UN MAGO!
Mi stai stupendo veramente con effetti speciali... è da ieri che salto
il pasto per cercar di venircene fuori (programmando con Visual BasicA)
per far ciò che tu hai scritto in un attimo (ma l'avevi già pronto ho
l'hai scritto al volo per me?)... ora stavo cercando di tradurlo in
VBA, non perchè non mi piace il tuo, ma perchè mi piacerebbe
modificarlo ed ampliarlo ora che ho visto le potenzialità del
programmare in CAD...MA NON RIESCO NEANCHE A TRADURLO... a te scoccia
se (ovviamente col tuo nome sopra) lo faccio vedere anche al mio
relatore (un personaggione che mi sta facendo fare dei lavori veramente
interessanti per la mia tesi...)?
P.S. Scusa se non m'ero accorto che leggeva nell'ordine di selezione
perchè io provavo a fare un select di tutte le righe che avevo nel
dwg...
Non so fino a che limite possa arrivare la tua pazienza ma io ci provo
a farti un altra domanda:
Ti mando in allegato il dwg di prova. E' una digitalizzazione di un
tratto del tagliamento a Cornino fatto da una foto ortorettificata da
me la settimana scorsa durante una campagna di misura.
In rosso sono le sezioni di tutta la fascia alluvionale
in azzurro le coste dei canali
in blu le famose sezioni di cui m'interessa la larghezza
a me interesserebbe calcolare anche l'area bagnata di ogni fascia (tra
due righe rosse e dentro le righe azzurre) senza dover disegnarci sopra
perforza 14 poligoni per ogni fiume e lanciare il comando
area...secondo te si può fare?
poi con excel mi calcolerò la lunghezza della linea d'asse, la
sinuosità (lunghezza asse/lunghezza rettilinea), area bagnata sezione
per sezione, area bagnata totale, area isole totali, area sedimenti
totali... tutto questo per metterlo in relazione con la portata del
fiume che misuriamo giornalmente... interessante vero?
Secondo te sono sulla strada giusta? Posso sperare di convertire il tuo
programma in VBA per poterlo aggiornare (un tempo sapevo programmare in
VB ora solo in Fortran)?Se hai tempo mi dai due dritte per fare ciò?
ribadisco che sei un mago! Ma di dove sei? su cosa lavori? non voglio
essere invadente ma io pensavo di saper lavorare bene in cad e in
programming ed invece...
Nota: io sto finendo il mio corso di ingegneria ambientale a Trento,
abito a riva del garda e faccio l'istruttore di vela... se vorrai
venirmi a trovare ti porterò in barca se ti può interessare o almeno
ti offrirò una cena...
aspetto tue nuove se non ti sei già stufato di leggere
ciao e grazie
P.S. Non riesco ad allegarti i files dal forum... Se hai un indirizzo
fatto apposta per gli scocciatori e vuoi usarlo con me ti invio il
tutto... ovviamente basta un tuo cenno ed io smetto di stressarti...
non puoi mica farmi tu la tesi (per tua info: qui ad ingegneria non
esiste un teacher preparato come te su questi argomenti!)...scrivi a
robybox2...@yahoo.it
 che poi ti rispondo con i files!
ciao ciao
roberto

 ha scritto nel messaggio
news:1148562750.8...@y43g2000cwc.googlegroups.com...
CLAUDIO SEI UN MAGO!
Mi stai stupendo veramente con effetti speciali... č da ieri che salto
il pasto per cercar di venircene fuori (programmando con Visual BasicA)
per far ciň che tu hai scritto in un attimo (ma l'avevi giŕ pronto ho
l'hai scritto al volo per me?)... ora stavo cercando di tradurlo in
VBA, non perchč non mi piace il tuo, ma perchč mi piacerebbe
modificarlo ed ampliarlo ora che ho visto le potenzialitŕ del
programmare in CAD...MA NON RIESCO NEANCHE A TRADURLO... a te scoccia
se (ovviamente col tuo nome sopra) lo faccio vedere anche al mio
relatore (un personaggione che mi sta facendo fare dei lavori veramente
interessanti per la mia tesi...)?
P.S. Scusa se non m'ero accorto che leggeva nell'ordine di selezione
perchč io provavo a fare un select di tutte le righe che avevo nel
dwg...
Non so fino a che limite possa arrivare la tua pazienza ma io ci provo
a farti un altra domanda:
Ti mando in allegato il dwg di prova. E' una digitalizzazione di un
tratto del tagliamento a Cornino fatto da una foto ortorettificata da
me la settimana scorsa durante una campagna di misura.
In rosso sono le sezioni di tutta la fascia alluvionale
in azzurro le coste dei canali
in blu le famose sezioni di cui m'interessa la larghezza
a me interesserebbe calcolare anche l'area bagnata di ogni fascia (tra
due righe rosse e dentro le righe azzurre) senza dover disegnarci sopra
perforza 14 poligoni per ogni fiume e lanciare il comando
area...secondo te si puň fare?
poi con excel mi calcolerň la lunghezza della linea d'asse, la
sinuositŕ (lunghezza asse/lunghezza rettilinea), area bagnata sezione
per sezione, area bagnata totale, area isole totali, area sedimenti
totali... tutto questo per metterlo in relazione con la portata del
fiume che misuriamo giornalmente... interessante vero?
Secondo te sono sulla strada giusta? Posso sperare di convertire il tuo
programma in VBA per poterlo aggiornare (un tempo sapevo programmare in
VB ora solo in Fortran)?Se hai tempo mi dai due dritte per fare ciň?
ribadisco che sei un mago! Ma di dove sei? su cosa lavori? non voglio
essere invadente ma io pensavo di saper lavorare bene in cad e in
programming ed invece...
Nota: io sto finendo il mio corso di ingegneria ambientale a Trento,
abito a riva del garda e faccio l'istruttore di vela... se vorrai
venirmi a trovare ti porterň in barca se ti puň interessare o almeno
ti offrirň una cena...
aspetto tue nuove se non ti sei giŕ stufato di leggere


Ho provato (ora anche senza allegati) ma mi ritornano tutte indietro le
mail indirizzate a in...@sepramnospam.com... contattami su
robybox2...@yahoo.it
ciao

bè visto che è molto che gironzolo per il tuo sito con i file,
veramente utili, è un piacere vederti qui, e colgo l'occasione per
farti i complimenti per la bravura che dimostri.

 ha scritto nel messaggio
news:1148751654....@j33g2000cwa.googlegroups.com...
