giúp explode block = vba

[nguyenthaodang 0]

em có code đoạn sau để khi minh select thất cả các block được insert vào thì sẽ được explode ra nhưng ko hiểu sai sót chỗ nào mong mọi người giúp đỡ

 

Private Sub CommandButton1_Click()

Dim BlockRef As AcadBlockReference
Dim explodedObjects As Variant

ThisDrawing.Utility.Prompt ("Lua chon toan bo vat the:")

On Error Resume Next
ThisDrawing.SelectionSets.Item("nguyen").Delete
Err.Clear

Set sset6 = ThisDrawing.SelectionSets.Add("nguyen")
frmDraw.Hide

sset6.SelectOnScreen

For Each Entry In sset6
'MsgBox "" & Entry.ObjectName
If Entry.ObjectName = "AcDbBlockReference" Then

	BlockRef = Entry
	explodedObjects = BlockRef.Explode
	explodedObjects.Update
End If
Next

[hoa35ktxd 38]

Bạn hãy sửa đoạn này

If Entry.ObjectName = "AcDbBlockReference" Then
   Set BlockRef = Entry
   BlockRef.Explode
End If

[nguyenthaodang 0]

cảm ơn bác Hoa35ktxd ^^ đúng là pro nhìn qua biết ngay. ko hiểu sao mấy cái cứ quên set, cứ bắn trực tiêp ^^