كود تلوين جميع العناصر المرسومة بالأوتوكاد

هذا كود منقول من أحد المواضيع

Private Sub Command1_Click()
Dim newssett As AcadSelectionSet
Dim obj3 As AcadEntity
Set newssett = acadapp.ActiveDocument.SelectionSets.Add("kkkkk")
newssett.SelectOnScreen

For Each obj3 In newssett
obj3.Color = acGreen
Print "  obj3.Color= "; obj3.Color
Next obj3
 
acadapp.ActiveDocument.SelectionSets.Item("kkkkk").Delete
 Rem"الجملةالسابقة حتى لا يحدث خطأ واعتراض من البرنامج اذا ضغط المستخدم على هذا الزر مرة أخرى ليعرف خصائص مجموعةأخرى من العناصر"
300 End Sub

ولكنه لا يقوم بتلوين جميع العناصر المرسومة باللون الأخض
انما يطلب منى أن أختار بعض العناصر فيقوم بتلوينها
أرجو تعديل هذا الكود ليقوم بتلوين جميع العناصر المرسومة
ولكم ألف شكر