创建不带属性的块，并马上在屏幕上插入一个块参照

介之推

大家好，我想点击鼠标，然后同时绘制两条直线，这两条直线也同时被选中。要实现这个目的，好像只有使用“块”。下面是我到处搜到的代码，然后组合在一起的。我想实现的是首先判断是否已经有了这个块，如果有，就插入这个块的一个块参照，如果没有，则新建一个块，同时新建后立即插入一个块参照，以避免鼠标点击后什么也看不见。
我想请各位帮我看看，还有什么可以改进的。

1. 
   
2. '插入块，没有就新建一个，并立即插入一个块参照，有了就直接插入一个块参照
   
3.     <CommandMethod("InsertBlock")> _
   
4.     Public Sub InsertBlock()
   
5.         '' Get the current database and start the Transaction Manager
   
6.         Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
   
7.         Dim acCurDb As Database = acDoc.Database
   
8.         Dim acEd As Editor = acDoc.Editor
   
9.         Dim pPtRes As PromptPointResult
   
10.         Dim pPtOpts As PromptPointOptions = New PromptPointOptions("")
    
11.         '' 提示用户选择点
    
12.         pPtOpts.Message = vbLf & "选择块插入点: "
    
13.         pPtRes = acDoc.Editor.GetPoint(pPtOpts)
    
14.         Dim InsertPt As Point3d = pPtRes.Value
    
15.         '' Exit if the user presses ESC or cancels the command
    
16.         If pPtRes.Status = PromptStatus.Cancel Then Exit Sub
    
17.         Using trans As Transaction = acCurDb.TransactionManager.StartTransaction
    
18.             '以写的方式打开块表
    
19.             Dim bt As BlockTable = trans.GetObject(acCurDb.BlockTableId, OpenMode.ForWrite)
    
20.             '设置块名
    
21.             Dim Name As String = "Cross"
    
22.             If bt.Has(Name) = True Then '判断是否存在名为"Room"的块
    
23.                 '以读的方式打开Name表示的块
    
24.                 Dim block As BlockTableRecord = trans.GetObject(bt(Name), OpenMode.ForRead)
    
25.                 '创建一个块参照并设置插入点
    
26.                 Dim blockref As BlockReference = New BlockReference(InsertPt, bt(Name))
    
27.                 'blockref.ScaleFactors = scale '设置块参照的缩放比例
    
28.                 'blockref.Rotation = rotateAngle '设置块参照的旋转角度
    
29.                 '以写的方式打开当前空间（模型空间或图纸空间）
    
30.                 Dim btr As BlockTableRecord = trans.GetObject(acCurDb.CurrentSpaceId, OpenMode.ForWrite)
    
31.                 btr.AppendEntity(blockref) '在当前空间加入创建的块参照
    
32.                 '通知事务处理加入创建的块参照
    
33.                 trans.AddNewlyCreatedDBObject(blockref, True)
    
34.                 trans.Commit() '提交事务处理以实现块参照的真实加入
    
35.             Else
    
36.                 '创建一个BlockTableRecord类的对象，表示所要创建的块
    
37.                 Dim record As New BlockTableRecord()
    
38.                 record.Name = Name
    
39.                 record.Origin = New Point3d(50, 0, 0)
    
40.                 Dim LineOne As Line = New Line(Point3d.Origin, New Point3d(100, 0, 0)) : LineOne.ColorIndex = 1
    
41.                 record.AppendEntity(LineOne)
    
42.                 Dim LineTwo As Line = New Line(New Point3d(50, 50, 0), New Point3d(50, -50, 0)) : LineTwo.ColorIndex = 6
    
43.                 record.AppendEntity(LineTwo)
    
44.                 bt.Add(record) '在块表中加入"Cross"块
    
45.                 trans.AddNewlyCreatedDBObject(record, True) '通知事务处理
    
46.                 '创建块以后马上插入一个块，以避免第一次执行命令时再屏幕上什么也看不见
    
47.                 '以读的方式打开Name表示的块
    
48.                 Dim block As BlockTableRecord = trans.GetObject(bt(Name), OpenMode.ForRead)
    
49.                 '创建一个块参照并设置插入点
    
50.                 Dim blockref As BlockReference = New BlockReference(InsertPt, bt(Name))
    
51.                 'blockref.ScaleFactors = scale '设置块参照的缩放比例
    
52.                 'blockref.Rotation = rotateAngle '设置块参照的旋转角度
    
53.                 '以写的方式打开当前空间（模型空间或图纸空间）
    
54.                 Dim btr As BlockTableRecord = trans.GetObject(acCurDb.CurrentSpaceId, OpenMode.ForWrite)
    
55.                 btr.AppendEntity(blockref) '在当前空间加入创建的块参照
    
