اتوکد 2007

[شفیعی]

سلام
من می خواهم برنامه ای بنویسم که بتوان با آن با اتوکد 2007 ارتباط برقرار کرد و یکسری خطوط موجود در فایلها را مشخص نمود و طول و ابعاد روی خطوط زد البته مشکل در ارتباط با اتوکد ندارم فقط نمی توانم در اتوکد خطوط را مشخص کنم و سپس در برنامه بگوییم طول خطوط را محاسبه کند و سپس در فایل بنویسد

[Erfanian]

با سلام
می‌توانید آنها را از طریق SelectionSet انتخاب کنید و سپس نقاط ابتدا و انتهای هر خط انتخاب شده را استخراج کنید و طول آنرا پیدا کنید
به مثال زیر توجه کنید:
Sub Example_Select()
' This example adds members to a selection set, first by crossing and
' then by filtering for circles.

' Create the selection set
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")


' Add all object to the selection set that lie within a crossing of (28,17,0) and
' (-3.3, -3.6,0)
Dim mode As Integer
Dim corner1(0 To 2) As Double
Dim corner2(0 To 2) As Double

mode = acSelectionSetCrossing
corner1(0) = 28: corner1(1) = 17: corner1(2) = 0
corner2(0) = -3.3: corner2(1) = -3.6: corner2(2) = 0
ssetObj.Select mode, corner1, corner2

' Add all the Circles to the selection set that lie within the crossing of (28,17,0) and
' (-3.3, -3.6,0) by filtering from the current drawing
Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
gpCode(0) = 0
dataValue(0) = "Circle"

Dim groupCode As Variant, dataCode As Variant
groupCode = gpCode
dataCode = dataValue

ssetObj.Select mode, corner1, corner2, groupCode, dataCode

End Sub

[شفیعی]

سلام
دوست عزیز خیلی ممنون بارها از کمک شما سود برده ام

[شفیعی]

سلام
با دستورات زیر می توان خطوط را در اتوکد انتخاب کرد فقط بعد از انتخاب باید چکار کرد مشخصات موضوعات انتخاب شده را چطوری می توان بدست آورد


Dim ssetObj As Object
Set ssetObj = ACADAPP.ActiveDocument.SelectionSets.Add("SSET141")
Dim mode As Integer
mode = ssetObj.SelectOnScreen