Newsgroup: it.comp.software.cad
Titolo: autocad lt

Cerco licenza autocad lt 2005 italiano 

 ha scritto nel messaggio 
news:AIHNe.66535$2U1.3...@news3.tin.it...


grazie mille per l'informazione ..
"Fr@ C@puccino" <estroTO...@QUESTOtiscali.it> ha scritto nel messaggio 
news:43184687$0$8483$5fc...@news.tiscali.it...


Io cercherei una licenza, nuova non usata per un autocad LT, non è 
necessario l'ultimissima versione.
Sapete di qualche rivenditore che mi può aiutare?
Devo solo fare dei disegni in 2D, e schemi elettrico.
Non voglio spendere moltissimo.
Attualmente sto usando una versione free di intellicad (2000), ma 
purtroppo, molti software che utilizzo, hanno bisogno di un motore 
autocad per generare i disegni
Grazie
Giuliano


Newsgroup: it.comp.software.cad
Titolo: file di testo con quote

ciao,
ho mechanical desktop 6 power pack, e mi serve esportare un file qualsiasi
con le quote di inserimento di alcuni cerchi (qualche migliaio).
sarebbe utile qualcosa di simile alla quotatura su tabella, però su file.
è in qualche modo possibile?
ciao,
Luca

è in qualche modo possibile?
Con una macro VBA.
Selezioni tutti i cerchi su un layer definito, legge le proprietà
centro e le scrive su un file.
Qualcosa del genere
Sub InterpretaDisegno()
    Dim Sset As Object
    Dim GroupCode(0 To 3) As Integer
    Dim DataValue(0 To 3) As Variant
    Dim CountCerchi As Integer
    Dim NomeDisegno as String
    Dim Cerchio As AcadEntity
    Dim Coord As Variant
    Dim i As Integer
    Dim Trap As Boolean
    Dim CodiceErrore As Long
 On Error GoTo ErrorTrap
'Filtra solo le polilinee.
    GroupCode(0) = -4
    DataValue(0) = "<and"
    GroupCode(1) = 8
    DataValue(1) = "LayerCerchi"
    GroupCode(2) = 0
    DataValue(2) = "CIRCLE"
    GroupCode(3) = -4
    DataValue(3) = "and>"
 
    Set Sset = ThisDrawing.SelectionSets.Add("SSCerchi")
    Sset.Select acSelectionSetAll, , , GroupCode, DataValue
'Azzera i contatori dei cerchi
    CountCerchi = 1
'Apro il file in scrittura
    Open NomeDisegno For Output As #1
    Print #1, "Num.Cerchio", "X", "Y", "Z", "Raggio"
 
'Per ogni cerchio nel set di seleziona
    For Each Cerchio In Sset
	Coord = Cerchio.Center
	Print #1, i, Coord(0), Coord(1), Coord(2), Cerchio.Radius
	CountCerchi = CountCerchi - 1
    Next
    Close #1
' Cancello il set di selezione
    ThisDrawing.SelectionSets.Item("SSCerchio").Delete
    MsgBox "Il disegno è stato interpretato correttamente." & Chr(13)
& _
        "Sono state lette le seguenti entità: " & Chr(13) & _
        "Cerchii: " & CountCerchi - 1
Exit Sub
ErrorTrap:
' Routine di gestione errori
    Resume Next
End Sub
NomeDisegno è una stringa che deve contenere il percorso del file che
deve salvarlo, puoi selezionarlo tramite una form o assegnarlo a mano.
Saluti, Aniello
-- 
Aniello Annunziata
Content Director Manager
www.cadlandia.com
aniello.a...@cadlandia.com
Per rispondermi in privato, togli NOGARBAGE dall'indirizzo

ti ringrazio moltissimo, mi hai aperto un mondo nuovo.
neanche non conoscevo VBA per autocad.
l'altro giorno avevo dovuto esportare tutto su dxf, cercare di capire lo
standard e poi mandare l'output su file.
con le macro è stato molto più semplice.
ciao ciao,
Luca