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=F2 che serve veramente a me (AutoLisp =E8 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 =3D 0 To ThisDrawing.ModelSpace.Count - 1
With ThisDrawing.ModelSpace(i)
If .ObjectName =3D "AcDbLine" or .ObjectName =3D
"AcDbPolyLine" Then
Lunghezza =3D .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=F9 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=E8, 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=E8 non sono associabili alla linea corretta!
St=F2 cercando di identificare tutte le entit=E0 del mo dwg per esempio
utilizzando UN ATTRIBUTO (come per i blocchi) sulle singole linee o
polylinee? Questo sarebbe il massimo cos=EC potrei esportare in un file
txt 2 colonne: 1.) Sezione nr=B0. 2.) Larghezza
Tutto questo =E8 utopia secondo voi?
grazie
Roberto
Reply to
roberto
Loading thread data ...

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.