[dozZzer]

Всем привет!
Заранее прошу не пинать, я тут недавно
Вроде бы простая задача, но не нашел по поиску.
В общем имеем 2D линии или полилинии, прямогольники, и хотелось бы такой скрипт, чтобы при клике по линии или стороне прямоугольника поверх нее отрисовывавалсь линия с теми же свойствами выбранного объекта, но длиннее на 1.5" c каждой стороны, т.е. привязка центр-центр и вдоль.
В моём случае это нужно дла разбивки воздуховодов и показа, что это фланцевое соединение (TDC). Может еще какое применение можно придумать.
Величину удлинения можно пока сделать фиксированной.
Кто бы смог такой скрипт написать?
Заранее спасибо за помощь и с меня +

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

На каком языке пишем?

[Boxa]

1. Язык программирования, Ось, Программа под которую собираетесь писать. А то вдруг окажется, что это С++, Линукс и LiberCAD или ZCAD + pascal...
2. Что Вы уже сделали и что у Вас не получается сделать?

[dozZzer]

ACAD 2016, Windows 10 64-bit. Наверно такой скрипт на Лиспе надо писать, я даже не знаю как проще, поэтому прошу помощи. Но на ЛИСП никогда не писал
Еще раз спасибо!

[Boxa]

Отчего же сразу на Лисп, можно и другие языки использовать. На .NET, для примера, Вашу задачу в несколько строчек можно решить...
Собственно, а на каком языке Вы когда-то писали?

[dozZzer]

Ой давно это было, на турбо Паскале Если Вам не трудно, сделайте одолжение, напишите! Буду премного благодарен!
.NET вообще не представляю что и как)) ЛИСП думал хоть текстовик, можно поковырять что-то самому поэкспериментировать потом

[Boxa]

Сообщение от dozZzer Если Вам не трудно, сделайте одолжение, напишите!

Этого делать не буду. Могу подсказать и направить, в рамках данного раздела форума. Делать работу за Вас, это в поиск исполнителей.
В рамках раздела Программирование, могу помочь Вам вспомнить то, чему Вас учили для того, что бы Вы сами написали нужное Вам ПО.

Итак Паскаль.
Наиболее простой для Вас путь, это VBA. т.к. он из той же парадигмы языков, что и Паскаль.
По сути, Вам нужно:
- установить себе VBA Enabler,
- запустить его Alt+F11 (команда _vbaide),
- открыть справку (она тут: C:\Program Files\Common Files\Autodesk Shared\ACADAUTO.CHM) и
- собрать программу из нескольких примеров.

Алгоритм примерно такой:
1 - выбрать объект ThisDrawing.Utility.GetEntity (Или выбор множества объектов SelectionSet)
--- Получить от выбранного объекта: Длину (Length), угол поворота относительно осиХ (Angle), стартовую точку (StartPoint).
2 - создать новую линию
--- ThisDrawing.ModelSpace.AddLine(StartPoint1, EndPoint1), где : StartPoint1 - точка с координатами (-1.5",0,0); EndPoint1 - точка с координатами (Length+1.5",0,0)
3 - повернуть объект относительно базовой точки, метод acadLine.Rotate BasePoint, RotationAngle; где BasePoint - точка (0,0,0), а угол поворота Angle из п.1
4 - переместить объект, метод acadLine.Move Point1, Point2; где Point1 - (0,0,0) , Point2 - StartPoint из п.1

Собственно все.
Где в этом алгоритме можно налажать не представляю, но если будет не получаться, спрашивайте.

[Владимир_М]

Сообщение от Boxa Алгоритм примерно такой:

Помойму, если пп. 2 и 3 делать сразу в точке полученной в п. 1, то можно обойтись без п. 4

[Boxa]

Сообщение от Владимир_М Помойму, если пп. 2 и 3 делать сразу в точке полученной в п. 1, то можно обойтись без п. 4

можно, но так нагляднее пояснить построение линии, откуда какие данные берутся и для чего.

Понятно, что для себя я написал бы что-то типа:

Код:

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

  Db.Line acLine = new Db.Line(new Gem.Point3d(line.StartPoint.X -1.5, line.StartPoint.Y, line.StartPoint.Z),
 new Gem.Point3d(line.StartPoint.X + 1.5 + line.Length, line.StartPoint.Y, line.StartPoint.Z));
acLine.TransformBy(Gem.Matrix3d.Rotation(line.Angle, ed.CurrentUserCoordinateSystem.CoordinateSystem3d.Zaxis, line.StartPoint));

ЗЫ.
Вспомнил про видеокурс по VBA: http://adn-cis.org/forum/index.php?topic=7270.0

[VVA]

