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

لى سؤال بسيط بعد ربط الأوتوكاد بالفيجوال بيسك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]

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اسلام الكبابى

اسلام الكبابى