macro در autocad

[hossain470]

سوال اولم اینه که آیا بخش خاصی برای ماکرو نداریم؟:گریه::گریه::گریه::گر� �ه::گریه::گریه::گریه::گریه::گر� �ه::گریه::گریه::گریه::گریه::گر� �ه::گریه::گریه:
اگه داریم که لطفا معذفی اش کنید. اگه نه یکی به داد من برسه. من توی cad میخوام object های select شده رو یه جوری فراخوانی کنم. مثلا بگم تمام object های select شده رو 10 واحد move کن. ولی نمیدونم به چه اسمی و از چه طریقی به اون object دسترسی دارم.

[vb study]

با سلام
این دستورات تکست را انتخاب و 10 واحد جابجا می کند
Sub movetext()
Dim InsertionPoint(0 To 2) As Double
Dim Point(0 To 2) As Double
Dim sset As AcadSelectionSet
Dim txtobj As AcadText
Set sset = ThisDrawing.SelectionSets.Add("name3")
sset.SelectOnScreen
For Each txtobj In sset
Point(0) = InsertionPoint(0) 'X
Point(1) = InsertionPoint(1) + 10 'Y
Point(2) = InsertionPoint(2) 'Z
txtobj.Move InsertionPoint, Point
Next
sset.Delete
End Sub