Связка Excel и Autocad

[doober]

отпишите в личку свое мыло,я вышлю вам файлы,проекты в excel и Autocad

[zheleznov]

doober , а есть пример с рисованием окружности с Центром, и радиусом задаваемые из экселя?

Рисую молниезащиту,но пока что хочетсся самому разобраться, автокад помучать. Окружности, и попарное взаимодествия молниеотводов.
В итоге должно быть XY- радиусы защты, + взаимодействия попарно молниеприемников в зависимости от расстояний, (до 3 штук если зона защиты молниеприемников положительна)
как это организовать я пока незнаю. но если хотя бы попарно будет считать для всех , для начала релизовать бы для 2ух и подумать об адекватности.
XY. R XY R. и ширина посередине между этими двуми точками.

А если например эксель делает вывод о невзаимодействии то длина =0 (а лучше для единобразия рисует невидимо), или нерисует вообще оси между 2 МП и соответственно защиту между ними, а если меньше Lc то зона сплошная без перегибов, это надо подумать...

[doober]

Рисуем две окружности и линию,которая соединяет их центры

Public Sub start()
 Application.StatusBar = "Запуск Автокада"
Set AcadApp = New AcadApplication
Set MainDoc = AcadApp.Documents.Add
Set MS = MainDoc.ModelSpace
 Dim NewDirection(0 To 2) As Double 'Поворот осей
    NewDirection(0) = 1
    NewDirection(1) = 1
    NewDirection(2) = 1
    MainDoc.ActiveViewport.Direction = NewDirection
MainDoc.ActiveViewport = MainDoc.ActiveViewport
   Dim Center(0 To 2) As Double
   Dim Radius As Double
    Center(0) = 20 'X
    Center(1) = 10 'Y
    Center(2) = 11 'Z
    Radius = 122
 Set My_Circle = MS.AddCircle(Center, Radius)
    Center(0) = 120 'X
    Center(1) = 120 'Y
    Center(2) = 1 'Z
    Radius = 12
   Set My_Circle2 = MS.AddCircle(Center, Radius)
    Set lineObj = MS.AddLine(My_Circle.Center, My_Circle2.Center)
      Application.StatusBar = "обработка завершена"
    MsgBox "Выгрузка чертежей завершена!", vbInformation
     AcadApp.Visible = True
 End Sub

[zheleznov]

Спасибо), у меня потихоньку двигается,
надо бы цикл что бы был, любой пример. но построением, через эксель, у тебя есть?
Выложи ,если не жалко!
есть какая нибудь книжка именно применимо к этой связи- автокад эксель?

И как провести касательную от точки к окружности, только до пересечения.
Ну да,решить уравнение можно, и так наверно и будет, но это крайний вариант, не ли чего то проще,программно вычисляемого.

[Olegus-k]

Сообщение от Foxx

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

Был макрос для экселя 2003 который строил прямоугольники в самом экселе. В 2010 начал строить с ошибками в размерах. Сможет кто-нить из программистов его подправить?
а конечная цель - всё-таки рисовать эти прямоугольники в автокаде.

[doober]

Сообщение от Olegus-k

а конечная цель - всё-таки рисовать эти прямоугольники в автокаде.

Можно и в dxf (текстовике) построить без проблем.

[Olegus-k]

Вы сможете это сделать?

[doober]

Могу.Но бесплатно не буду.
Этот процес занимает много времени,которого сейчас нет.
Как вариант для вас.
создайте в автокаде прямоугольник,лучше отрезками,сохраните в формате dxf.
Почитать можно здесь
Откройте блокнотом,проанализируйте запись отрезков ,создавайте их.Это самый простой путь.
Более сложный-это изучение объектной модели Автокада.
В нем есть неплохая справка для разработчиков VBA с примерами построений.

[Olegus-k]

Честно говоря о бесплатно речи и не было.
Любой труд и знания должны оплачиваться. В идеале)
Я всегда делал в экселе. На том этапе это устраивало.
Видимо в 2010 что то изменилось и точность отрисовки потерялась.
Готов выслать все исходники в экселе и рисунок, что хочу получать в автокаде. В личку мне вам не написать, в скайпе вас нет.

[doober]

Написал вам на мыло
Скайп забирает очень много времени.