Дорвался до VBA для autocad

[alchemist_fxi]

Когда заколебался сортировать надписи по порядку - сделал свой скрипт с блекджеком и шлюхами с записью координат вместе с надписью. Хавает mtext и text, выплевывает столбцом в новый документ
Осторожно, быдлокод :)
Дернуто местами из нета и из встроенной справки. Например, я так и не понял, зачем грохать свой selectionset если он присутствует, но, возможно, это такое сильное колдунство. Оставил "на всякий".


Dim xlApp As Excel.Application

Public Sub TextAndCoords2Excel()
Dim Src As AcadDocument
Dim Trgt As Excel.Workbook
Set Src = ThisDrawing

If Not Connect2XL Then Exit Sub

Set Trgt = xlApp.Workbooks.Add

Dim someshit As AcadObject
Dim Mtxt As AcadMText
Dim Txt As AcadText

Dim FilterType(3) As Integer
Dim FilterData(3) As Variant
Dim setName As String
Dim oSset As AcadSelectionSet

FilterType(0) = -4
FilterData(0) = " 0 Then
Err.Clear
Set xlApp = CreateObject("Excel.Application")
If Err <> 0 Then
MsgBox "Cannot start Excel", vbExclamation
Connect2XL = False
Else: Connect2XL = True
End If
Else: Connect2XL = True
End If

xlApp.Visible = True
End Function