I'm afraid that you're not going to have much
luck with using SendStringToExecute().
I'm fairly certain the problem is that your
call to SelectAll() is executing *before* the
commands in SendStringToExecute() run.
I would suggest that you use the code that
I referred you to on my website, which will
eliminate the problem.
Here is a quick/dirty port to VB:
http://www.caddzone.com/CommandLine.vb
Imports CommandLineInterface
Add that file to your project, add the Imports
directive shown above to your code file, then
replace the call to SendStringToExecute() with
this:
CommandLine.Command( "._PEDIT", "_m", _
"_p", "", "_y", "_join", "", "")
--
http://www.caddzone.com
AcadXTabs: MDI Document Tabs for AutoCAD 2004/2005/2006/2007
http://www.acadxtabs.com
wrote in message news:5527717@discussion.autodesk.com...
Thank you for your help. I thought might have been a simple miss step and therefore, there was no need to bother with the code. But, here is it. I am just beginning to develop it in .NET. I have a working version on LISP which I always wanted to port to VBA, but now that I can do it I thought may be it would be better to do it in .NET. If I can get this part, then the rest is no a problem. Hope you can help.
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Public Class Test
_
Public Sub StartPoint()
Call MakePolylines("WALL_SECTIONS")
Call GetPolylines("WALL_SECTIONS")
End Sub
#Region "Functions"
#End Region
Public Sub MakePolylines(ByVal LayerName As String)
Dim t As Transaction = HostApplicationServices.WorkingDatabase.TransactionManager.StartTransaction
Dim e As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim doc As Autodesk.AutoCAD.ApplicationServices.Document
Dim SRst As PromptSelectionResult
Dim SFilter As SelectionFilter
Dim Filter(0) As TypedValue
Dim SS As SelectionSet
Try
Filter(0) = New TypedValue(8, LayerName)
SFilter = New SelectionFilter(Filter)
SRst = e.SelectAll(SFilter)
If SRst.Status PromptStatus.OK Then
e.WriteMessage("Can not find any lines in this drawing, layer: " & LayerName)
Else
SS = SRst.Value
doc = Application.DocumentManager.MdiActiveDocument
doc.SendStringToExecute("_pedit" & vbCr & "m" & vbCr & "p" & vbCr & vbCr & "y" & vbCr & "j" & vbCr & vbCr & vbCr, False, False, False)
End If
SS = Nothing
SRst = Nothing
t.Commit()
Catch ex As Exception
t.Abort()
Finally
t = Nothing
End Try
End Sub
Public Sub GetPolylines(ByVal LayerName As String)
Dim t As Transaction = HostApplicationServices.WorkingDatabase.TransactionManager.StartTransaction
Dim e As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim SRst As PromptSelectionResult
Dim SFilter As SelectionFilter
Dim Filter(0) As TypedValue
Dim SS As SelectionSet
Dim Poly As Polyline
Dim ObjId As ObjectId
Dim ObjIdColl() As ObjectId
Try
'Filter(0) = New TypedValue(0, "LWPOLYLINE")
Filter(0) = New TypedValue(8, LayerName)
SFilter = New SelectionFilter(Filter)
SRst = e.SelectAll()
If SRst.Status PromptStatus.OK Then
e.WriteMessage("Can not find any polylines in this drawing, layer: " & LayerName)
Else
SS = SRst.Value
ObjIdColl = SS.GetObjectIds
For Each ObjId In ObjIdColl
Dim ent As Entity = t.GetObject(ObjId, OpenMode.ForRead, True)
If TypeOf ent Is Polyline Then
Poly = ent
If Poly.Closed = True Then
'Add code here
End If
End If
Next ObjId
End If
t.Commit()
Catch ex As Exception
t.Abort()
Finally
t = Nothing
End Try
End Sub
End Class
