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

هذا كود منقول من أحد مواضيع الأستاذة/ سميرة عبد الله

كود :

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

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