CADForums.net

Guest · Posted: Tue Aug 23, 2005 8:10 pm Post subject: reproduce eattedit behavior vba

Hi,

when you double-click a block's attribute under autocad 2005 the
enhanced attribute editor window appears with the attribute you
double-clicked already selected. I want to produce a similar effect
for a vba project.

I already use a selection set to click my objects but if it's a block
with attributes I want to get that attributes value directly.

Anybody know how to do it ?

TIA!

here's my code so far :
UserForm1.hide
Set ssetObj = ThisDrawing.SelectionSets.Add("TitreManuel121")
ssetObj.SelectOnScreen
For i = 0 To ssetObj.Count - 1
Set entObj = ssetObj.Item(i)
objType = entObj.ObjectName
If objType = "AcDbText" Then
Set entTxt = ssetObj.Item(i)
txtRev.Text = entTxt.TextString
ElseIf objType = "AcDbMText" Then
Set entMTxt = ssetObj.Item(i)
txtRev.Text = entMTxt.TextString
ElseIf objType = "AcDbBlockReference" Then '<-- for blocks
Set entBR = ssetObj.Item(i)
varAttribs = entBR.GetAttributes '<-- currently I only loop
through atts
upAtt = UBound(varAttribs)
For ii = 0 To upAtt
testvar = varAttribs(ii).Handle
Next ii
End If
Next i
ssetObj.Delete
UserForm1.Show 1

humberto · Joined: 26 Aug 2005 Posts: 6

try an acad events

Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)

End Sub

	CADForums.net Forum Index -> VBA	All times are GMT
Page 1 of 1