[Shoorup]

Прошу помощи в реализации идеи создании линии электрического соединения.

Суть такая, что нужно рисовать две линии - одну горизонтально и от нее сразу вертикальную без нажатия Enter. Нечто подобное есть в AutoCAD Electrical.
Хочется немного расширить/улучшить возможность рисования таких линий.

Более подробно:
1. Линии рисуются только ортогонально. 2. Первая линия может быть как вертикальная так и горизонтальная. 3. Начало второй линии должно начаться автоматически как только курсор выйдет за пределы X или Y.
т.е. например рисуем сначала горизонтальную линию. Тыкаем начальную точку, затем ведем в сторону на некоторое произвольное расстояние, останавливаемся, тянем курсор в верх или низ, выходим за предел Y и начинает рисоваться уже вертикальная линия. Завершаем тыком или по той же схеме продолжаем рисовать "змейку".

Вообще такое возможно то хоть реализовать в AutoCAD?

[Дима_]

Ничерта не понял - пример рисуй.

[Shoorup]

На первом рисунке рисуем горизонтальную линию влево. Как только курсор (указатель) вышел за пределы (указаны пунктиром. Если что то они не рисуются Это воображаемые линии) рисование горизонтальной линии останавливается и начинается рисоваться вертикальная линия (второй рисунок), у которой также имеются пределы. Выход курсора за эти пределы будет рисовать горизонтальную линию и т.д.

[kp+]

Мое ржавое здравомыслие подсказывает, что замахаться можно с этим "умным" рисованием соед. линий. Такая штука реализована в PCAD'е, и от нее там кроме вреда никакой пользы И отключить нельзя Впрочем, как и все на свете, на любителя

[Shoorup]

Ну если грамотно все сделать то было бы неплохо... Кто бы помог наваять программку. Я даже не представляю как можно отслеживать курсор в акаде...

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

Сообщение от Shoorup как можно отслеживать курсор в акаде

grread в помощь.

[kp+]

Сообщение от Shoorup Кто бы помог наваять программку

Можно подхомутить прогу рисования "облаков" из старой версии ET, там подобное реализовано, код должен быть открытый. только заменить дуги на прямые.

[Shoorup]

Кулик Алексей aka kpblc, спасибо. На выходной поколупаю

[Дима_]

По моему какая-то хренотень с точки зрения использования, но интереса ради:

Код:

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

 (vl-load-com)
(defun c:test( / stop hor pt pos)
  ;rec ver ((lambda (frec)
  ;           (frec (getpoint "\n Start point ") (grread T 8) T))
  ;rec ver (lambda (pt pos hor)
  (SETQ pt (getpoint "\n Start point ")
        pos (grread T 8)
        stop T)
  (while stop  
         ((lambda (ptx)
            (if (or (/= (car pos) 5)
                    (> (abs (if hor
                                (- (cadr pt) (cadr (cadr pos)))
                                (- (car pt) (car (cadr pos)))))
                       (/ (getvar 'viewsize) 10.0)))
                (progn
                 (entmakex (list '(0 . "LINE") (cons 10 pt) (cons 11 ptx)))
                 (if (= (car pos) 5)
                     ;rec ver(frec ptx (grread T 8) (not hor))
                     (SETQ pt ptx ptx (grread T 8) hor (not hor))
                     ;rec ver (redraw))
                     (SETQ stop nil)
                     ))
                (progn
                 (redraw)
                 (grdraw pt ptx 2)
                 ;rec ver (frec pt (grread T 8) hor)
                 (SETQ pos (grread T 8)))))
          (if hor
              (cons (car (cadr pos)) (cdr pt))
              (cons (car pt) (cdr (cadr pos))))))
  (REDRAW))

[Do$]

Вместо grread можно использовать dyndraw от А.Ривилиса.

[gomer]

Сообщение от Дима_ интереса ради

оу сколько сетку, не плохо, но у меня притормаживает и по правому клику вылетает ошибка

Сообщение от kp+ Можно подхомутить прогу рисования "облаков" из старой версии ET, там подобное реализовано, код должен быть открытый. только заменить дуги на прямые.

это scetch

[Shoorup]

Дима_, спасибо за программу! Именно эту "хрень" и надо было сделать . Немного только подточить, а смысл правильный.

При задании начальной точки вставляет линию либо нулевой длины либо пару мм. Если просто прямую нарисовать то в начальной точке появится линия с нулевой длиной.

[Дима_]

Сообщение от Shoorup При задании начальной точки вставляет линию либо нулевой длины либо пару мм. Если просто прямую нарисовать то в начальной точке появится линия с нулевой длиной.

Программа "считает" что первый отрезок будет вертикальным (если надо наоборот добавь в блок SETQ - между 7 и 8 строчку "hor T", ну или выбор какое направление - (initget "Гор Верт")(SETQ ... hor (= "Гор" (getkword "Направление[Гор/Верт]"))) - вобщем там сам разберись.

[Shoorup]

Добавил "hor T" и все стало отлично. Спасибо еще раз!

[perpetule]

все стало отлично

Будь добр, выложи код!
Подобное поведение курсора (эмуляция сетки с привязкой), реализовано мной в лоб, путем использования xref c массивом точек, и установке одной из текущих привязок - узел. Работает на всем (перенос, вставка блока, полилиния), реально с мощной машиной до А2-А1, можно и блоком, но блок гораздо тяжелее. Орто при таком приеме можно не включать, шаг между точками (2,5) или любой другой.

[Alexeipost]

А может просто полилинию использовать?

[perpetule]

Смысл всей этой песни, не в полилинии, не в отрезке, не в 3Dполилинии, а в возможности быстро и не напряжно для нервов чертить схемки с шагом, и не абы как. Так можно вовсе обходится без привязок, чертить быстро и аккуратно. Жаль автор топика промолчал.

[Alexeipost]

В автокаде сетка есть. Включается и отключается клавишей F7.
Кстати из описания проблемы в первом посте, мало что понятно.

[perpetule]

В автокаде сетка есть

, а вот привязки (не шаг) к ней нет, шаг же вымораживает все нервы.

[Alexeipost]

Вымораживает! Поэтому и отключен!
Для того чтобы была привязка к сетке можно сделать саму сетку. Делаешь блок с нужным шагом сетки и вставляешь операцию массив. Далее вставляешь этот блок и слой блокируешь. Блок никуда не уедет и не изменится. И сетка и привязка есть! Для удобства можно отключить привязку средней точки.