56.                 '通知事务处理加入创建的块参照
    
57.                 trans.AddNewlyCreatedDBObject(blockref, True)
    
58.                 trans.Commit() '提交事务
    
59.             End If
    
60.         End Using
    
61. 
    
62.     End Sub
    

<br /> '插入块，没有就新建一个，并立即插入一个块参照，有了就直接插入一个块参照<br />     <CommandMethod("InsertBlock")> _<br />     Public Sub InsertBlock()<br />         '' Get the current database and start the Transaction Manager<br />         Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim acCurDb As Database = acDoc.Database<br />         Dim acEd As Editor = acDoc.Editor<br />         Dim pPtRes As PromptPointResult<br />         Dim pPtOpts As PromptPointOptions = New PromptPointOptions("")<br />         '' 提示用户选择点<br />         pPtOpts.Message = vbLf & "选择块插入点: "<br />         pPtRes = acDoc.Editor.GetPoint(pPtOpts)<br />         Dim InsertPt As Point3d = pPtRes.Value<br />         '' Exit if the user presses ESC or cancels the command<br />         If pPtRes.Status = PromptStatus.Cancel Then Exit Sub<br />         Using trans As Transaction = acCurDb.TransactionManager.StartTransaction<br />             '以写的方式打开块表<br />             Dim bt As BlockTable = trans.GetObject(acCurDb.BlockTableId, OpenMode.ForWrite)<br />             '设置块名<br />             Dim Name As String = "Cross"<br />             If bt.Has(Name) = True Then '判断是否存在名为"Room"的块<br />                 '以读的方式打开Name表示的块<br />                 Dim block As BlockTableRecord = trans.GetObject(bt(Name), OpenMode.ForRead)<br />                 '创建一个块参照并设置插入点<br />                 Dim blockref As BlockReference = New BlockReference(InsertPt, bt(Name))<br />                 'blockref.ScaleFactors = scale '设置块参照的缩放比例<br />                 'blockref.Rotation = rotateAngle '设置块参照的旋转角度<br />                 '以写的方式打开当前空间（模型空间或图纸空间）<br />                 Dim btr As BlockTableRecord = trans.GetObject(acCurDb.CurrentSpaceId, OpenMode.ForWrite)<br />                 btr.AppendEntity(blockref) '在当前空间加入创建的块参照<br />                 '通知事务处理加入创建的块参照<br />                 trans.AddNewlyCreatedDBObject(blockref, True)<br />                 trans.Commit() '提交事务处理以实现块参照的真实加入<br />             Else<br />                 '创建一个BlockTableRecord类的对象，表示所要创建的块<br />                 Dim record As New BlockTableRecord()<br />                 record.Name = Name<br />                 record.Origin = New Point3d(50, 0, 0)<br />                 Dim LineOne As Line = New Line(Point3d.Origin, New Point3d(100, 0, 0)) : LineOne.ColorIndex = 1<br />                 record.AppendEntity(LineOne)<br />                 Dim LineTwo As Line = New Line(New Point3d(50, 50, 0), New Point3d(50, -50, 0)) : LineTwo.ColorIndex = 6<br />                 record.AppendEntity(LineTwo)<br />                 bt.Add(record) '在块表中加入"Cross"块<br />                 trans.AddNewlyCreatedDBObject(record, True) '通知事务处理<br />                 '创建块以后马上插入一个块，以避免第一次执行命令时再屏幕上什么也看不见<br />                 '以读的方式打开Name表示的块<br />                 Dim block As BlockTableRecord = trans.GetObject(bt(Name), OpenMode.ForRead)<br />                 '创建一个块参照并设置插入点<br />                 Dim blockref As BlockReference = New BlockReference(InsertPt, bt(Name))<br />                 'blockref.ScaleFactors = scale '设置块参照的缩放比例<br />                 'blockref.Rotation = rotateAngle '设置块参照的旋转角度<br />                 '以写的方式打开当前空间（模型空间或图纸空间）<br />                 Dim btr As BlockTableRecord = trans.GetObject(acCurDb.CurrentSpaceId, OpenMode.ForWrite)<br />                 btr.AppendEntity(blockref) '在当前空间加入创建的块参照<br />                 '通知事务处理加入创建的块参照<br />                 trans.AddNewlyCreatedDBObject(blockref, True)<br />                 trans.Commit() '提交事务<br />             End If<br />         End Using<br /> <br />     End Sub<br />

sieben

知道Mline吗？

介之推

sieben 发表于 2013-4-11 07:49
知道Mline吗？

你好，我用两条线画个叉叉只是举了个简单的例子，我可能还要添加文字，再添加几个多段线啊什么的。这不是简单采用MLine可以解决的。

齐天大圣3386

看着不象很难