求助

rekygj · 发表于 2011-5-25 22:50:00

各位高手，本人有个问题，在网上找了好久也没有答案，在这提出来，希望高人指点；
  vbnet在cad中建立了一个选择集
代码    Dim mode As Integer
         Dim conerP1(0 To 2) As Double, conerP2(0 To 2) As Double
         mode = Autodesk..Interop.Common.AcSelect.acSelectionSetCrossing
         conerP1(0) = insertPnt(0) + Ra + 2 : conerP1(1) = insertPnt(1) + Ra + 2 : conerP1(2) = insertPnt(2)
         conerP2(0) = insertPnt(0) - Ra - 2 : conerP2(1) = insertPnt(1) - Ra - 2 : conerP2(2) = insertPnt(2)
         ss1.select(mode, conerP1, conerP2, , )
         ss1.highlight(True)
问题是如何将选择集中的图元一起转化为一个块，然后再其他图形中插入该块。在此先谢谢了。
希望明天来查看的时候有答案。

rekygj · 发表于 2011-5-26 12:33:00

为什么没有人回答，没有人会吗？不可能啊

rekygj · 发表于 2011-5-26 12:36:00

未处理 System.IO.FileNotFoundException
  Message="找不到指定的模块。 (异常来自 HRESULT:0x8007007E)"
  Source="catenary"
  StackTrace:
   在 WindowsApplication1.Form1.btnGearHT_Click(Object sender, EventArgs e)
   在 System.Windows.Forms.Control.OnClick(EventArgs e)
   在 System.Windows.Forms.Button.OnClick(EventArgs e)
   在 System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
   在 System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   在 System.Windows.Forms.Control.WndProc(Message& m)
   在 System.Windows.Forms.ButtonBase.WndProc(Message& m)
   在 System.Windows.Forms.Button.WndProc(Message& m)
   在 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   在 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   在 System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
   在 System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
   在 System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
   在 System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
   在 System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
   在 System.Windows.Forms.Application.Run(ApplicationContext context)
   在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
   在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
   在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
   在 WindowsApplication1.My.MyApplication.Main(String[] Args) 位置 17d14f5c-a337-4978-8281-53493378c1071.vb:行号 81
   在 System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
   在 System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
   在 Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
   在 System.Threading.ThreadHelper.ThreadStart_Context(Object state)
   在 System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
   在 System.Threading.ThreadHelper.ThreadStart()
  InnerException:
什么原因啊？？？

epwt · 发表于 2011-5-26 13:14:00

copy

Public Function CreateBlock() As ObjectId
    Dim db As Database = HostApplicationServices.WorkingDatabase
    '用于返回所创建的块的对象Id
    Dim blockId As ObjectId = ObjectId.Null
    '创建一个BlockTableRecord类的对象，表示所要创建的块
    Dim record As New BlockTableRecord()
    '设置块名
    record.Name = "Room"
    Using trans As Transaction = db.TransactionManager.StartTransaction()
        Dim points As New Point3dCollection() '用于表示组成块的多段线的顶点
        points.Add(New Point3d(-18.0, -6.0, 0.0))
        points.Add(New Point3d(18.0, -6.0, 0.0))
        points.Add(New Point3d(18.0, 6.0, 0.0))
        points.Add(New Point3d(-18.0, 6.0, 0.0))
        '创建组成块的多段线
        Dim pline As New Polyline2d(Poly2dType.SimplePoly, points, 0.0, True, 0.0, 0.0, Nothing)
        record.Origin = points(3) '设置块的基点
        record.AppendEntity(pline) '将多段线加入到新建的BlockTableRecord对象
        '以写的方式打开块表
        Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForWrite)
        If bt.Has("Room") = False Then '判断是否存在名为"Room"的块
            blockId = bt.Add(record) '在块表中加入"Room"块
            trans.AddNewlyCreatedDBObject(record, True) '通知事务处理
            trans.Commit() '提交事务
        End If
    End Using
    Return blockId '返回创建的块的对象Id
