• 0
اسلام الكبابى

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

سؤال

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

ولكم ألف شكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

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

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

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

ولكم ألف شكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .