一起来学VB.net(6,实现BOUNDARY命令）
读贴之前可以先看下CAD官方的代码，net实现http://adndevblog.typepad.com/autocad/2012/05/identifying-the-boundary-through-api-.html
命令行实现
http://adndevblog.typepad.com/autocad/2012/08/running-boundary-command-through-command-line-using-net.html
net自带的api功能太简单，只让输入一个点参数
但是我们知道CAD的boundary命令很强大，它可以输入一个选择集，只对这个选择集进行boundary.在同事（lsp高手LLXXZZ）的帮助下，我用net封装了这个功能,当然是通过同步发送命令行实现的。
这里只写了对一个物件进行boundary，你也可以修改成对一个选择集进行boundary.
'获取bo重新生成后的多段线(☆☆☆☆命令的执行模式必须为<CommandMethod("stl", CommandFlags.Session)>应用程序环境中执行
Public Class GetBoo
Dim m_crv As Curve = Nothing, m_rebuildcrv As Curve = Nothing, m_delete As Boolean
Shared commandName As String = ""
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
Dim ed As Editor = doc.Editor
Private Shared Function IsCommandActive() As Boolean
Dim str As = DirectCast(Application.GetSystemVariable("CMDNAMES"), )
If .Compare(commandName, str, True) <> 0 Then
Return True
End If
Return False
End Function
Public Sub New(crv As Curve, delete As Boolean)
Try
m_crv = crv
m_delete = delete
Dim Mhandle As String = "", rightcrv As Curve = Nothing, offsetdistance As Double = 0.1
Using tr As Transaction = db.TransactionManager.StartTransaction
Mhandle = m_crv.AcadObject.Handle
' Dim crvdis As Double = m_crv.GeometricExtents.MaxPoint.DistanceTo(m_crv.GeometricExtents.MinPoint)
Dim dbobjts1 As DBObjectCollection = m_crv.GetOffsetCurves(offsetdistance)
Dim dbobjts2 As DBObjectCollection = m_crv.GetOffsetCurves(-offsetdistance)
If dbobjts1.Count < 1 Or dbobjts2.Count < 1 Then
MsgBox("曲线偏移失败！", MsgBoxStyle.Critical, "程序错误请联系作者RTX61692！")
Return
End If
Dim len1 As Double = 0, len2 As Double = 0
For Each dbobj In dbobjts1
Dim ocrv As Curve = CType(dbobj, Curve)
len1 += CAD.Geometry.SegCurve.GetCurveLength(ocrv)
Next
For Each dbobj In dbobjts2
Dim ocrv As Curve = CType(dbobj, Curve)
len2 += CAD.Geometry.SegCurve.GetCurveLength(ocrv)
Next
If len1 > len2 Then
rightcrv = CType(dbobjts2.Item(0), Curve)
Else
rightcrv = CType(dbobjts1.Item(0), Curve)
End If
End Using
Dim innerpt As Point3d = rightcrv.StartPoint
Dim ptarray As Double() = {innerpt.X, innerpt.Y, innerpt.Z}
'SegZoom.Zoom(New Point3d, New Point3d, innerpt, 2 * offsetdistance)
Application.AcadApplication.ZoomCenter(ptarray, 2 * offsetdistance)
'MsgBox("dd")
Dim ptstr As String = String.Format(" {0},{1} ", innerpt.X, innerpt.Y)
Dim cmdecho As Integer = Application.GetSystemVariable("CMDECHO")
Application.SetSystemVariable("CMDECHO", 0)
commandName = DirectCast(Application.GetSystemVariable("CMDNAMES"), )
Dim GetBoundry As String = "._-boundary A B N !(handent """ + Mhandle + """" + ")" + vbCr + vbCr + ptstr + vbCr
' InputBox("", "", GetBoundry)
' Dim GetBoundry As String = "(vl-cmdf " + """" + "._-boundary" + """" + " " + """" + "A" + """" + " " + """" + "B" + """" + " " + """" + "N" + """" + " " + "(handent """ + Mhandle + """" + ")" + """" + """" + " " + """" + """" + ptstr + """" + """" + ")" + vbCr
' Dim comboundry As String = ._-boundary A B N !(handent "58D")"" ""'(1.51325142283495 0.422664600584449 0)""
AddHandler db.ObjectAppended, AddressOf db_ObjectAppended
' doc.SendStringToExecute(GetBoundry, True, True, False)
' Application.AcadApplication.ActiveDocument.SendCommand(GetBoundry)
'WPF.UI.Pause(2)
Dim dataArry As Object() = New Object(0) {}
dataArry(0) = GetBoundry
doc.AcadDocument.().InvokeMember("SendCommand", Reflection.BindingFlags.InvokeMethod, Nothing, doc.AcadDocument, dataArry)
'If IsCommandActive() = True Then
' dataArry(0) = "Yes "
' doc.AcadDocument.().InvokeMember("SendCommand", Reflection.BindingFlags.InvokeMethod, Nothing, doc.AcadDocument, dataArry)
'End If
RemoveHandler db.ObjectAppended, AddressOf db_ObjectAppended
Application.SetSystemVariable("CMDECHO", cmdecho)
Application.AcadApplication.ZoomPrevious()
If m_delete Then
Using dblock As DocumentLock = doc.LockDocument
Using tr As Transaction = db.TransactionManager.StartTransaction
'Dim bt As BlockTable = DirectCast(tr.GetObject(doc.Database.BlockTableId, OpenMode.ForRead), BlockTable)
' Dim ms As BlockTableRecord = DirectCast(tr.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)
Dim mcrv As Curve = RebuildCrv.ObjectId.GetObject(OpenMode.ForWrite)
mcrv.Erase(True)
tr.Commit()
End Using
End Using
End If
Catch ex As Exception
MsgBox(ex.Message + Environment.NewLine + ex.StackTrace + Environment.NewLine + "请联系作者61692!")
End Try
End Sub
Public ReadOnly Property RebuildCrv As Curve
Get
Return m_rebuildcrv
End Get
End Property
Private Sub db_ObjectAppended(sender As Object, e As ObjectEventArgs)
'add the object id
m_rebuildcrv = CType(e.DBObject, Curve) '最后一次添加的物件才是重新生成合并的线，前几次是断线
End Sub
End Class Editor.TraceBoundary 其实就是同步调用command，可以用两种方法实现，我有个例子，希望对你有用！
http://www.cnblogs.com/swtool/p/SWTOOL_00012.html 本帖最后由 huaxiamengqing 于 2014-3-20 12:39 编辑
SWAYWOOD 发表于 2014-3-19 21:06 static/image/common/back.gif
其实就是同步调用command，可以用两种方法实现，我有个例子，希望对你有用！
http://www.cnblogs.com/swto ...
看到了，第一个是通过反射，第二个是dll注入点的方式调用的arx函数，都很不错。不过如果执行的lsp代码很长，可能写起来比较麻烦--
页:
[1]