求教，关于图块的简单问题
我学VB多年，对CAD的VBA还是新手，只会简单的画线画圆，我现在用VB6控制CAD开发行业软件。请问1。我画好的零件图想制成块，然后删除原来的零件线条，如何做到，关键是我不会向选择集中添加二个以上的对象。看了很多的网上贴子示例，要么是selectonscreen的方式建立选择集，要么只是画一个圆然后将圆这一个对象加到选择集的方法。
所以。能否简单示例下，随便画一个圆，然后再画一个线，然后将这二个对象加入选择集，以此选择集中的内容创建图块，然后在CAD中插入这个图块，同时在CAD中删除原先的这个圆和线，只保留块，这个用图块便于操作，移动什么的都是整体。
谢谢各位大侠。
本帖最后由 petty 于 2016-9-28 16:39 编辑
' 创建新的选择集
Dim sset As AcadSelectionSet
Set sset = Thisdrawing.SelectionSets.Add("SS2")
''''''创建多线段
Dim pl As AcadLWPolyline
Dim p(0 To 9) As Double
p(0) = 0: p(1) = 0
p(2) = 1: p(3) = 1
p(4) = 3: p(5) = 0
p(6) = 5: p(7) = -6
Set pl = Thisdrawing.ModelSpace.AddLightWeightPolyline(p)
pl.SetBulge 0, 0.5
sset.AddItems ("pl")
'创建圆
Dim cir1 As AcadCircle
Dim center(0 To 2) As Double
center(0) = 0
center(1) = 0
center(2) = 0
Set cir = Thisdrawing.ModelSpace.AddCircle(center, 5)
''''''将这二个对象加到选择集是这样操作吗？
sset.AddItems p1
sset.AddItems cir
''''创建块
Dim blk As AcadBlock
Set blk = Thisdrawing.Blocks.Add(center, "MYBLOCK")
''''''''''
''''接下来如何将选择集sset 加到这个块中，并在CAD中插入这个块。
''''然后我想在CAD中删掉原来画的这个多线段P1和圆cir
简单的说就是如何将我通过程序画的一个零碎的线条变成块，
页:
[1]