What "a limiation", that VBA has, is ?
As my understanding to your code, you want to retrieve StartPoint and
EndPoint (and other possible properties) of an entity in the selectionSet
only the entity is AcadLine. There isn't VBA limitation to prevent you from
doing that:
Dim myLine As AcadLine
For Each LineOptained In SSObject 'or ThisDrawing.ModelSpace
LineOptainedHandle= LineOptained.Handle
''You examine what the entity type is before accessing its properties
If TypeOf LineOptained Is AcadLine Then
'If it is AcadLine, you can access StartPoint/EndPoint properties
Set myLine=LineOptained
StartPoint = myLine.StartPoint
EndPoint=myLine.EndPoint
...
...
Else If TypeOf lineOptained Is ... Then
''If it is something else, access its properties accordingly
...
...
End If
Next
However, if your SelectionSet's filter is set up correctly, it is guaranteed
everything in the SelectionSet is AcadLine. So, there is not need to use
"TypeOf ... Is ..." statement at all. Simply:
For Each LineOptained in SSObj
StartPoint=LineOptained.StartPoint
EndPoint=LineOptained.EndPoint
...
Next
OK, in this case, you do not get Intellisense prompt in VB Editor when
writing code, because LineOptained in SssObj is an generic type AcadEntity,
which points an concrete AcadLine. If this is what you called VBA
limitation, then it is really not. This is called "late-binding"
You can do this to get the Intellisense prompt back this way
(early-binding):
Dim myLine As AcadLine
For Each LineOptained in SSObj
Set myLine=LineOptained
StartPoint=myLine.StartPoint
EndPoint=myLine.EndPoint
...
Next
"maximas2000" wrote in message news:5980948@discussion.autodesk.com...
Dear friends,
here it is a code to select some lines with a section on screen
after selecting the lines , I want to get the start point of every line and
the end point
but the VBA has a limitation to make that
look at this code :
Dim ret As Boolean
Me.Hide
ret = AddingSelectionSetNamedThisName("HorizontalLines")
ThisDrawing.Utility.prompt vbCrLf & " Select Horizontal Lines :"
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
FilterType(0) = 0
FilterData(0) = "line" '"line" ' "3dface" , and so on
SSObject.SelectOnScreen FilterType, FilterData
SSObject.Highlight True
Dim i As Long
Dim LineOptained As AcadObject
Dim LineOptainedHandle As Long
Dim StartPoint As Variant
''Dim EndPoint As Variant
For Each LineOptained In SSObject 'or ThisDrawing.ModelSpace
LineOptainedHandle= LineOptained.Handle
StartPoint = LineOptained.startPoint
i = i + 1
Next
Me.Show
end sub
===========================
the results:
==========
the handle or length of any horizontal line will be determined
but other properties of a line object no
how to get some important properties of the acadEntity selected by the user
on screen
like maxPoint, minPoint, GetBounderingBox, startPoint, and EndPoint
notice that all above properties could be determined only when u create a
line by Addline
HOW TO WORK AROUND THIS ?????
ANYONE MAY HELP ME PLEASE ???