End Function

epwt · 发表于 2011-5-26 13:15:00

copy

Public Sub InsertBlockRef(ByVal blockName As String, ByVal point As Point3d, ByVal scale As Scale3d, ByVal rotateAngle As Double)
    Dim db As Database = HostApplicationServices.WorkingDatabase
    Using trans As Transaction = db.TransactionManager.StartTransaction
        '以读的方式打开块表
        Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead)
        '如果没有blockName表示的块，则程序返回
        If (bt.Has(blockName) = False) Then
            Return
        End If
        '以读的方式打开blockName表示的块
        Dim block As BlockTableRecord = trans.GetObject(bt(blockName), OpenMode.ForRead)
        '创建一个块参照并设置插入点
        Dim blockref As BlockReference = New BlockReference(point, bt(blockName))
        blockref.ScaleFactors = scale '设置块参照的缩放比例
        blockref.Rotation = rotateAngle '设置块参照的旋转角度
        '以写的方式打开当前空间（模型空间或图纸空间）
        Dim btr As BlockTableRecord = trans.GetObject(db.CurrentSpaceId, OpenMode.ForWrite)
        btr.AppendEntity(blockref) '在当前空间加入创建的块参照
        '通知事务处理加入创建的块参照
        trans.AddNewlyCreatedDBObject(blockref, True)
        trans.Commit() '提交事务处理以实现块参照的真实加入
    End Using
End Sub

rekygj · 发表于 2011-5-27 00:12:00

谢谢，可是会提示
未处理 System.IO.FileNotFoundException
  Message="找不到指定的模块。 (异常来自 HRESULT:0x8007007E)"
  Source="catenary"
  StackTrace:
   在 WindowsApplication1.Form1.btnGearHT_Click(Object sender, EventArgs e)
   在 System.Windows.Forms.Control.OnClick(EventArgs e)
   在 System.Windows.Forms.Button.OnClick(EventArgs e)
   在 System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
   在 System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   在 System.Windows.Forms.Control.WndProc(Message& m)
   在 System.Windows.Forms.ButtonBase.WndProc(Message& m)
   在 System.Windows.Forms.Button.WndProc(Message& m)
   在 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   在 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   在 System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
   在 System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
   在 System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
   在 System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
   在 System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
   在 System.Windows.Forms.Application.Run(ApplicationContext context)
   在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
   在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
   在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
   在 WindowsApplication1.My.MyApplication.Main(String[] Args) 位置 17d14f5c-a337-4978-8281-53493378c1071.vb:行号 81
   在 System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
   在 System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
   在 Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
   在 System.Threading.ThreadHelper.ThreadStart_Context(Object state)
   在 System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
   在 System.Threading.ThreadHelper.ThreadStart()
  InnerException:

rekygj · 发表于 2011-5-27 00:14:00

Dim db As Database = HostApplicationServices.WorkingDatabase
         Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
         Dim docLock As DocumentLock = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument()
         Dim blockId As ObjectId = ObjectId.Null
         Dim record As BlockTableRecord = New BlockTableRecord()
         record.Name = "Blockobj"
         record.Origin = New Point3d(insertPnt(0), insertPnt(1), insertPnt(2))
         Using trans As Transaction = db.TransactionManager.StartTransaction()
            Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForWrite)
            For Each id As ObjectId In ss1.Value.GetObjectIds()
                  Dim ent As Entity = trans.GetObject(id, OpenMode.ForWrite)
                  Dim NewEnt As Entity = ent.Clone()
                  record.AppendEntity(NewEnt)
                  blockId = bt.Add(record)
                  trans.AddNewlyCreatedDBObject(record, True)
            Next
            trans.Commit()
         End Using

epwt · 发表于 2011-5-27 09:47:00

copy

  record.AppendEntity(NewEnt)
                    blockId = bt.Add(record)
                    trans.AddNewlyCreatedDBObject(record, True)
                Next
                trans.Commit()