С помощью команд "Копировать" и "Увеличить"

Код:

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

(defun C:D15 ()
(vl-load-com)
(setvar "CMDECHO" 1)
(vl-cmdf "_COPY" "_Single" pause "" "0,0,0")
(vl-cmdf "_lengthen" "_Delta" 1.5 (list(entlast)(vlax-curve-getStartPoint(entlast)))(list (entlast)(vlax-curve-getEndPoint(entlast))) "")
  )

[Boxa]

Сообщение от VVA С помощью команд "Копировать" и "Увеличить"

VVA, Вам то зачем нужно это самоутверждение, а у автора был шанс научиться чему-то, но Вы ему помогли. Медвежья услуга.

[Profan]

Всё, теперь кранты.

[zamtmn]

Boxa
>>Алгоритм примерно такой:
>>Где в этом алгоритме можно налажать не представляю, но если будет не получаться, спрашивайте.
Однако налажать получилось. Агоритм не соответствует тому что описано в стартовом посте.

Кроме того все делается через зад. Какие нафиг углы переносы и повороты? Так чтоб прогрузить ядрышки и забить мегабайты?

[Boxa]

Сообщение от zamtmn Однако налажать получилось. Агоритм не соответствует тому что описано в стартовом посте.

Как скажите...

или Вы про работу с прямоугольниками? То до них еще не добрались, начали с малого.

Сообщение от zamtmn Кроме того все делается через зад. Какие нафиг углы переносы и повороты?

С удовольствием прочитаю описания более простого и понятного для новичка метода. Я старался описывать практически "ручной" подход, т.к. считаю, что это максимально понятно. Возможно ошибаюсь и у Вас есть более лучшее решение. Без подколок, действительно интересно.

Сообщение от zamtmn Так чтоб прогрузить ядрышки и забить мегабайты?

Проехать из города в город на мерседесе сможет и новичок, но только профессионал сможет это сделать на старом, ржавом и убитом ведре. Намек понятен?

[zamtmn]

>>Как скажите...
я про алгоритм из #7 там явно нехватает шагов, т.к. повернутая линия длиной 3" переносится на исходную линию. невижу в каком пункте она стала длинее исходной на 1.5" с каждой стороны.

>>Я старался описывать практически "ручной" подход, т.к. считаю, что это максимально понятно
"Понятно" кончается в #9 - матрицы, трансформации... Это самые страшные для новичка вещи))

>>С удовольствием прочитаю описания более простого и понятного для новичка метода.
голая арифметика. P1 и P2 - точки исходной линии
dP=P2-P1 //линия в виде "вектора"
L=1.5*нормализованя(dP)=1.5*(dP/length(dP)) //получаем вектор длиной 1.5 в "направлении" линии
P1=P1-L // новая точка начала
P2=P2+L // новая точка конца

>>Проехать из города в город на мерседесе...Намек понятен?
Образ абсолютно неправильный. Дело не в ведре.
Я предлагаю ехать оптимальным путем, вы едете по пути который знаете. Я проеду 1км, вы 500.
В данном случае ваше решение будет даже не в разы хуже, а на порядки

----- добавлено через ~3 мин. -----
>>точка с координатами (Length+1.5",0,0)
Извиняюсь, претензия снимается

[Boxa]

Сообщение от zamtmn "Понятно" кончается в #9 - матрицы, трансформации... Это самые страшные для новичка вещи))

Теперь внимательно читаем #9

Сообщение от Boxa Понятно, что для себя я написал бы что-то типа:

т.е. не предлагал новичку писать на С# и пользоваться матрицами и трансформациями.
Но вот в Вашем предложение операции над векторами для новичка самое то, Вы привыкли к питону, но в VBA с этим все намного печальнее. Попробуйте написать Ваш алгоритм на vba и посмотрите насколько он будет проще.

Сообщение от zamtmn Образ абсолютно неправильный. Дело не в ведре. Я предлагаю ехать оптимальным путем, вы едете по пути который знаете. Я проеду 1км, вы 500. В данном случае ваше решение будет даже не в разы хуже, а на порядки

Вы предлагаете в первом классе, на уроках арифметики изучать матрицы...

[zamtmn]

>>Попробуйте написать Ваш алгоритм на vba и посмотрите насколько он будет проще.
У меня не алгоритм, у меня несколько арифметических действий дающих нужный результат. VBA я ниразу в жизни не видел - хотите сказать что там нет арифметики для флоатов?
>>По поводу векторов, Вы привыкли к питону, но в VBA с этим все намного печальнее. Попробуйте написать Ваш алгоритм на vba и посмотрите насколько он будет проще.
Я привык к паскалю.
dP=P2-P1
и
dPx=P2x-P1x
dPy=P2y-P1y
dPz=P2z-P1z
вобщемто одно и тоже если я правильно понимаю о чем вы.

>>Вы предлагаете в первом классе, на уроках арифметики изучать матрицы...
)) ниче не предлагаю. Среднестатистический человек гораздо проще поймет вектора на пальцах, чем матрицы поворота, да еще и не вокруг 0,0,0 и трансформацию векторов этими матрицами
Вы в курсе что сидит внутри Gem.Matrix3d.Rotation(line.Angle, ed.CurrentUserCoordinateSystem.CoordinateSystem3d.Zaxis, line.StartPoint)?

