nhy12345678 发表于 2008-7-12 12:58:00

[已解决]如何把选择集添加到块呢？

本帖最后由 作者 于 2008-7-12 13:53:32 编辑 <br /><br /> <p>Sub addblock() '创建块<br/>Dim p As Variant<br/>Dim blockObj As AcadBlock<br/>Dim ss As AcadSelectionSet<br/>Set ss = ThisDrawing.SelectionSets.Add("ss")<br/>ss.SelectOnScreen<br/>Set blockObj = ThisDrawing.Blocks.Add(p, "abc")</p><p>'这里怎么写呢？</p><p>ss.Delete<br/>End Sub</p><p>谢谢高手们指点！</p><p></p>

nhy12345678 发表于 2008-7-12 13:53:00

<p>已经解决了！</p><p>Sub addblock() '创建块<br/>Dim p As Variant<br/>Dim blockObj As AcadBlock<br/>Dim ss As AcadSelectionSet<br/>Dim i As Long<br/>Dim obj() As AcadEntity<br/>Set ss = ThisDrawing.SelectionSets.Add("ss")<br/>ss.SelectOnScreen<br/>i = 0<br/>For Each ent In ss<br/>&nbsp;&nbsp;&nbsp; Set obj(i) = ent<br/>&nbsp;&nbsp;&nbsp; i = i + 1<br/>Next<br/>Set blockObj = ThisDrawing.Blocks.Add(p, "abc")<br/>ThisDrawing.CopyObjects obj, blockObj<br/>ss.Delete<br/>End Sub</p>
页: [1]
查看完整版本: [已解决]如何把选择集添加到块呢？