Aggiungere Attributi a dei blocchi

Principiante87 ha detto:

Ciao a tutti!
Sto continuando la mia tesi inerente la personalizzazione di Autocad.. Grand parte del lavoro è già stato svolto, ma con espedienti che hanno poco a che fare con Autocad.. ho fatto cioè ricorso alle mie capacità di programmazione più banali. Sono, a questo punto, a porvi un quesito.
Dovrei aggiungere degli attributi a dei blocchi, nel caso questi ne siano privi.. il codice che ho scritto per l'estrapolazione degli attributi esistenti, è il seguente (e per ora funziona ) :

Dim u As AcadBlockReference
Dim p As String
Dim myAttrRef As AutoCAD.AcadAttributeReference
For Each u In ThisDrawing.Blocks(0)
With u
i = 0
c = u.Name
If u.HasAttributes Then
x = (u.GetAttributes())
Set myAttrRef = x(i)
p = p & " " & myAttrRef.TextString
i = i + 1
End If
End With
Next u

Dovrei adesso procedere con la seguente logica: se u.hasattribute= false, allora aggiungi un attributo (che è una stringa) a quel blocco. Qualcuno saprebbe aiutarmi? Grazie mille in anticipo a tutti!

Clicca per espandere...

RICVBA ha detto:

usa il metodo AddAttribute
sull'help Autocad c'è qs esempio

Sub Example_AddAttribute()
' This example creates an attribute definition in model space.

Dim attributeObj As AcadAttribute
Dim height As Double
Dim mode As Long
Dim prompt As String
Dim insertionPoint(0 To 2) As Double
Dim tag As String
Dim value As String

' Define the attribute definition
height = 1#
mode = acAttributeModeVerify
prompt = "New Prompt"
insertionPoint(0) = 5#: insertionPoint(1) = 5#: insertionPoint(2) = 0
tag = "NEW_TAG"
value = "New Value"' Create the attribute definition object in model space
Set attributeObj = ThisDrawing.ModelSpace.AddAttribute(height, mode, prompt, insertionPoint, tag, value)
ZoomAll

End Sub

una domanda: nel tuo esempio tu indaghi/agisci sugli attributi di tutti i riferimenti di blocco del solo 1° blocco ("item(0)"). è quello che vuoi? diversamente devi inserire un ciclo esterno su tutti i blocchi (e conseguente dichiarazione di variabile AcadBlock)

nota: probabilmente il tuo codice è solo una bozza ma ti segnalo:
- usi "with u" ma poi continui ad usare "u" nei successivi riferimenti dentro il with
- il ciclo sulla "i" non è un vero ciclo, per cui alla fine indaghi il solo primo attributo (i=0) per ogni riferimento di blocco "u"
-
- imposti il valore di "c" senza averlo dichiarato nè poi utilizzato
- manca la dichiarazione di "x" e di "i"
di seguito un esempio di come lo imposterei

Dim u As AcadBlockReference
Dim p As String
Dim c As String ' aggiunto
'Dim myAttrRef As AutoCAD.AcadAttributeReference ' non "sprecherei una variabile, visto che lo usi solo una volta
Dim x As Variant ' aggiunto
Dim i As Integer

For Each u In ThisDrawing.blocks(0)
With u
If .HasAttributes Then
x = .GetAttributes
For i = LBound(x) To UBound(x)
c = .name ' ma dove la usi?

' non userei una variabile myAttrRef apposta
' se devi richiamere/usare più volte l'attributo x(i) usa un "with x(i)"
' Set myAttrRef = x(i)
' p = p & " " & myAttrRef.TextString
p = p & " " & x(i).TextString
i = i + 1
Next i
End If
End With
Next u
come debug è ok. ma non l'ho fatto girare!
ciao

Clicca per espandere...

Principiante87 ha detto:

Innanzitutto Grazie, sei stato molto gentile! Le var x e c erano state dichiarate, ma mi ero dimenticata di copiare quelle due righe di codice, comunque grazie per le dritte! Proverò subito ad implementare quanto mi hai consigliato.. Ho solo un dubbio, riesco con un else al codice precedente (ovvero se u.hasattribute non è definito) ad aggiungere un attributo proprio a quel blocco? Perchè ieri ho fatto diversi tentativi: l'estrazione di attributi dai blocchi che li posseggono, funziona, ma l'attribuzione ai blocchi che non hanno attributi assegnati no.. Non so se mi sono spiegata bene.. in ogni caso grazie ancora!

Clicca per espandere...