>>3 - повернуть объект относительно базовой точки, метод acadLine.Rotate
>>4 - переместить объект, метод acadLine.Move
это тоже самое, другими словами. Такой подход к вычислениям очень ресурсоемкий

[Boxa]

Ещё раз.я не предлагал никому разбираться с матрицами поворота.я предложил максимально понятный, ручной алгоритм в сообщение #7. Зачем Вы искажает мои слова?
Среднестатистическому пользователю автокада более понятны шаги: создать линию нужной длины, повернуть линию и передвинуть линию.

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

[zamtmn]

Вы предлагали взять линию, повернуть, перенести... Мы та знаем что там внутри этих операций скрыто
>>Какие нафиг углы переносы и повороты? Так чтоб прогрузить ядрышки и забить мегабайты?
Я придираюсь к оптимальности по вычислительной нагрузке. Вместо нескольких элементарных операций предлагается в космос слетать. Еще и в безапелляционной манере, типа проще не бывает. бывает.

[Boxa]

Сообщение от zamtmn Еще и в безапелляционной манере, типа проще не бывает

Цитату пожалуйста. (#18 сообщение не приводить, т.к. оно в части понятности лишь дубляж #14).

Сообщение от zamtmn Я придираюсь к оптимальности по вычислительной нагрузке.

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

[zamtmn]

Я изначально не увидел Length+1.5",0,0 поэтому
>>Где в этом алгоритме можно налажать не представляю, но если будет не получаться, спрашивайте.
воспринял в штыки. Уже извинился.
Часто тут вижу подобные решения - чтоб получить чтото элементарное предлагается делать совсем не элементарное... Простейшие геометрические представления у местных обитателей должны быть, без них каши не сваришь

[Boxa]

Давеча тут один конструктор вершину параболы брутфорсом искал, а Вы про вектора...
Дальше будет ещё лучше, сам так привык к библиотекам, что не сразу сообразил что от векторов можно к флоутам перейти.

Тем временем автор топика молчит

ЗЫ.

Сообщение от zamtmn P2=P1+L // новая точка концы

поправьте очипятку.

[dozZzer]

Всем спасибо за бурное обсуждени! Всё очень интересно и захватывающе, но имеет место быть жуткая нехватка времени это воплотить в жизнь, к сожалению.
Если кто поможет написать, то я смогу потестить или может даже потом доработать.
Заранее благодарю!

[dozZzer]

Попробовал скрипт из поста #10, линия отрисовывается длиной на 3" больше, но со смещением вверх и влево, а не поверх исходной (это если линия горизонтальная или наклонная). Если вертикальная, то отрисовка происходит справа на расстоянии 60.5". Если по грани прямоугольника клацнкть, то рисует копию прямоугольника справа на расстоянии 5.5".
Спасибо большое уважаемому VVA! Еще бы поправить так, чтоб работало правильно, особенно важно чтоб вдоль стороны прямоугольника работало! Заранее благодарю!

[Vladimir_Sergeevich]

Я тоже давно писал на турбо паскале, но VBA даже не пытался учить. сейчас постепенно постигаю .net
С точки зрения начала, Lisp будет проще, и функционал весьма богатый.
Предлагаю лисповский алгоритм. (не командный)
1 получаем объект entsel
2 анализируем выбранный объект (отрезок, полилиния) и начинаем ветвление (предполагаю будет cond)
3,1 для отрезка получаем начальную конечную точку,
3,2 для полилинии (тут бы проверить bulge) получаем начало конец сегмента (см функции vlax-curve-get...)
4. считаем новые точки с помоoщю (polar pt1 ang dist)
5. строим отрезок/полилинию по полученным точкам. тут же забить слой/цвет/вкус/запах либо по объекту хозяина, либо "как надо"

В дальнейшем весь код можно зациклить на выборе объекта для удобства...

имхо, чем крут Lisp - куски кода можно тестить прямо в командной строке и не надо никаких энейблеров. А изучение COM-модели с помощью (vlax-dump-object (vlax-get-acad-object)) и дальше вниз по иерархии - дико удобно.