[Zucerman]

Имеется начерченный в автокаде плоский замкнутый контур из линий, сплайнов, дуг (выкройка). Необходимо выгрузить в файл координату контура (по X) c заданным постоянным шагом по Y.
Т. е. в итоговой таблице должны содержаться пары числе (X, Y), являющиеся координатами контура (выкройки). Где приращение по Y идет с заданным постоянным шагом.

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

Сообщение от Zucerman Имеется начерченный в автокаде плоский замкнутый контур из линий, сплайнов, дуг (выкройка). Необходимо выгрузить в файл координату контура (по X) c заданным постоянным шагом по Y. Т. е. в итоговой таблице должны содержаться пары числе (X, Y), являющиеся координатами контура (выкройки). Где приращение по Y идет с заданным постоянным шагом.

И? Где код, на каком языке пишешь, на каком месте спотык?

[Zucerman]

Сообщение от Кулик Алексей aka kpblc И? Где код, на каком языке пишешь, на каком месте спотык?

Спотык концептуальный. Кода нет, писАть не умею. Прошу предложить самый простой способ (с наименьшими потерями) как получить означенное?

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

А что тут "концептуального"? Определяешь весь контур, находишь (к примеру) самую нижнюю левую точку контура, приращиваешь Y, получаешь 2 дополнительных точки (например, через построение временного примитива и определение пересечения), определяешь, до какой из них минимальное расстояние - вот тебе и направление движения. Потом перемещаешь свой примитив дальше - новые точки.
Ну и так далее. Потом аналитика и сведение результата.

[Zucerman]

Сообщение от Кулик Алексей aka kpblc А что тут "концептуального"? Определяешь весь контур, находишь (к примеру) самую нижнюю левую точку контура, приращиваешь Y, получаешь 2 дополнительных точки (например, через построение временного примитива и определение пересечения), определяешь, до какой из них минимальное расстояние - вот тебе и направление движения. Потом перемещаешь свой примитив дальше - новые точки. Ну и так далее. Потом аналитика и сведение результата.

"Концептуально" для меня тут именно программная реализация... Я готов даже какой-нибудь макрос через клавиши записать. Но, в acad 2008 я не смог найти команду, которая бы определила координату пересечения линии (вспомогательной) и контуром на чертеже

[Boxa]

Сообщение от Zucerman Кода нет, писАть не умею. Прошу предложить самый простой способ (с наименьшими потерями) как получить означенное?

А почему тогда в разделе Программирование? Эта тема скорее уместна в разделе autocad

[Лентяй]

Когда-то я разработал именно такой лисп для оцифровывания диаграмм жидкость-пар, так что лови вложение. Поскольку типичная диаграмма представляет собой "рыбку", то "Концентрация" есть координата по Х, а "Жидкость" и "Пар" - координаты нижней и верхней кривой. Вывод - в текстовое окно.

Код:

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

  (defun C:C_XY ( / adoc util LIQ VAP CONC par xln)
 (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
        util (vla-get-utility adoc))
  (mapcar '(lambda (x y) (vla-getentity util x nil (strcat "\nSelect " y " Line: ")))
    '(CONC LIQ VAP) '("Concentration" "Liquid" "VAPOR"))
  (setq csp (vla-ObjectIDtoObject adoc (vla-get-ownerID CONC))
        par 0 C_XY nil)
  (while (<= par 1) (setq pt (vlax-curve-getpointatparam CONC par))
    (setq xln (vla-addline csp (vlax-3d-point pt) (vlax-3d-point (subst (+ 1 (cadr pt)) (cadr pt) pt)))
          pt_xy (mapcar '(lambda (x) (vlax-safearray->list (vlax-variant-value (vla-IntersectWith x xln acExtendOtherEntity))))
                  (list LIQ VAP))
          pt_l (list par (cadar pt_xy) (cadadr pt_xy))
          C_XY (cons pt_l C_XY))
    (print pt_l)
    (setq par (+ par 0.1)))
  (setq C_XY (reverse C_XY))
);end

[Zucerman]

Сообщение от Лентяй Когда-то я разработал именно такой лисп для оцифровывания диаграмм жидкость-пар, так что лови вложение. Поскольку типичная диаграмма представляет собой "рыбку", то "Концентрация" есть координата по Х, а "Жидкость" и "Пар" - координаты нижней и верхней кривой. Вывод - в текстовое окно.

Супер! Спасибо!

А... можно перевернуть x на y (чтоб сканировало координату по X)?

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

Нда... А самостоятельно? С кодом разобраться, посмотреть на результаты?

[Лентяй]

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

[Zucerman]

Сообщение от Кулик Алексей aka kpblc Нда... А самостоятельно? С кодом разобраться, посмотреть на результаты?

Сообщение от Лентяй kpblc, неужели ты забыл про это сладкое слово "халява"?

Господа! Я полностью разделяю Ваше негодование. Но... Последний раз я программировал лет 15 назад. Это был ПасЦаль и численные методы.

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

Сообщение от Лентяй kpblc, неужели ты забыл про это сладкое слово "халява"? Сходи на LinkedIn и поразись, сколько студентов, главным образом из Индии и Китая выкидывают туда свои курсовые задания в надежде, что кто-им даст короткицй правильнай(!) ответ

Не забыл.

Сообщение от Zucerman Последний раз я программировал лет 15 назад. Это был ПасЦаль и численные методы.

Можно было сразу обращаться в "Поиск исполнителей".