Може би следното програмче ще ти свърши работа:
Sub PointsLayOn()
Dim Pnt2Txt As Double: Pnt2Txt = 5
Dim TxtHeight As Double: TxtHeight = 10
Dim AcadApp As AcadApplication
Set AcadApp = CreateObject("AutoCAD.Application")
With AcadApp
.WindowState = acMax
.Visible = True
End With
Dim AcadMS As AcadModelSpace
Set AcadMS = AcadApp.ActiveDocument.ModelSpace
Dim i As Integer: i = 1
Dim TmpPnt(0 To 2) As Double, AcadPnt As AcadPoint
Dim TmpTxt As String, AcadTxt As AcadText
Do While Not IsEmpty(Cells(i, 1))
TmpPnt(0) = Cells(i, 2).Value
TmpPnt(1) = Cells(i, 3).Value
TmpPnt(2) = Cells(i, 4).Value
Set AcadPnt = AcadMS.AddPoint(TmpPnt)
TmpPnt(0) = TmpPnt(0) + Pnt2Txt / Sqr(2)
TmpPnt(0) = TmpPnt(0) + Pnt2Txt / Sqr(2)
TmpTxt = Cells(i, 1).Value
Set AcadTxt = AcadMS.AddText(TmpTxt, TmpPnt, TxtHeight)
i = i + 1
Loop
AcadApp.ZoomExtents
Set AcadApp = Nothing
End Sub
Предполага се, че го пускаш от под Excel, като:
- номера на точката трябва да ти е в колона "A"
- X-а на точката e в колона "B"
- Y-а на точката е в колона "C"
- H-а на точката е в колона "D"
Нанасянето започва с 1-вия ред и продължава, докато не срещне празна клетка в колона "A". Оттук нататък си ти. Отне ми 5 минути да го напиша, ти отдели колкото е нужно да си го пригодиш за нуждите си.