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