1. Отваряш Excel-а.
2. Стартираш си VBA IDE-то с натискането на Alt+F11 или Tools -> Macro -> Visual Basic Editor.
3. В Visual Basic Editor-а избираш Insert -> Module и вътре Paste-ваш следното:

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(1) = TmpPnt(1) + 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

Съдържаниет е скрито
Влезте за да го видите