[Dec0rator]

Здравствуйте!
Помогите пожалуйста с написанием следующих макросов на VBA Excel:
1) чертить размеры линейные(желательно и наклонные) и угловые по 2м-3м координатам;
2) вставка текста с указанной координатой;
Поясню для чего требуется: я немного знаю vba для excel, пишу программу, кот. могла бы по заданным параметрам в excel чертить простенькие детали в autocad, образмеивать их и подписывать;
Для черчения полилиний пользуюсь уже написанным макросом export points;
Заранее спасибо за любую помощь!

[Eugen True]

Несмотря на кажущуюся бредовость затея не лишена смысла, но все же для начала я бы использовал copy-past. Кроме автокада есть и другие графиические программы, в том числе и параметрические.
Удачи!

[Dec0rator]

Eugen True - я не очень понял что вы имели в виду под copy-past?)
Объясню почему именно autocad - потому что до идеала довести не получится все это, и нужно чтобы программой поьзовались люди которые знают только автокад; ну и я сам более менее умею считать в vba excel...
Вобщем очень надеюсь на помощь =)
Кстати не получается вытащить из макрорекордера 2010 автокада architecture текст программы...это вообще возможно?

[Eugen True]

Я имел в виду вставку текста в командную строку. В Excel формируем столбец состоящий из команд автокада и цифр вычислений Excel, далее копи-паст в командную строку и все построено. Сам часто пользуюсь. У меня задумка так строить сложные поверхности. Если этого метода недостаточно, то далее уже VB.

[Dec0rator]

Eugen True, я понял о чем вы; но мне нужно написать программу для производства, чтобы исключить ошибки....очень большой объем деталей, а исходных данных всего ничего...сплошная геометрия...так что только vba)
И, кстати я даже в самом autocad не нашел как можно построить угловой размер по 3м координам, введя их в командной строке

[KronSerg]

Ещё раз для тех кто в танке, что ты хочешь, нужно чтобы Excel выдавал текст программы для последующего выполнения в акаде?

[Dec0rator]

KronSerg - Нужно на vba excel код, который сможет в уже открытом файле автокада отчертить размеры и текст по координатам.
как пример такой код есть для полилинии вот здесь, 2-й снизу:
http://www.cad.dp.ua/stats/a_vba/acentity1.php

[Eugen True]

Не в курсе твоей задачи, но кажется тебе надо написать кнопку для блондинок.
Дерзай. Удачи!

[AlexV]

Вот процедурка.. Особо не проверял, но по идее должна работать.. Из экселя в нее надо аргументы передать, но если с VBA excel имел дело, то разберешься..

Код:

[Выделить все]

Public Sub dimcreate(x1, x2, x3, y1, y2, y3)
Dim Acad As Object
Dim pnt1(0 To 2) As Double
Dim pnt2(0 To 2) As Double
Dim pnt3(0 To 2) As Double
Dim dimObj 'As AcadDimAligned
  Set Acad = GetObject(, "Autocad.Application")
  If Err <> 0 Then
    MsgBox "Autocad не загружен", vbExclamation
    Exit Sub
  End If
Dim MyModelSpace
On Error Resume Next
If Acad.ActiveDocument.ActiveSpace = 1 Then
  Set MyModelSpace = Acad.ActiveDocument.ModelSpace
Else
  Set MyModelSpace = Acad.ActiveDocument.paperSpace
End If
On Error GoTo errch
pnt1(0) = x1
pnt2(0) = x2
pnt3(0) = x3
pnt1(1) = y1
pnt2(1) = y2
pnt3(1) = y3
pnt1(2) = 0#
pnt2(2) = 0#
pnt3(2) = 0#
Set dimObj = MyModelSpace.AddDimAligned(pnt1, pnt2, pnt3)
Exit Sub
errch:
MsgBox Err.Number & vbCrLf & Err.Description
End Sub

[Dec0rator]

AlexV - спасибо огромное! это то что и нужно было по размерам!
текст и угловые размеры сделал по аналогии =)
тему можно считать закрытой, для меня во всяком случае)

[bdfy]

Поясню для чего требуется: я немного знаю vba для excel, пишу программу, кот. могла бы по заданным параметрам в excel чертить простенькие детали в autocad, образмеивать их и подписывать;

давно вынашиваю идею написать хороший автомат по теор. механике с построением редуктора и той самой деталировки случайно не такую задачу решаете ?
на самом деле автокад наверное худшее решение для этой задачи. если нужно "серьезное" оформление по ГОСТ - лучше работайте с компасом. там и программирование несколько более продвинутое.
если же делаете "тяп-ляп" под ручную доработку я бы c Visio работал. хотя бы потому что с VBA он работает на ять. сделан для этого. результат можно и в автокад экспортировать. если очень хочется.

[AlexV]

