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

لى سؤال بسيط بعد ربط الأوتوكاد بالفيجوال بيسك6
ما هو الكود اللازم بعد رسم المستخدم أى عناصر فى صفحة الأوتوكاد ثم ضغطه على زر معين
فى صفحة الفيجوال بيسك كى يتم تلوين جميع العناصر المرسومة باللون الأخضر مثلآ
ولكم ألف شكر

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

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

كود :

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]