+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : احداثيات نقطة مرسومة (/showthread.php?tid=30723)
احداثيات نقطة مرسومة - اسلام الكبابى - 05-08-19
لى سؤال بسيط بعد [b]ربط الأوتوكاد بالفيجوال بيسك6[/b]
ما هو الكود اللازم لمعرفة احداثيات نقطة بداية مستقيم مرسوم ونقطة نهايته
هذا الكود نقلته من أحد مواضيع الأستاذة/ سميرة عبد الله [url=https://www.geospatialtechnology.com/member/13011-samira2009][/url]
لمعرفة بعض خصائص مستقيم مرسوم
كود :
Private Sub Command4_Click()
Dim acadapp As AcadApplication
Dim newssett As AcadSelectionSet
Dim obj3 As AcadEntity
Set newssett = acadapp.ActiveDocument.SelectionSets.Add("kkkkk")
newssett.SelectOnScreen
For Each obj3 In newssett
If obj3.ObjectName = "AcDbLine" Then
Print " طول المستقيم "; obj3.Length
Print "زاوية ميله بالتقدير الدائرى "; obj3.angle
End If
Next obj3
acadapp.ActiveDocument.SelectionSets.Item("kkkkk").Delete
End Subاعترض البرنامج
كود :
Print "نقطة بدايته"; obj3.STARTX; obj3.STARTY
Print "نقطة نهايته"; obj3.ENDX; obj3.ENDY ولكم ألف شكر