Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

8th
Июн

Связать Excel и Autocad

Posted by micher under Basic

Как связать Excel и Autocad?

doober

Эти модули находятся в файле Excel.
По обращению к листам видно,что код в VBa Excel.



radius = Sheets("Размеры инструмента").Range("AH31").Value

    radius1 = Sheets("Размеры инструмента").Range("M31").Value
Bort = Sheets("Размеры инструмента").Range("N4").Value / 2

D2 = Sheets("Размеры инструмента").Range("V31").Value

ниже код для построения линии выглядит так в VBA Autocad



ub Example_AddLine()

    ' This example adds a line in model space
    Dim lineObj As AcadLine

    Dim startPoint(0 To 2) As Double

    Dim endPoint(0 To 2) As Double
    ' Define the start and end points for the line

    startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#

    endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0#
    ' Create the line in model space

    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)

    ZoomAll
End Sub

тема на форуме