块问题

yingxunxue · 发表于 2004-5-31 11:45:00

请问如何把当前图形中的所有图形做成块，并插入到其他文挡或图形中

雪山飞狐_lzh · 发表于 2004-5-31 11:52:00

Sub test()
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.ActiveSelectionSet
ss.Select acSelectionSetAll
ThisDrawing.Wblock "c:\123.dwg", ss
End Sub

yingxunxue · 发表于 2004-6-1 10:38:00

如果我想删除原有的图形,并且最后释放性质集

雪山飞狐_lzh · 发表于 2004-6-1 10:50:00

Sub test1()
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.ActiveSelectionSet
ss.Select acSelectionSetAll
ThisDrawing.Wblock "c:\123.dwg", ss
For Each i In ThisDrawing.ModelSpace
i.Delete
Next i
ss.Clear
ss.Delete
End Sub

yingxunxue · 发表于 2004-6-1 13:08:00

复制代码Sub test1()    Dim number As Integer
   Dim ObjSelectionSet As AcadSelectionSet
   i = 0

   '获取当前图形中选择集的个数
   number = ThisDrawing.SelectionSets.Count

   '删除当前图形中所有的选择集
   While i < number
            Set ObjSelectionSet = ThisDrawing.SelectionSets.Item(0)
            ObjSelectionSet.Delete
            i = i + 1
   Wend
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.ActiveSelectionSet
ss.Select acSelectionSetAll
ThisDrawing.Wblock "c:\123.dwg", ss
For Each i In ThisDrawing.ModelSpace
i.Delete
Next i
ss.Clear
ss.Delete
End Sub前面加上选择集的代码，我再想问一下飞狐兄，如果我想把前面的块，插到新的图形中（在同一文挡），怎么知道这个块的插入点？怎么实现。急用！

雪山飞狐_lzh · 发表于 2004-6-1 13:51:00

插入点0,0试试

yingxunxue · 发表于 2004-6-1 15:09:00

如何知道当前图元的COUNT，
如何知道当前说选图形的Item（），怎么返回此对象

efan2000 · 发表于 2004-6-1 17:26:00

ThisDrawing.ModelSpace.Count当前图纸模型空间中的实体数目。
ThisDrawing.PickfirstSelectionSet当前选中实体所在的选择集。
如果只有选中一个实体，可以
Dim EntObj As AcadEntity
Set EntObj=ThisDrawing.PickfirstSelectionSet(0)

yingxunxue · 发表于 2004-6-1 18:37:00

我想说的如何知道自己所画的图元是ITEM,就是第几个
通过知道它是第几个,然后选定它,并返回做下面的MIRROR或其他操作

yingxunxue · 发表于 2004-6-1 18:49:00

Sub test1()    Dim number As Integer
   Dim ObjSelectionSet As AcadSelectionSet
   j = 0

   '获取当前图形中选择集的个数
   number = ThisDrawing.SelectionSets.Count

   '删除当前图形中所有的选择集
   While j < number
            Set ObjSelectionSet = ThisDrawing.SelectionSets.Item(0)
            ObjSelectionSet.Delete
            j = j + 1
   WendDim ss As AcadSelectionSet
Set ss = ThisDrawing.ActiveSelectionSet
ss.Select acSelectionSetAll
ThisDrawing.Wblock "c:\123.dwg", ss
For Each I In ThisDrawing.ModelSpace
I.Delete
Next I
ss.Clear
ss.Delete
End Sub[CODE][/CODE]上面这段代码怎么只能运行一遍,第二次就出现错误,[SHADOW=255,blue,1]文字[/SHADOW]运行到Set ss = ThisDrawing.ActiveSelectionSet提示出错了??

块问题

发表回复

精选推荐

浏览过的版块