matt_1ca
April 26th, 2009, 07:48 PM
I am wondering what I am missing in the attached code that is making it impossible for me to make the VB.NET program below work using MVC (Model-View-Controller).
Right now, I am really lost despite my best efforts...
I am trying to implement the observer pattern and think that my code is getting closer to MVC but not quite there yet, firstly because it wont even run ... nevertheless I know that there is someone out there who knows what I am doing wrong
and I would definitely benefit from any guidance or help that someone more experienced in MVC VB.NET implementation can
give .. hence this letter.
So far Im really stumped and would forever be grateful for any help you could give.
Gratefully,
Matt
P.S.
I think the original post did not make it as when I try to search using the name of the one who posted the thread I dont get any result returned .... in that post I experimented using attachment ... looks like there is a problem with using attachment so I am redoing the posting here and this time not using any attachment and instead I have copy pasted all the source code here as shown below ... thanks
'''first interface the subject interface
Interface Isubject
Sub registerobserver(Iobserver o)
sub removeobserver(Iobserver o)
Sub notifyobservers()
End Interface
'''second interface the observer interface
Interface Iobserver
Sub update()
End Interface
'''1st class
Imports Autodesk.AutoCAD.Interop
Imports AutocadMAP
Imports Scripting
Public Class AutoCADaccess
Private ThisDrawing As AcadDocument
Private DrawingName As String
Public Sub AutoCADaccess() implements Isubject
Iobserver = New ArrayList
End Sub
public sub registerObserver(Iobserver o)
Iobserver.add(o)
End Sub
Public Function connectDrawing() As AcadDocument
Dim AcadApp As AcadApplication
Dim DrawingTitle As String
If ThisDrawing Is Nothing Then
On Error Resume Next
Err.Clear()
AcadApp = GetObject(, "AutoCAD.Application")
If Err.Number Then 'need to create object
AcadApp = CreateObject("AutoCAD.Application")
End If
AcadApp.Visible = True
ThisDrawing = AcadApp.ActiveDocument
AcadApp.WindowState = Common.AcWindowState.acMax
ThisDrawing.WindowState = Common.AcWindowState.acMax
End If
connectDrawing = ThisDrawing
End Function
Public Function setDrawingTitle() As String
Dim ObtainedTitle As String
ObtainedTitle = ThisDrawing.GetVariable("dwgname")
Me.DrawingName = "Title Block [" & ObtainedTitle & "]"
End Function
End Class
'''2nd class
Imports Autodesk.AutoCAD.Interop
Imports AutocadMAP
Imports Scripting
Public Class AutoCADtitle
Public Shared Sub main()
Static ThisDrawing As AcadDocument
Dim acad As New AutoCADaccess
Dim AcadMap As AcadMap
With acad
ThisDrawing = .connectDrawing
End With
MsgBox("Title Block [" & ThisDrawing.GetVariable("dwgname") & "]")
End Sub
End Class
'''the form which I am trying to have absorb in its caption the drawing name of the current drawing
Option Explicit On
Imports Autodesk.AutoCAD.Interop
Imports AutocadMAP
Imports Scripting
Public Class frmTitleBlk
Inherits System.Windows.Forms.Form
end Class
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''' THE GOAL, IE.. THAT OF GRABBING THE NAME OF THE '
'''' CURRENT DRAWING AND PUTTING IT IN THE CAPTION OF '
'''' THE LOADED FORM (frmTitle) IS EASY TO IMPLEMENT IF ONLY WE'
'''' ARE NOT DICTATED TO USE MVC ... IN THE LONG RUN '
'''' I GUESS MVC ARCHITECTURE IS GOOD SO I AM TRYING '
'''' TO BUILD THE THING USING IT ... ANYHOW, THE WAY '
'''' I ORIGINALLY WROTE THE PROGRAM IS SHOWN BELOW WHICH '
'''' I HAVE MODIFIED TO THAT WHICH IS SHOWN ABOVE '
'''' IE..THE ABOVE IS MOVING TOWARDS MVC .. BUT IN THE '
'''' ABOVE I AM NOT EVEN SURE IF I CAN DO frmTitleBlk.show from'
'''' from the sub called main without breaking MVC rules '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Imports Autodesk.AutoCAD.Interop
Imports AutocadMAP
Imports Scripting
Public Class AutoCADaccess
Private ThisDrawing As AcadDocument
Public Function connectDrawing() As AcadDocument
Dim AcadApp As AcadApplication
If ThisDrawing Is Nothing Then
On Error Resume Next
Err.Clear()
AcadApp = GetObject(, "AutoCAD.Application")
If Err.Number Then 'need to create object
AcadApp = CreateObject("AutoCAD.Application")
End If
AcadApp.Visible = True
ThisDrawing = AcadApp.ActiveDocument
AcadApp.WindowState = Common.AcWindowState.acMax
ThisDrawing.WindowState = Common.AcWindowState.acMax
End If
connectDrawing = ThisDrawing
End Function
End Class
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit On
Imports Autodesk.AutoCAD.Interop
Imports AutocadMAP
Imports Scripting
Public Class frmTitleBlk
Inherits System.Windows.Forms.Form
Private Sub TitleBlk_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ThisDrawing As AcadDocument
Dim acad As New AutoCADaccess
Dim AcadMap As AcadMap
With acad
ThisDrawing = .connectDrawing
End With
Me.Text = "Title Block [" & ThisDrawing.GetVariable("dwgname") & "]"
End Sub
End Class
Right now, I am really lost despite my best efforts...
I am trying to implement the observer pattern and think that my code is getting closer to MVC but not quite there yet, firstly because it wont even run ... nevertheless I know that there is someone out there who knows what I am doing wrong
and I would definitely benefit from any guidance or help that someone more experienced in MVC VB.NET implementation can
give .. hence this letter.
So far Im really stumped and would forever be grateful for any help you could give.
Gratefully,
Matt
P.S.
I think the original post did not make it as when I try to search using the name of the one who posted the thread I dont get any result returned .... in that post I experimented using attachment ... looks like there is a problem with using attachment so I am redoing the posting here and this time not using any attachment and instead I have copy pasted all the source code here as shown below ... thanks
'''first interface the subject interface
Interface Isubject
Sub registerobserver(Iobserver o)
sub removeobserver(Iobserver o)
Sub notifyobservers()
End Interface
'''second interface the observer interface
Interface Iobserver
Sub update()
End Interface
'''1st class
Imports Autodesk.AutoCAD.Interop
Imports AutocadMAP
Imports Scripting
Public Class AutoCADaccess
Private ThisDrawing As AcadDocument
Private DrawingName As String
Public Sub AutoCADaccess() implements Isubject
Iobserver = New ArrayList
End Sub
public sub registerObserver(Iobserver o)
Iobserver.add(o)
End Sub
Public Function connectDrawing() As AcadDocument
Dim AcadApp As AcadApplication
Dim DrawingTitle As String
If ThisDrawing Is Nothing Then
On Error Resume Next
Err.Clear()
AcadApp = GetObject(, "AutoCAD.Application")
If Err.Number Then 'need to create object
AcadApp = CreateObject("AutoCAD.Application")
End If
AcadApp.Visible = True
ThisDrawing = AcadApp.ActiveDocument
AcadApp.WindowState = Common.AcWindowState.acMax
ThisDrawing.WindowState = Common.AcWindowState.acMax
End If
connectDrawing = ThisDrawing
End Function
Public Function setDrawingTitle() As String
Dim ObtainedTitle As String
ObtainedTitle = ThisDrawing.GetVariable("dwgname")
Me.DrawingName = "Title Block [" & ObtainedTitle & "]"
End Function
End Class
'''2nd class
Imports Autodesk.AutoCAD.Interop
Imports AutocadMAP
Imports Scripting
Public Class AutoCADtitle
Public Shared Sub main()
Static ThisDrawing As AcadDocument
Dim acad As New AutoCADaccess
Dim AcadMap As AcadMap
With acad
ThisDrawing = .connectDrawing
End With
MsgBox("Title Block [" & ThisDrawing.GetVariable("dwgname") & "]")
End Sub
End Class
'''the form which I am trying to have absorb in its caption the drawing name of the current drawing
Option Explicit On
Imports Autodesk.AutoCAD.Interop
Imports AutocadMAP
Imports Scripting
Public Class frmTitleBlk
Inherits System.Windows.Forms.Form
end Class
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''' THE GOAL, IE.. THAT OF GRABBING THE NAME OF THE '
'''' CURRENT DRAWING AND PUTTING IT IN THE CAPTION OF '
'''' THE LOADED FORM (frmTitle) IS EASY TO IMPLEMENT IF ONLY WE'
'''' ARE NOT DICTATED TO USE MVC ... IN THE LONG RUN '
'''' I GUESS MVC ARCHITECTURE IS GOOD SO I AM TRYING '
'''' TO BUILD THE THING USING IT ... ANYHOW, THE WAY '
'''' I ORIGINALLY WROTE THE PROGRAM IS SHOWN BELOW WHICH '
'''' I HAVE MODIFIED TO THAT WHICH IS SHOWN ABOVE '
'''' IE..THE ABOVE IS MOVING TOWARDS MVC .. BUT IN THE '
'''' ABOVE I AM NOT EVEN SURE IF I CAN DO frmTitleBlk.show from'
'''' from the sub called main without breaking MVC rules '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Imports Autodesk.AutoCAD.Interop
Imports AutocadMAP
Imports Scripting
Public Class AutoCADaccess
Private ThisDrawing As AcadDocument
Public Function connectDrawing() As AcadDocument
Dim AcadApp As AcadApplication
If ThisDrawing Is Nothing Then
On Error Resume Next
Err.Clear()
AcadApp = GetObject(, "AutoCAD.Application")
If Err.Number Then 'need to create object
AcadApp = CreateObject("AutoCAD.Application")
End If
AcadApp.Visible = True
ThisDrawing = AcadApp.ActiveDocument
AcadApp.WindowState = Common.AcWindowState.acMax
ThisDrawing.WindowState = Common.AcWindowState.acMax
End If
connectDrawing = ThisDrawing
End Function
End Class
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit On
Imports Autodesk.AutoCAD.Interop
Imports AutocadMAP
Imports Scripting
Public Class frmTitleBlk
Inherits System.Windows.Forms.Form
Private Sub TitleBlk_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ThisDrawing As AcadDocument
Dim acad As New AutoCADaccess
Dim AcadMap As AcadMap
With acad
ThisDrawing = .connectDrawing
End With
Me.Text = "Title Block [" & ThisDrawing.GetVariable("dwgname") & "]"
End Sub
End Class