Связка Excel и Autocad

[Foxx]

Здравствуйте! Интересует вопрос как связать Excel и Autocad. Банальный пример: в Excel рассчитываются длины прямоуголльника в зависимости от различных исходных данных. Затем в Autocad требуется нарисовать этот прямоугольник. Как автоматизировать эти действия ?

[EducatedFool]

Можно из макроса Excel управлять автокадом, можно наоборот - в autocad написать макрос, подгружающий из Excel данные, и рисующий прмоугольники

Пример кода, возможно, будет, если вы прикрепите исходный файл (Excel и автокад),
и объясните, что и как должно работать.

[doober]

Поиск по ветке с ключевым словом Autocad не рулит?
Тынц

[Foxx]

Office 10 / Autocad 11. Какой способ будет лучше: из Excel управлять автокадом или в автокаде создавать макрос ? В дальнейшем планируется рассчитываеть сложные конструкции зданий и подбирать расстояния, затем в автокаде чертить. Оформление линий по ГОСТ, толщина и т.д. Хотелось автоматизировать эту задачу. Ввели исходные данные, в экселе произведены все расчеты, подобраны расстония и в автокаде готов чертеж. Затем следующие данные и т.д.
doober
Да, спасибо. Но все таки хотелось бы углубиться в этот вопрос.

[doober]

По опыту,если чертеж очень сложный.занимает много времени на работу Excel с Autocad,больше 40-50 секунд,то все работы надо делать в Автокаде.
Во вложении видео и модули с кодами.

[Foxx]

Я так понимаю модули написаны для автокада на языке Visual Basic, то есть действия все происходят в автокаде. А почему макрос запускается с Excel ? и как научиться писать эти модули для конкретного случая. Что именно почитать ? в коде не вижу что то ссылок на Excel.

[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

Sub 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

ЗЫ:у меня на изучение объектной модели Autocad ушел год.

[Foxx]

Спасибо. Будем изучать. Что посоветуете почитать. В планах именно создание крупномасштабных чертежей по расчетам, проделанным в Excel.

[doober]

Посетить этот форум.набраться терпения,+ естественно геометрия.
прилагаю Хелп для 2008,2011 не нравиться,да и для моих задач очень тяжелый.
VBA везде одинаков.Там есть примеры кодов в принципе на все случаи.
Помните,сложный чертеж-работать только с Автокада,иначе ошибка будет через минуту.Это все Билл виноват

[Foxx]

Будем стараться. В архиве Mod1 у вас модули содержаться именно в VBA Excel, и с него идет запуск автокада. Если же чертеж сложный нужно писать макрос именно в VBA Autocad, где точки являются ячейки Excel. Все верно ?