first, you tell the OP to post to the vba group. then, you don't answer
their question telling them to look somewhere else. unfortunately, there's a
bit more to it. here is an example in vba to do what the OP wanted. if you
need it ported to vb.net let me know.
Public Sub Test()
Dim GroupCode(0) As Integer
Dim DataValue(0) As Variant
Dim oSS As AcadSelectionSet
Dim oEntity As AcadEntity
Dim oDimRotated As AcadDimRotated
On Error Resume Next
'delete any previously existing selection set
ThisDrawing.SelectionSets("SS1").Delete
'create the desired selection set
Set oSS = ThisDrawing.SelectionSets.Add("SS1")
'define the parameters for selecting objects
GroupCode(0) = 0
DataValue(0) = "DIMENSION"
'populate the selections set
ThisDrawing.SelectionSets("SS1").Select acSelectionSetAll, , , GroupCode,
DataValue
For Each oEntity In oSS
If TypeOf oEntity Is AcadDimRotated Then
Set oDimRotated = oEntity
MsgBox oDimRotated.Measurement
End If
Next oEntity
End Sub
"Tony Tanzillo"
wrote in message
news:5895925@discussion.autodesk.com...
(So no one is confused, this is VB.NET code, and the Set statements are not
needed).
Consult the the VBA/Active Developer's help for how to building the
arguments needed to get a filtered selection.
You don't pass the entity type as a string to Select. You have to construct
two arrays (one holding the DXF codes and the other holding the values) and
pass that to Select().
--
http://www.caddzone.com
AcadXTabs: MDI Document Tabs for AutoCAD 2009
Supporting AutoCAD 2000 through 2009
http://www.acadxtabs.com
wrote in message news:5895846@discussion.autodesk.com...
I am trying to collect all the dimensions in my -refedit session...
My code follows...
---snip---
Dim ssetObj As AcadSelectionSet
ssetObj = objAcad.SelectionSets.Add("SS1")
ssetObj.Select(AcSelect.acSelectionSetA ll, , , "0", "DIMROTATED")
Dim S1 As AcadDimRotated
For Each S1 In ssetObj
MsgBox(S1)
Next S1
---snip---
It seems pretty simple...can anyone see what's going wrong or maybe have a
better way?
All cards and letters appreciated!
I solved my earlier REFEDIT open and closing issues by using the following
code (in case anyone can use it)...
objAcad.ActiveDocument.SendCommand("(setq EN1 (entlast)) ")
objAcad.ActiveDocument.SendCommand("(command ""-refedit"" & ""(cadr EN1)"" &
vbCr & ""ok"" & vbCr & ""a"" & vbCr & vbCr) ")
DimStyleAdjust() '<-- THIS IS THE SUB WHERE I NEED TO PUT MY DIMENSION
SELECTION SET STUFF
objAcad.ActiveDocument.SendCommand("(command ""refclose"" ""S"") ")
ROCK ON...TALK 'ATCHA LATER...keep those cards and letters coming!
