Message 1 of 3

Not applicable
10-25-2011
11:05 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello all,
I'm scratching my head here... some hints please?
I'm trying to create a property in a class "extractTitleBlock"
which searches through the "ExtractBlockRef (AttRef List)"
How would I search through a list of the class object above it?
Or would there be a better best practice here?
I'm using Jerry Winters "All things Extraction: From AutoCAD to Databases, Excel, and XML using .NET"
as my reference here.
Follow?
Public Class extractTitleBlock Inherits extractBlockRef Public ReadOnly Property Description_Concantenated() As String Get 'Function to Get 4 Attributes and Return Concantenated String End Get End Property end Class Public Class extractBlockRef Inherits extractEntity Public Name As String Public Space As String Public Layout As String Public IsNested As Boolean Public Position As Point3d Public ScaleFactors As Scale3d Public Rotation As Double Public IsTitleBlock As Boolean Public Attributes As New List(Of extractAttRef) Public DynamicProps As New List(Of extractDynProp) End Class Public Class extractAttRef Inherits extractEntity Public Tag As String Public Value As String Sub New() End Sub Sub New(ByVal AttHandle As String, ByVal AttTag As String, ByVal AttValue As String) Handle = AttHandle Tag = AttTag Value = AttValue End Sub End Class Public Class extractEntity Private pHandle As String Private pLayer As String Property Handle() As String Get Return pHandle End Get Set(ByVal value As String) pHandle = value End Set End Property Property Layer() As String Get Return pLayer End Get Set(ByVal value As String) pLayer = value End Set End Property End Class
'Find Attribute Functions Public Function FindTitleLine1Attribute(ByVal myAttribute As extractAttRef) As Boolean If myAttribute.Tag.ToUpper = "TILINE_1" Then Return True Else Return False End If End Function
Solved! Go to Solution.