| V I S U A L I Z Z A D I S C U S S I O N E |
| piratabobo |
Inserito il - 27/03/2006 : 12:21:13
Salve a tutti
volevo chiedere se è possibile, disegnando in autocad diversi anelli in qualunque posizione sul disegno, far riuscire a vba di leggere le relative coordinate X ed Y e memorizzarle?
Grazie a tutti coloro che vorranno aiutarmi a capire questo dilemma.
|
| 9 U L T I M E R I S P O S T E (in alto le più recenti) |
| piratabobo |
Inserito il - 03/04/2006 : 17:23:16
quello che a me serve già questo può anche andar bene, ma quello che ho in mente è ad esempio in un form all'interno di una listbox, avere la possibilita di caricare di volta in volta delle immaggini diverse con una serie di punti, cliccanco su questi punti innanzi tutto dovrebbero cambiare forma e secondariamente restituirmi le relative coordinate X ed Y.
Spero di essere stato un pò chiaro altrimenti fammi sapere e ti invio un esempio in un file di autocad.
P.S. per quanto riguarda la spiegazione sopra mi sta bene ma la cosa che ancora non mi è chiara e come memorizzare tutti i vari punti in un file, anche perchè pensavo di usare un file esterno tipo testo.
ciao a presto. |
| admin |
Inserito il - 03/04/2006 : 09:45:43
I punti di inserimento sono questi:
insertionPoint(0) = X
insertionPoint(1) = Y
insertionPoint(2) = Z
Questi punti puoi esportarli in excel se ti serve, oppure creare una tabella direttamente nel disegno oppure memorizzarli provvisoriamente su delle variabili.
Per quanto riguarda un Form si può fare ma bisogna vedere a te cosa serve fare alla fine.
Ciao! |
| piratabobo |
Inserito il - 03/04/2006 : 09:00:47
ok, ma nel momento in cui viene effettuata la verifica e di conseguenza viene trovato il punto di inserimento io i dati dei vari punti di inserimento dove li vado a trovare o meglio dove li memorizzo.
Volevo chiederti se un qualcosa del genere e anche possibile farlo all'interno di un form, e se ritieni che sia possibile possiamo approfondire l'argomento.
ciao |
| admin |
Inserito il - 02/04/2006 : 15:02:26
Ciao,
intanto ti do' questo che passa tutti gli oggetti del disegno, verifica se l'oggetto è un "anello" e trova il punto di inserimento.
Dim I As Integer
Dim PIns As Variant
Dim insertionPoint(0 To 2) As Double
Dim mspaceObj As AcadObject
'Ciclo tutti gli oggetti contenuti nel disegno
For I = 0 To ThisDrawing.ModelSpace.Count - 1
Set mspaceObj = ThisDrawing.ModelSpace.Item(I)
'Verifico che l'oggetto in analisi sia un Anello
If mspaceObj.ObjectName = "AcDbPolyline" Then
'ricavo il punto di inserimento
PIns = mspaceObj.Coordinates
insertionPoint(0) = PIns(0): insertionPoint(1) = PIns(1): insertionPoint(2) = 0
End If
Next
|
| piratabobo |
Inserito il - 31/03/2006 : 12:54:12
non ci sono problemi, rimango in attesa di tue notizie. |
| admin |
Inserito il - 30/03/2006 : 17:10:18
Spero per te non sia tardi cominciare a dirti qualcosa durante il week. |
| piratabobo |
Inserito il - 29/03/2006 : 20:50:45
carissimo amministratore, spero non ti sei scordato di me, aspetto con ansia tue nozioni.
saluti
Er Pirata |
| piratabobo |
Inserito il - 27/03/2006 : 15:12:57
conosco i cicli for, ma al riguardo non so come fare, i dati ricavati dai vari anelli mi serviranno per determinare quanti anelli ho inserito, quante file di anelli ho inserito, in quanto tutti gli anelli inseriti vanno inseriti casualmente ma per file ad esempio a 5 cm ho 6 anelli, a 10 ne ho 4 e così via, quindi mi servirà sapere per ogni fila le rispettive coordinate rispetto a Y degli anelli; conoscendo tutte queste coordinate sarò in grado di determinare il baricentro degli anelli.
Esempio: se a 5 cm ho 6 anelli e a 10 cm ho 4 anelli, il mio baricentro sarà (5x6 + 10x4)/10 = 7 cm.
Spero di essere stato più chiaro, in attesa di tue notizie ti saluto. |
| admin |
Inserito il - 27/03/2006 : 13:44:48
Ciao,
non credo sia un problema. O crei un filtro che raggruppi solo gli anelli oppure di tutti gli oggetti fai un for e verifichi se l'oggetto in esame è un anello, se è un anello vai a verificare il punto di inserimento.
Comunque di tutti gli oggetti puoi trovare il punto di inserimento.
Se sai come creare il filtro o fare il ciclo for sei già ad un buon punto. Immagino poi che una volta trovati i vari punti tu debba metterli da qualche parte come ad es: foglio excel, una tabella sul disegno stesso o altro.
Se non sai come fare pian piano potremmo farlo assieme.
Buon lavoro. |
|
|
