To wrap this thread up, I was finally successful hosting and starting a functional WCF server inside the ACAD process and I can call functions that expose core acad functionality to any program running anywhere on the network. The solution came as a combination of Adam Nagy's example in the reply thanks to Alexander.Rivilis that solved the core multithreading problem and Paul Shleppy's excellent video from AU that taught me how to pass objects to a custom ServiceHost class.
Here is the full solution for anyone out there who's trying to accomplish something similar, please give everyone who contributed to it credit for it by response/kudos , thanks.
Imports System.Windows.Forms
Imports System.ServiceModel
Imports System.ServiceModel.Description
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Imports MgdAcApplication = Autodesk.AutoCAD.ApplicationServices.Application
Public Class AcServiceHost
Inherits ServiceHost
Private _ctrl As clsControl = Nothing
Public Sub New(ByVal serviceType As Type, ByVal endpoint As Uri, ByVal ctrl As clsControl)
MyBase.New(serviceType, endpoint)
_ctrl = ctrl
End Sub
Public ReadOnly Property SyncControl As clsControl
Get
Return _ctrl
End Get
End Property
End Class
<ServiceContract()>
Public Interface ISelectItems
<OperationContract()>
Sub SelectItems()
End Interface
<ServiceBehavior(InstanceContextMode:=InstanceContextMode.Single, ConcurrencyMode:=ConcurrencyMode.Single)>
Public Class wcfSelectItems
Implements ISelectItems
Private myControl As clsControl = Nothing
Public Sub SelectItems() Implements ISelectItems.SelectItems
Try
Dim context As OperationContext = OperationContext.Current
Dim acHost As AcServiceHost = TryCast(context.Host, AcServiceHost)
myControl = acHost.SyncControl
myControl.SelectItems()
Catch
End Try
End Sub
End Class
Public Class clsControl
Inherits Control
Implements IDisposable
Private Delegate Sub DoSynchronizedSelection()
Public activeDoc As Document = MgdAcApplication.DocumentManager.MdiActiveDocument
Public ed As Editor = activeDoc.Editor
Public Sub SelectItems()
If InvokeRequired Then
Invoke(New DoSynchronizedSelection(AddressOf DoSelection))
Else
DoSelection()
End If
End Sub
Public Sub logMessage(ByVal format As String, ByVal ParamArray args As Object())
Dim msg As String = format
Try
msg = String.Format(format, args)
Catch
End Try
ed.WriteMessage(vbLf + msg)
End Sub
'Do selection routine, exact same as above. This one works:
Public Sub DoSelection()
Try
Using acDocLck As DocumentLock = activeDoc.LockDocument()
Dim td As AcadDocument = DocumentExtension.GetAcadDocument(activeDoc)
Dim ssetObj As AcadSelectionSet = td.SelectionSets.Add("SSALL" + DateTime.Now.ToString) ' creates named selection set
ssetObj.Select(AcSelect.acSelectionSetAll)
logMessage("We have a selection of size = {0}", ssetObj.Count)
Try
For Each ent As AcadEntity In ssetObj
logMessage("{0}", ent.ObjectName)
Next
Catch
logMessage("This is the crash: '{0}'", Err.GetException.ToString)
End Try
End Using
Catch
logMessage("EX 1. {0}", Err.GetException.ToString)
End Try
End Sub
End Class
Public Class clsSelectedItems
Implements IExtensionApplication
Public m_DefaultService As String = "ISelectItems"
Public m_DefaultIP As String = "127.0.31.173"
Public m_DefaultPort As String = "7101"
Public m_DefaultProtocol As String = "http"
Private m_serviceHost As ServiceHost = Nothing
Shared syncCtrl As clsControl = Nothing
Public Sub Initialize() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Initialize
syncCtrl = New clsControl()
syncCtrl.CreateControl()
hostService(m_DefaultIP, m_DefaultPort)
End Sub
Public Sub Terminate() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Terminate
If Not m_serviceHost Is Nothing Then
m_serviceHost.Close()
End If
End Sub
' Set up a WCF service endpoint and start service
Public Sub hostService(ByVal _hostIP As String, ByVal _port As String)
Dim wcfEndpoint As String = String.Format("{0}://{1}:{2}/{3}",
m_DefaultProtocol, _hostIP, _port, m_DefaultService)
Try
Dim baseAddress As Uri = New Uri(wcfEndpoint)
m_serviceHost = New AcServiceHost(GetType(wcfSelectItems), baseAddress, syncCtrl)
Dim binding = CreateNewHttpBinding(GetType(wcfSelectItems).FullName)
m_serviceHost.AddServiceEndpoint(GetType(ISelectItems), binding, m_DefaultService)
Dim smb As New ServiceMetadataBehavior()
smb.HttpGetEnabled = True
m_serviceHost.Description.Behaviors.Add(smb)
Catch
syncCtrl.logMessage("EX 2. {0}", Err.GetException.ToString)
End Try
m_serviceHost.Open()
syncCtrl.logMessage("Listening on {0}", wcfEndpoint)
End Sub
'We avoid using config files for now:
Private Shared Function CreateNewHttpBinding(ByVal name As String) As WSHttpBinding
Dim result As New WSHttpBinding
result.Name = name
result.OpenTimeout = New TimeSpan(0, 1, 0)
result.ReceiveTimeout = New TimeSpan(0, 10, 0)
result.SendTimeout = New TimeSpan(0, 1, 0)
result.BypassProxyOnLocal = False
result.TransactionFlow = False
result.HostNameComparisonMode = HostNameComparisonMode.StrongWildcard
result.MaxBufferPoolSize = 2147483647
result.MaxReceivedMessageSize = 2147483647
result.MessageEncoding = WSMessageEncoding.Text
result.TextEncoding = System.Text.Encoding.UTF8
result.UseDefaultWebProxy = True
result.AllowCookies = False
result.ReaderQuotas.MaxStringContentLength = 2147483647
result.ReaderQuotas.MaxDepth = 12
result.ReaderQuotas.MaxArrayLength = 16384
result.ReaderQuotas.MaxBytesPerRead = 4096
result.ReaderQuotas.MaxNameTableCharCount = 16384
result.ReliableSession.Ordered = False
result.ReliableSession.InactivityTimeout = New TimeSpan(0, 10, 0)
result.ReliableSession.Enabled = False
result.Security.Mode = SecurityMode.None
result.Security.Transport.ClientCredentialType = HttpClientCredentialType.None
result.Security.Message.ClientCredentialType = MessageCredentialType.None
Return (result)
End Function
End Class
Утвердить в качестве решения и 
Баллы
