[МишаИнженер]

Помогите пожалуйста получить точку привязки начала размера AutoCAD на VBA!
Посмотрел сам и понимаю что на VBA AutoCAD нельзя написать такой простой программы как замена нескольких размеров одним общим с повторением величин заменённых более мелких размеров.
Как было бы удобно пользоваться такой программой в AutoCAD! Подскажите пожалуйста как сделать такую программу на VBA!
Как получить точки привязки размеров на VBA?

[Boxa]

Миша, а Вы попробуйте на русском объяснить что Вам нужно.
Я как не понимал что вы хотите, так и после Вашего исправления не понимаю.

[DEM]

Сообщение от Boxa Миша, а Вы попробуйте на русском объяснить что Вам нужно.

Offtop: Очень похоже на изьяснения пьяного китайца на русском языке....

[СергейКА]

Сообщение от МишаИнженер замена нескольких размеров одним общим с повторением величин заменённых более мелких размеров

Вы пробовали пользоваться РЗМЦЕПЬ? Я понимаю, если бы надо было в итоге получить общий размер = сумме "мелких размеров" или же вместо общего размера текст в виде "размер1+размер2+..."

[maratovich]

Сообщение от МишаИнженер одним общим с повторением величин заменённых более мелких размеров.

А если будет дырка (пропуск) ? Тогда как записывать ?

[МишаИнженер]

У меня начерчена длинная цепь из мелких размеров с помощью команды "ПродолжитьРазмер". Но после сокращения отображаемых элементов на чертеже, балки моста стираются а в схеме моста информация об этих балках остаётся. Мне надо вместо множества мелких одинаковых размеров начертить один общий размер с текстом: 50х55800=2790
Как вы понимаете раньше на чертеже было начерчено 50 балок длиной 55,8 м, а после сокращения отображаемых балок надо чтобы размер отображал схему моста!

[Дима_]

Сообщение от МишаИнженер Мне надо вместо множества мелких одинаковых размеров начертить один общий размер с текстом: 50х55800=2790

Вот

[МишаИнженер]

Извините я не могу понять как мне из таких выражений: '(lambda (a b) (> (apply 'distance a) (apply 'distance b))))))) найти код который мне поможет определить точку привязку линий размеров
Как с помощью LISP, ARX, C++ можно определить координаты точек привязки размеров?
Эта задача простым образом решена быть не можетв AutoCAD?

[Boxa]

Ваш русский, ужасен.
Что вы имеете ввиду под "координаты точек привязки размеров"?
Приложите, пожалуйста, рисунок с пояснениями.

[gomer]

МишаИнженер, вместо того, чтоб посмотреть справку по объектной модели разводите тут пингвиньи споры...

[swell{d}]

а в объектной модели, кстати, про это ни слова: http://vbamodel.narod.ru/AutoCAD/idh...ted_object.htm
или я чего-то не вижу?

[Кулик Алексей aka kpblc]

Я не понимаю, зачем писать именно на VBA...

[Boxa]

Я кажется понял о чем идет речь.
При создании размера в VBA задаются точки: startExtPoint и endExtPoint в строке
Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(startExtPoint, endExtPoint,dimLinePoint, rotationAngle)

Код:

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

    Dim dimObj As AcadDimRotated
    Dim rotationAngle As Double
    Dim startExtPoint(0 To 2) As Double
    Dim endExtPoint(0 To 2) As Double
    Dim dimLinePoint(0 To 2) As Double
 
    ' Define the dimension
    rotationAngle = 0.707
    startExtPoint(0) = 0: startExtPoint(1) = 0: startExtPoint(2) = 0
    endExtPoint(0) = 6: endExtPoint(1) = 3: endExtPoint(2) = 0
    dimLinePoint(0) = 0: dimLinePoint(1) = 5: dimLinePoint(2) = 0
 
    ' Create the rotated dimension in Model space
    Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(startExtPoint, endExtPoint,dimLinePoint, rotationAngle)

И автор топика хочет, выбрав на чертеже произвольный размер, посмотреть координаты этих точек.

Прямой доступ к этим свойствам, из VBA (в VB.NET это св-ва XLine1Point/XLine2Point), аутодеск не дает.
Однако, т.к. размер это анонимный блок с именем вида *D00, то найдя блок соответствующий размеру (как вариант по координатам текста), внутри блока Вы найдете и желаемые точки.

Удачи в работе.

[maratovich]

Сообщение от МишаИнженер Как с помощью LISP, ARX, C++ можно определить координаты точек привязки размеров? Эта задача простым образом решена быть не можетв AutoCAD?

5 минут поиска и есть решение (координат точек).
Смотрите пост №7

[Boxa]

Сообщение от maratovich 5 минут поиска и есть решение (координат точек). Смотрите пост №7

Эт не спортивно =о)
Вопрос был, как это сделать в VBA, а там гибрид =о)

[maratovich]

Сообщение от Boxa внутри блока Вы найдете и желаемые точки

А там их 12 шт. Осталось определить нужные.....

[Кулик Алексей aka kpblc]

А что, по слою Defpoints их не отсортировать?

[maratovich]

Сообщение от Кулик Алексей aka kpblc А что, по слою Defpoints их не отсортировать?

Нет, они все на Defpoints
Решилось просто - первая и вторая точка по порядку и есть привязки размера.
Ну вот и решение на VBA
Автор сам разберешься что делать или как ?

[Boxa]

ИМХО, для успокоения проверял бы расстояние между точками и угол наклона прямой проходящей через эти точки и сравнивал с данными из размера.
Может еще какие нибудь данные проверил, но это уже сам автор пускай думает.

[МишаИнженер]

Спасибо за подсказки! Очень интересная программа в сообщении №7 и вроде бы работает! Ещё раз СПАСИБО!