[اسلام الكبابى]

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

كود :

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]