[求助][VBA]如何创建块

mayuezxl

请指点，如何把选择集里的对象转换为块？

alin

'Re: Creating a Block from a Selection set
'
'P.Murali

Sub newblk()
Dim obj() As Object
Dim ss As AcadSelectionSet
Dim blk As AcadBlock

Set ss = ThisDrawing.SelectionSets.Add("ss_SET")
ss.SelectOnScreen
pt = ThisDrawing.Utility.GetPoint(, "Pick an insertion point: ")

ReDim obj(0 To ss.Count - 1) As Object
For i = 0 To ss.Count - 1
Set obj(i) = ss.Item(i)
Next i

Set blk = ThisDrawing.Blocks.Add(pt, "MYBLOCK")
ThisDrawing.CopyObjects obj, blk
'you can delete the original items after this
ss.Delete
End Sub

ZJW80

请问如何用 VBA编程创建 块对象哪?

alin

上面的程序就是

Clark_James

alin 发表于 2007-9-25 09:06
上面的程序就是

NUBILITY

Clark_James

alin 发表于 2007-9-25 09:06
上面的程序就是

NUBILITY