Сообщение от bdfy ...на самом деле автокад наверное худшее решение для этой задачи. если нужно "серьезное" оформление по ГОСТ - лучше работайте с компасом. там и программирование несколько более продвинутое...

А что, под Компас можно программировать? В какой среде?

[bdfy]

А что, под Компас можно программировать? В какой среде?

python как минимум. опять же запись макросов там есть чего в автокаде я не заметил.

[AlexV]

Сообщение от bdfy python как минимум. опять же запись макросов там есть чего в автокаде я не заметил.

python это конечно хорошо.. Правда, язык не самый, по-моему, известный.. Автокад много за что можно критиковать, но как раз легкость и простота разработки приложений под него даже дилетантом в программировании всегда считалось достоинством..

[gomer]

Сообщение от AlexV легкость и простота разработки приложений под него даже дилетантом в программировании всегда считалось достоинством.

Не обобщайте... Серьезные приложения - слишком дорого для дилетанта... (я имею ввиду .net и oarx)

[AlexV]

Сообщение от gomer Не обобщайте... Серьезные приложения - слишком дорого для дилетанта... (я имею ввиду .net и oarx)

Ну, я не так, наверное, выразился.. я имею в виду не .net и arx, а lisp и vba. Не "серьезное приложение", а утилиты для облегчения своей работы (которые может зачастую сделать даже дилетант, либо попросить на dwg.ru, и их за 5 минут на коленке наклепает VVA, kpblc или еще 152 знающих человека.. )

[gomer]

Сообщение от AlexV я не так, наверное, выразился..

с этим согласен
Я вот не смог почему-то к брикскад 10 подключиться из опен офис калк... но может чего не так сделал... не помню... по #9 желательно все таки создавать экземпляр автокада если он не запущен...К тому же, если у меня запущено256 автокадов, как узнать какой из них подключен к экселю

[AlexV]

Сообщение от gomer по #9 желательно все таки создавать экземпляр автокада если он не запущен...К тому же, если у меня запущено256 автокадов, как узнать какой из них подключен к экселю

А зачем? Если не запущен, то программа скажет: "Звыняйте, хлопцы!. Он не запущен. Запустите, чтоль..". Если запущено 256 автокадов, то узнать о том, какой подключен к экселю, можно будет по вновь появившимся размерам, созданным процедурой dimcreate.. Появятся они в том автокаде, который был запущен последним, наверное. Нет, понятно, что в идеале, программа должна разобраться, из под чего там ее запустили, экселя, опенофиса, кватропро или там вдруг "лотус 1-2-3", найти в системе все автокады и прочие инвенторы, догадаться, чего хотел юзер, и потом это создать; работать под любой виндой, DOS, macos-ами и национальной узбекской операционной системой.. Но в этом случае она будет либо платной, либо ее сваял Александр Ривилис..

[Dec0rator]

Я собственно поясню для чего конкретно делаю прогу:
для вычерчивания непрямоугольных наличников, откосов и тому подобных изделий. Собственно потому меня совершенно не интересует оформление по ГОСТ - нужно просто чтобы люди поняли как обрезать на станке ту или иную деталь :-)
И еще - результат нужен был очень быстрый, ибо до меня все это чертили просто вручную!
Ну и еще косяк в том что я пока что очень слабо знаю даже тот же vba...
Ежели интересно, могу выложить то что написал :-)
Кстати то что программа чертит просто в открытом автокаде весьма удобно)

[Сергей Дубина]

Я делал для 2009 автокада, пример сдесь:
http://forum.dwg.ru/attachment.php?a...0&d=1288073940

[Dec0rator]

извиняюсь за вопрос не в тему, может кто подскажет, почему в vba может вылазить ошибка Path/File access error 75 при обращении к формам? Причем вылазит не систематически, а иногда....не моогу понять как....(((

[AlexV]

Сообщение от Dec0rator извиняюсь за вопрос не в тему, может кто подскажет, почему в vba может вылазить ошибка Path/File access error 75 при обращении к формам? Причем вылазит не систематически, а иногда....не моогу понять как....(((

А VBA из под Excel? Мне так кажется, дело не в "обращении к формам", а в коде, который повешен на контролы формы.. чтение / запись файлов, возможно.. К примеру, если пользователь не обладает правами админа, а запись идет в какую-либо защищенную папку..

[Dec0rator]

Сообщение от AlexV А VBA из под Excel

Да, VBA из под excel....плюс обычно после таких ошибок часто падает сам excel;
Если посмотреть в отладку при ошибке то встает на "форма какая-то".show....причем на разных формах...

Кстати являюсь админом на компе...
И вообще периодически происходит в файле такая ошибка и падает эксэль...на 2х разных компах....
Приложил свой файл...

Видимо падает при сохранении или автосохранении файла...и периодически, не всегда..