[Seryj_Wolk]

Подскажите можно ли как то решить следующую проблему.
Регулярно приходится чертить линии которые должны быть короче или длиннее заданного растояния на определенное количество единиц, обычно на 100. Например, есть стена до нее черчу линию, а потом ее нужно удилннять либо укорачивать на 100 единиц. Можно ли как-то автоматизировать этот процесс.
С сеткой всего скорее не получиться, т.к. работать приходится на архитектурных планах, которые трудно подогнать под сетку.

[Profan]

Посмотри сюда:
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=19521dI

[Seryj_Wolk]

Сообщение от Profan Посмотри сюда: http://www.caduser.ru/cgi-bin/f1/board.cgi?t=19521dI

Благодарю, а как это все в автокаде реализовать, не подскажешь, а то я в этом деле полный Profan =)))

[Profan]

Все хорошо расписано здесь:
http://dwg.ru/art/8
P.S. Только не надо себя отождествлять с Profan.

[Seryj_Wolk]

благодарю, с этим я уже разобрался. Интерисует, как все это дело сделать в виде кнопочки.
и еще одна проблема. Эта команда удлиняет линию на заданное значение сразу с двух сторон, а нужно только с одной, это возможно?
С кнопкой тоже разобрался. С командой помогите.

[Profan]

Только с одной стороны:

Код:

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

 
(defun C:L_L ( / delta flag ob line)
    (setvar "CMDECHO" 0)
    (setq delta (getreal "\n Величина удлинения линии (ENTER-отказ): "))
    (if delta
        (progn
        (setq flag T)
        (while flag
        (setq ob (entsel "\n Выберите отрезок (ENTER-завершить): "))
        (if ob
            (progn
            (setq line (entget (car ob)))
                  (if (= (cdr (assoc 0 line)) "LINE")
                  (command "_LENGTHEN" "_delta" delta ob "")
                  ); if
             ); progn
                  (setq flag nil)
          ); if
        ); while
        ); progn
        (princ "\n Отказ.")
    ); if
(princ)
)

[Seryj_Wolk]

Это, к сожалению не то. Удлиняется готовый отрезок заданной длины, что гораздо быстрее сделать мышкой. А нужно чтобы при начертании отрезка он удлинялся (или укорачивался) на заданную длину в одном направлении (в котором он чертится). Вообщем все как по первой ссылке, но там отрезок удлинняется сразу с 2ух сторон. А с одной реально?

[Seryj_Wolk]

Код:

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

;***********l_line.lsp — Отрисовка отрезка с последующим
;                        удлинением его на заданную величину.
;   Freeware. Автор Владимир Громов. Август 2005 г.
;             Небольшая правка. Александр Ривилис.
;   Если величину удлинения задать со знаком минус (-), то
;   вместо удлинения получим укорочение.

(defun C:L_LINE ( / p1 p2 flag_begin delta)
  (setvar "CMDECHO" 0)
  (if (null (numberp L_LINE_DELTA_EXTEND)) (progn
    ;; Задаем начальное значение для удлинения
    (setq L_LINE_DELTA_EXTEND 3.0)
  )) ;; (if (progn
  (while (null flag_begin)
    (initget 128 "У U _ U U")
    (setq p1 (getpoint (strcat "\nНачальная точка линии [Удлинение <"
          (rtos L_LINE_DELTA_EXTEND 2 0)
          ">] (ENTER — завершение): "))
    )
    (cond
      ((= p1 "U")
        (setq delta (getdist (strcat "\nУдлинение <" (rtos L_LINE_DELTA_EXTEND 2 0) ">: ")))
        (if delta (setq L_LINE_DELTA_EXTEND delta))
      )
      ((and (= (type p1) 'STR) (distof p1))
       (setq L_LINE_DELTA_EXTEND (distof p1))
      )
      (T
       (setq flag_begin T)
      )
    ) ;; (cond

  ) ;; endof (while

  (if p1 (progn
    (initget 6)
    (setq p2 (getpoint p1 "\nКонечная точка линии: "))
    (command "_.LINE" "_none" p1 "_none" p2 "")
    (command "_.LENGTHEN" "_delta" L_LINE_DELTA_EXTEND
              "_none" (list (entlast) p1)
              "_none" (list (entlast) p2) "")
  ))
  (princ)
)

вот, но это с 2ух сторон

http://www.caduser.ru/cgi-bin/f1/board.cgi?t=19521dI отсюда

[Profan]

Мой вариант (отрисовка линии с удлинением с конечной стороны):

Код:

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

 
(defun C:L_LINE ( / tn tk delta flag)
    (setvar "CMDECHO" 0)
    (setq delta (getreal "\n Величина удлинения линии (ENTER-отказ): "))
    (if delta
        (progn
        (setq flag T)
        (while flag
        (initget 6)
        (setq tn (getpoint "\n Начальная точка линии (ENTER-завершение): "))
              (if tn
                  (progn
                  (setq tk (getpoint tn "\n Конечная точка линии: "))
                  (command "_LINE" tn tk "")
                  (command "_LENGTHEN" "_delta" delta tk "")
                  ); progn
                  (setq flag nil)
              ); if
        ); while
        ); progn
        (princ "\n Отказ.")
    ); if
(princ)
)

[Seryj_Wolk]

благодарю, работает пока отлично, а усовершенствовать можешь?

[Profan]

Не гарантирую.

[Seryj_Wolk]

Если тебе не трудно, попробуй сделать так чтобы было как в примере. Вводилась сначала длина при нажатии буквы У, и потом она сохранялась по умолчанию. А не так чтобы ее нужно было прописывать каждый раз.
И возможноли сделать, чтобы не нужно было каждый раз вводить команду, а за начальную точку принималась конечная точка предыдущего отрезка. Вобщем как стандартная команда отрезок. Попытаться не мог бы?

[Profan]

Не знаю. Ленивый я стал...

[Seryj_Wolk]

Народ, кто-нибудь еще сталкивался с это й проблемой, есть у кого-то что-нибудь?

[alex_AW]

Я в таких случаях пользуюсь объектной привязкой со смещением.

Опа... Пардон. С первого разу не разглядел, что вопрос по програмированию.

[Seryj_Wolk]

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

а это как? может и без программирования обойтися можно

[SMI]

Сообщение от Seryj_Wolk а это как? может и без программирования обойтися можно

а простая кнопочка в панели с командами автокада...хотя нет, там еще линию надо чертить до которой это все чертить надо....
есть вариант с кнопочкой удлинить.....работает и не только для отрезков....
ну еще можно просто потянуть за конец и ввести нужную длину полную для полилинии, а для отрезка просто длину на которую надо увеличить или уменьшить....

ЗЫ. Названий официальных этих команд не знаю, так что объянила как смогла.....пыталась попонятнее написать)))))

[zamtmn]

По моему в идеале было бы -
рисуем линию как обычно;
нажимаем контрол, тыкаем вторую точку - получаем удлинненную линию, следующая линия начинается из удлиненной точки;
нажимаем контрол+чето еще, тыкаем вторую точку - получаем укороченную линию, следующая линия начинается из укороченной точки;
если ниче не жмем, линии рисуются как обычно
или бругие кнопки заюзать, которые в лиспе удобней обрабатывать. ну и чтоб длину вылета\недострела можно было не выходя из команды менять

[Seryj_Wolk]

Сообщение от SMI а простая кнопочка в панели с командами автокада...хотя нет, там еще линию надо чертить до которой это все чертить надо.... есть вариант с кнопочкой удлинить.....работает и не только для отрезков.... ну еще можно просто потянуть за конец и ввести нужную длину полную для полилинии, а для отрезка просто длину на которую надо увеличить или уменьшить.... ЗЫ. Названий официальных этих команд не знаю, так что объянила как смогла.....пыталась попонятнее написать)))))

да вообщето суть вопроса и стоит в том, чтобы каждый раз вот так вот не делать =)))

Сообщение от zamtmn По моему в идеале было бы - рисуем линию как обычно; нажимаем контрол, тыкаем вторую точку - получаем удлинненную линию, следующая линия начинается из удлиненной точки; нажимаем контрол+чето еще, тыкаем вторую точку - получаем укороченную линию, следующая линия начинается из укороченной точки; если ниче не жмем, линии рисуются как обычно или бругие кнопки заюзать, которые в лиспе удобней обрабатывать. ну и чтоб длину вылета\недострела можно было не выходя из команды менять

да, это было бы вообще круто, только ктобы это еще смог в жизнь воплотить...

[alex_AW]

Сообщение от Seryj_Wolk а это как? может и без программирования обойтися можно

Если без програмирования, то порядок дейсвий такой:
1- Выбираем команду (_line)
2- На панели объектных привязок или в контекстном меню (shift+ правая кнопка) выбираем привязку со смещением
3- Указываем щелчком базовую точку, смещаем курсор в требуемом направлении и вводим с клавиатуры величину смещения (100).

В результате получим первую точку линии, отстоящую от указанной точки на заданную величину.
и т.д.

[Seryj_Wolk]

Сообщение от alex_AW Если без програмирования, то порядок дейсвий такой: 1- Выбираем команду (_line) 2- На панели объектных привязок или в контекстном меню (shift+ правая кнопка) выбираем привязку со смещением 3- Указываем щелчком базовую точку, смещаем курсор в требуемом направлении и вводим с клавиатуры величину смещения (100). В результате получим первую точку линии, отстоящую от указанной точки на заданную величину. и т.д.

респект, не знал такого

[zamtmn]

>>да, это было бы вообще круто, только ктобы это еще смог в жизнь воплотить...
Уважаемые лисповцы и арикссовцы, не не проходите мимо, этим вы здорово облегчите жизнь тем кто кладет свои коммуникации вдоль стенок, вам будет респект и уважуха))

[VVA]

zamtmn, Если я правильно все понял

Код:

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

;;;
;;;Теперь на запрос " Конечная точка линии или (+ - 0) [уДлинить/уКоротить/Ноль] <выход>: "
;;;Можно набирать с клавиатуры:+ (удлинить); - (укоротить); 0 (сбросить на 0)
(defun C:LL ( / tn tk delta flag)
  (setvar "CMDECHO" 0)
  (if (null *LL_LENGTH*)(setq *LL_LENGTH* (getvar "USERR5")))
  (princ "\nАбсолютная величина удлинения линии < ")
  (princ *LL_LENGTH*)(princ " >: ")
  (initget "Удлинение Length _L L")
  (if (null(setq delta (getdist)))(setq delta *LL_LENGTH*))
  (setvar "USERR5" (setq *LL_LENGTH* delta))
  (initget 1)
  (setq tn (getpoint "\n Начальная точка линии : "))
  (setvar "USERR4" 0)
  (initget "уДлинить уКоротить Ноль + - 0 = _+ - 0 + - 0 +")
  (while
    (progn
      (princ "\nТекущее удлинение = ")(princ (getvar "USERR4"))(princ " ")
    (setq tk (getpoint tn " Конечная точка линии или (+ - 0) [уДлинить/уКоротить/Ноль] <выход>: "))
    )
    (cond
      ((= tk "0")(setvar "USERR4" 0))
      ((or (= tk "+")(= tk "="))(setvar "USERR4" (abs(getvar "USERR5"))))
      ((= tk "-")(setvar "USERR4" (* -1.0 (abs(getvar "USERR5")))))
      ((listp tk)
       (setq tk (polar tn (angle tn tk)(+ (distance tn tk) (getvar "USERR4"))))
       (command "_.LINE" "_non" tn "_non" tk "")
       (setq tn tk)
       )
       (t nil)
      )
  (initget "уДлинить уКоротить Ноль + - 0 = _+ - 0 + - 0 +")
    )
  (princ)
  )

По поводу "нажал ctrl - +100" "отпустил ctrl - 0" можно задействовать клавиши временной замены. Там можно вставлять макросы на нажатие и отпускание клавиши. В команде абсолютное значение хранится в пользовательской переменной USERR5 (например 100), а текущее - в переменной USERR4 (например 100, 0 , -100)
Макросы могут быть такого вида:
для увеличения нажатие - (setvar "USERR4" (abs(getvar "USERR5")))
для увеличения отпуск - (setvar "USERR4" 0)
для уменьшения нажатие - (setvar "USERR4" (* -1.0 (abs(getvar "USERR5"))))
для уменьшения отпуск - (setvar "USERR4" 0)
Завтра попробую. Должно получится

[VVA]

С помощью клавиш временной замены не получилось, остается с помощью опций

[Seryj_Wolk]

Сообщение от VVA С помощью клавиш временной замены не получилось, остается с помощью опций

большущий респект тебе. Ты не представляешь как помог. Этот код уже супер, там в принципе и клавиши не нужны. С клавишами цены ему не будет =)))

[zamtmn]

VVA
Огромное спасибо! работает.
В лиспе больше нет возможности организовать диалог с пользователем во время работы кроме как командная строка? может можно не модальное окошко вывести с парой чекбоксов если с клавиатурой невыходит?

[VVA]

Немного модифицировал #23 Теперь в ответ на запрос
" Конечная точка линии или (+ - 0) [уДлинить/уКоротить/Ноль] <выход>: "
Можно набирать с клавиатуры:

• + (удлинить)
• - (укоротить)
• 0 (сбросить на 0)

Если задействовать numpad получается быстрее
zamtmn, Организовать диалог в Лиспе можно с помощью диалоговых окон (DCL). Однако в плане организации диалога DCL остался на примитивном уровне. Как говорится: "Овчинка выделки не стоит".

[Seryj_Wolk]

Сообщение от VVA Немного модифицировал #23 Теперь в ответ на запрос " Конечная точка линии или (+ - 0) [уДлинить/уКоротить/Ноль] <выход>: " Можно набирать с клавиатуры: + (удлинить) - (укоротить) 0 (сбросить на 0) Если задействовать numpad получается быстрее zamtmn, Организовать диалог в Лиспе можно с помощью диалоговых окон (DCL). Однако в плане организации диалога DCL остался на примитивном уровне. Как говорится: "Овчинка выделки не стоит".

вообще круто =)))
а можешь сделать версию где вместо + нужно нажимать =, так удобнее для меня. Или лучше скажи что нужно поменять. Просто везде заменить + на =???

[VVA]

Seryj_Wolk, Нужный текст в #23 выделил красным. Осталось везде аккуратно заменить + на =. Но мне кажется использовать NumPAD (это там, где клавиша Num Lock) гораздо удобнее.

[Seryj_Wolk]

Сообщение от VVA Seryj_Wolk, Нужный текст в #23 выделил красным. Осталось везде аккуратно заменить + на =. Но мне кажется использовать NumPAD (это там, где клавиша Num Lock) гораздо удобнее.

благодарю.
Насчет нумпада согласен, но если работаешь не на ноутбуке

[VVA]

Сообщение от Seryj_Wolk благодарю. Насчет нумпада согласен, но если работаешь не на ноутбуке

Еще раз модифицировал #23. Тепеть + и = воспринимаются как +

[Seryj_Wolk]

Сообщение от VVA Еще раз модифицировал #23. Тепеть + и = воспринимаются как +

еще раз благодарю

[zamtmn]

VVA
т.е. от нажатия enter никак не уйти?

[VVA]

По крайней мере я не знаю как. Есть еще вариант с grread, но признанный мастер в этой области Евгений Елпанов.

[Donhuan]

Попробовал соорудить нечто с grread. В принципе у меня работает.

Код:

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

;;;Теперь на запрос " Конечная точка линии или (+ - 0) [уДлинить/уКоротить/Ноль] <выход>: "
;;;Можно набирать с клавиатуры:+ (удлинить); - (укоротить); 0 (сбросить на 0); Enter - выйти, без подтверждения опции вводом
;;;Минус - работает только привязка к узлам. Привязка не визуализируется.
(defun C:LL ( / tn tk delta flag)
  (setvar "CMDECHO" 0)
  (if (null *LL_LENGTH*)(setq *LL_LENGTH* (getvar "USERR5")))
  (princ "\nАбсолютная величина удлинения линии < ")
  (princ *LL_LENGTH*)(princ " >: ")
  (initget "Удлинение Length _L L")
  (if (null(setq delta (getdist)))(setq delta *LL_LENGTH*))
  (setvar "USERR5" (setq *LL_LENGTH* delta))
  (initget 1)
  (setq tn (getpoint "\n Начальная точка линии : "))
  (setvar "USERR4" 0)
  (while
    (progn
      (princ "\nТекущее удлинение = ")(princ (getvar "USERR4"))(princ " ")
      (princ "\n Конечная точка линии или (+ - 0) [уДлинить/уКоротить/Ноль] <выход>: ")
      (while
	(progn
	  (setq tk (grread t 4 0))
	  (redraw)
	  (cond
	    ((= (cadr tk) 13) (not (setq tk "enter")))
	    ((= (cadr tk) 43) (not (setq tk "+")))
	    ((= (cadr tk) 45) (not (setq tk "-")))
	    ((= (cadr tk) 48) (not (setq tk "0")))
	    ((and (listp (cadr tk)) (= (car tk) 3)) (not (setq tk (if (osnap (cadr tk) "_end")
					                            (osnap (cadr tk) "_end")
					                            (cadr tk)
					                          ))))
	    (t (not (grdraw tn (cadr tk) 3 1)))
	  )
	)
      )
      (if (= "enter" tk) nil t)
    )
    (cond
      ((= tk "0")(setvar "USERR4" 0))
      ((or (= tk "+")(= tk "="))(setvar "USERR4" (abs(getvar "USERR5"))))
      ((= tk "-")(setvar "USERR4" (* -1.0 (abs(getvar "USERR5")))))
      ((listp tk)
       (setq tk (polar tn (angle tn tk)(+ (distance tn tk) (getvar "USERR4"))))
       (command "_.LINE" "_non" tn "_non" tk "")
       (setq tn tk)
       )
       (t nil)
      )
  (initget "уДлинить уКоротить Ноль + - 0 = _+ - 0 + - 0 +")
    )
  (princ)
  )

[VVA]

Donhuan, Все верно, только на мой взгляд потерь больше (визуализация привязки, полярная трассировка, горячие клавиши F8 например) чем приобретений (не нужно жать enter)
Возникла идея задействовать для этих целей левую руку, и клавишу пробел вместо enter. Для того, чтобы не тянуться за определенными кнопками для позиций + - 0 выделены ряды кнопок (на клаве из как раз 3)
Итак:
+ - равносильно нажатию любой кнопки из ряда QWERTY в любой раскладке
- - равносильно нажатию любой кнопки из ряда ZXCVBN в любой раскладке
0 - все остальное (ASDFGH и цифры)
И сама реализация

Код:

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

;;;
;;;Теперь на запрос " Конечная точка линии или (+ - 0) [уДлинить/уКоротить/Ноль] <выход>: "
;;;Можно набирать с клавиатуры:+ (удлинить); - (укоротить); 0 (сбросить на 0)
(defun C:LL ( / tn tk delta lst_+ lst_- )
  (setvar "CMDECHO" 0)
  (setq lst_+ '("+" "=" "Q" "W" "E" "R" "T" "Y" "U" "I" "O" "P" "{" "}" "[" "]"
		"Й" "Ц" "У" "К" "Е" "Н" "Г" "Ш" "Щ" "З" "Х" "Ъ"))
  (setq lst_- '("-" "Z" "X" "C" "V" "B" "N" "M" "," "." "/" "<" ">" "?" 
		"Я" "Ч" "С" "М" "И" "Т" "Ь" "Б" "Ю"))
  (if (null *LL_LENGTH*)(setq *LL_LENGTH* (getvar "USERR5")))
  (princ "\nАбсолютная величина удлинения линии < ")
  (princ *LL_LENGTH*)(princ " >: ")
  (initget "Удлинение Length _L L")
  (if (null(setq delta (getdist)))(setq delta *LL_LENGTH*))
  (setvar "USERR5" (setq *LL_LENGTH* delta))
  (initget 1)
  (setq tn (getpoint "\n Начальная точка линии : "))
  (setvar "USERR4" 0)
  (initget 128 "уДлинить уКоротить Ноль + - 0 = _+ - 0 + - 0 +")
  (while
    (progn
      (princ "\nТекущее удлинение = ")(princ (getvar "USERR4"))(princ " ")
    (setq tk (getpoint tn " Конечная точка линии или (+ - 0) [уДлинить/уКоротить/Ноль] <выход>: "))
    )
    (cond ((and (= (type tk) 'STR) ;_  +
		(setq tk (substr (strcase tk) 1 1))
		(member tk lst_+)
		)
	   (setvar "USERR4" (abs(getvar "USERR5")))
	   )
	  ((and (= (type tk) 'STR) ;_  -
		(setq tk (substr (strcase tk) 1 1))
		(member tk lst_-)
		)
	   (setvar "USERR4" (* -1.0 (abs(getvar "USERR5")))))
	  ((listp tk)
	   (setq tk (polar tn (angle tn tk)(+ (distance tn tk) (getvar "USERR4"))))
	   (command "_.LINE" "_non" tn "_non" tk "")
	   (setq tn tk)
	   )
	  (t (setvar "USERR4" 0)))
  (initget 128 "уДлинить уКоротить Ноль + - 0 = _+ - 0 + - 0 +")
    )
  (princ)
  )

PS Старый вариант через опции или 0 + - тоже остался
PPS Потестировал с левой рукой. Получалось работать не глядя на клавиатуру.

[dextron3]

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

Что я имел ввиду что для каждого масштаба свое удлинение, можно просто вставить коэфициент удлинения к примеру...

[dextron3]

Seryj_Wolk, а в электрике где можно использовать данный лисп?

[Seryj_Wolk]

2 dextron3
не нужно ничего удлинять с 2ух сторон. Цель изначально была: удлинение с одной стороны без всяких масштабов на заданное количество единиц.
Благодаря этому лиспу скорость работы по начертанию электропроводок вдоль стен возрастет, считаю, раза в 2 как минимум (особенно если много поворотов). Если ты никогда не сталкивался с такой задачей, то ты врятли поймешь все удобство этого лиспа =))). Если нужно, то на удлинение начальной точки есть ссылка в начале темы.

2 VVA
вообще отлично!!!

[zamtmn]

Donhuan
спасибо, но действительно без трассировки/привязки неполучится работать
VVA
последний вариант самый приемлимый, получается быстро переключать режимы
dextron3
В электрике - класть кабеля вдоль стенок с отступом

[dextron3]

zamtmn, можешь видеоролик выложить, я иногда просто электрику делаю, там в принципе схематично же проводка рисуется?, как и вотоплении,....


1. Считаешь ли ты потом длину нарисованных линий?
2. Как считаешь провода которые идут вертикально
3. Какие присадки для автокада еще можно использовать для электрика

Offtop: PS Просто у меня сестра электрик...

[Seryj_Wolk]

Сообщение от dextron3 zamtmn, можешь видеоролик выложить, я иногда просто электрику делаю, там в принципе схематично же проводка рисуется?, как и вотоплении,.... 1. Считаешь ли ты потом длину нарисованных линий? 2. Как считаешь провода которые идут вертикально 3. Какие присадки для автокада еще можно использовать для электрика Offtop: PS Просто у меня сестра электрик...

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

1. Длина конечно же считается.
2. Вертикальные провода считаешь так же как и горизонтальные, но только без плана =)

[zamtmn]

dextron3
нафиг видео. Подводишь курсор к стенке на привязку перпендикуляр - линия не дорисовывается на 1 мм, потом к следующей (перпендикулярной предидущей) и т.д. когда надо пройти сквозь стенку - линия наоборот длинее рисуется. в итоге ты аккуратно обошол все стенки и трасса сдвинута от них на 1 мм.

1. для шлейфов пожарной сигнализации - не считаю, считает програмка по координатам датчиков и соединительных коробок. отдельные кабели которых много меньше шлейфов - считаю на глаз или суммарную длину отрезков\полилиний.
2. добавляю ко всем кабелям\проводам скокото метров условно. в особо тяжких случаюх считаю точно с учетом всех подъемов опусков.
3. программ много, но реальной пользы от большинства мало. глянь продукты консистент софтвар тамже где качал тулпак

[dextron3]

zamtmn, про программу по координатам датчиков заинтересовало, есть ли точный алгоритм для подсчета проводов по координатам?

К примеру алгоритм работы программы:

1. Укажите координаты щитка
2. Укажите высоту монтажа
3. Укажите выключатели
4. Укажите высоту выключателей
5. Укажите остветительные приборы
6. Укажите высоту осветительных приборов
7. Укажите розетки
8. Кажите высоту розеток

Результат выдается в виде:

Количества проводов с определнным сечением
Количества светильников
Количества разеток
Количества выключателей

если ткое возможно то скажите...

[Seryj_Wolk]

Сообщение от dextron3 zamtmn, про программу по координатам датчиков заинтересовало, есть ли точный алгоритм для подсчета проводов по координатам? К примеру алгоритм работы программы: 1. Укажите координаты щитка 2. Укажите высоту монтажа 3. Укажите выключатели 4. Укажите высоту выключателей 5. Укажите остветительные приборы 6. Укажите высоту осветительных приборов 7. Укажите розетки 8. Кажите высоту розеток Результат выдается в виде: Количества проводов с определнным сечением Количества светильников Количества разеток Количества выключателей если ткое возможно то скажите...

дану бред...

[zamtmn]

dextron3
ты так запаришся всё указывать)). в пожарке проще, датчики в шлейфе пронумерованы, провод обычно идет от датчика к датчику по кратчайшей траектории паралельно стенам. т.е. зная координаты датчиков и соединительных коробок можно посчитать наикратчайшую длину шлейфа, если провод идет не по кратчайшей траектории, то нужно прикинуть скока метров добавить. глянь тут чтоб понятней было http://zcad.h17.ru/bpodcl/bpodcl.html

[dextron3]

ну я так предположил, хотел спросить есть специальны лисп программки именно для электриков которые не используют други разделы?

[Seryj_Wolk]

Сообщение от VVA 0 - все остальное (ASDFGH и цифры)

Будь добр, подправь вот этот момент. А то получается косяк. Поясняю. Начинаю чертить линию. Задаю абсолютною величину удлинения. Тыкаю начальную точку, а следующую точку я тыкаю не руками, а ввожу с клавиатуры цифровое значение, и ничего не получается =((( Автокад воспринимает это как "Текущее удлинение = 0.0". Можно подкоректировать?

[VVA]

*** Удалено ***
Вопрос понял. Буду думать.

[Donhuan]

Разбил запрос параметров и ввод точки на два этапа:
- сначала дается возможность определиться какой формат отрезка нужен.
- переход непосредственно к вводу точки происходит после нажатия правой кнопки мыши.
Конечно возрастает в 2 раза число нажатий на кнопки мыши, но иначе решить проблему можно по-моему только написав свою программу обработки привязок, а это я наверное не потяну еще

Код:

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

;;;Теперь на запрос " Выберите: (+ - 0 RightMouth) [уДлинить/уКоротить/Ноль/Следующая точка] <выход>: "
;;;Можно набирать с клавиатуры:+ (удлинить); - (укоротить); 0 (сбросить на 0); RightMouth (переход к вводу точи); Enter - выйти, 
;;;без подтверждения опции вводом
;;;Минус - возросло в 2 раза число кликов мышью.
(defun C:LL ( / tn tk delta flag)
  (setvar "CMDECHO" 0)
  (if (null *LL_LENGTH*)(setq *LL_LENGTH* (getvar "USERR5")))
  (princ "\nАбсолютная величина удлинения линии < ")
  (princ *LL_LENGTH*)(princ " >: ")
  (initget "Удлинение Length _L L")
  (if (null(setq delta (getdist)))(setq delta *LL_LENGTH*))
  (setvar "USERR5" (setq *LL_LENGTH* delta))
  (initget 1)
  (setq tn (getpoint "\n Начальная точка линии : "))
  (setvar "USERR4" 0)
  (while
    (progn
      (princ "\nТекущее удлинение = ")(princ (getvar "USERR4"))(princ " ")
      (princ "\n Выберите: (+ - 0 RightMouth) [уДлинить/уКоротить/Ноль/Следующая точка] <выход>: ")
      (while
	(progn
	  (setq tk (grread t 4 0))
	  (redraw)
	  (cond
	    ((= (cadr tk) 13) (not (setq tk "enter")))
	    ((= (cadr tk) 43) (not (setq tk "+")))
	    ((= (cadr tk) 45) (not (setq tk "-")))
	    ((= (cadr tk) 48) (not (setq tk "0")))
	    ((= (car tk) 25) (not (setq tk (getpoint tn " Конечная точка линии: "))))
	    ((= (car tk) 5) (not (grdraw tn (cadr tk) 3 1)))
	    (t)
	  )
	)
      )
      (if (= "enter" tk) nil t)
    )
    (cond
      ((= tk "0")(setvar "USERR4" 0))
      ((or (= tk "+")(= tk "="))(setvar "USERR4" (abs(getvar "USERR5"))))
      ((= tk "-")(setvar "USERR4" (* -1.0 (abs(getvar "USERR5")))))
      ((listp tk)
       (setq tk (polar tn (angle tn tk)(+ (distance tn tk) (getvar "USERR4"))))
       (command "_.LINE" "_non" tn "_non" tk "")
       (setq tn tk)
       )
       (t nil)
      )
  (initget "уДлинить уКоротить Ноль + - 0 = _+ - 0 + - 0 +")
    )
  (princ)
)

P.S.
Исправил ошибку в прошлом коде - вылет программы при клике на панелях AutoCad.
Могут быть проблемы с правой кнопкой мыши. У меня она возвращает код 25, но в описании функции grread этот код не упомянут, может другие мыши другой код будут возвращать.
Если будет такой косяк, то можно заменить:

Код:

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

(= (car tk) 25)

на

Код:

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

(= (car tk) 3)

, будет переходить к вводу точки по левому клику.

[Seryj_Wolk]

2 VVA
ну как процесс? получилось чего нибудь?

2 Donhuan

Разбил запрос параметров и ввод точки на два этапа:

чего то я не понял, не мог бы поподробнее объяснить что за изменения

[VVA]

Сообщение от Seryj_Wolk 2 VVA ну как процесс? получилось чего нибудь?

Что делать понятно было с самого начала. Вопрос КАК ДЕЛАТЬ?
Если оставить арбитражный ввод (initget 128 ...), то запрос точки будет возвращать ввиде строки все, что ввел на клавиатуре (типа "@100<45" и т.п.). Дальше сам расхлебывай, чего не хочется. Если его исключить, то будет длинный initget со всеми возможными клавишами. Наверное, сделаю так: уберу арбитражный ввод и сокращу набор клавиш.
Исходя из анатомии левой руки удобнее нажимать клавиши QWERT чем OP{}.
Т.е. оставлю WERTYUI, SDFGHJ, XCVBN в русской и английской раскладках. Initget должен это "съесть"

[Seryj_Wolk]

Сообщение от VVA Что делать понятно было с самого начала. Вопрос КАК ДЕЛАТЬ? Если отавить арбитражный ввод (initget 128 ...), то запрос точки будет возвращать ввиде строки все, что ввел на клавиатуре (типа "@100<45" и т.п.). Дальше сам расхлебывай, чего не хочется. Если его исключить, то будет длинный initget со всеми возможными клавишами. Наверное, сделаю так: уберу арбитражный ввод и сокращу набор клавиш. Исходя из анатомии левой руки удобнее нажимать клавиши QWERT чем OP{}. Т.е. оставлю WERTYUI, SDFGHJ, XCVBN в русской и английской раскладках. Initget должен это "съесть"

давай, ждем

[Donhuan]

Сообщение от Seryj_Wolk 2 Donhuan чего то я не понял, не мог бы поподробнее объяснить что за изменения

Чего непонятного, вроде же все описал. Сначала определяешься хочешь ты удлинить, укоротить, выйти, потом жмешь правую кнопку мыши и переходишь к вводу точки (с клавиатуры или левой кнопкой мыши со всеми привязками). Запусти программу и посмотри.

[VVA]

Получилось пока так

Код:

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

;;;
;;;Теперь на запрос " Конечная точка линии или (+ - 0) [уДлинить/уКоротить/Ноль] <выход>: "
;;;Можно набирать с клавиатуры:+ (удлинить); - (укоротить); 0 (сбросить на 0)
(defun C:LL ( / tn tk delta)
  (setvar "CMDECHO" 0)
  (if (null *LL_LENGTH*)(setq *LL_LENGTH* (getvar "USERR5")))
  (princ "\nАбсолютная величина удлинения линии < ")
  (princ *LL_LENGTH*)(princ " >: ")
  (initget "Удлинение Length _L L")
  (if (null(setq delta (getdist)))(setq delta *LL_LENGTH*))
  (setvar "USERR5" (setq *LL_LENGTH* delta))
  (initget 1)
  (setq tn (getpoint "\n Начальная точка линии : "))
  (setvar "USERR4" 0)
  (initget "Удлинить укороТить нОль + - = 0 W E R T Y U I Ц У К Е Н Г Ш
                S D F G H J K Ы В А П Р О Л X C V B N M Ч С М И Т Ь
                _+ - 0 + - 0 + + + + + + + + + + + + + + +
                0 0 0 0 0 0 0 0 0 0 0 0 0 0 - - - - - - - - - - - -")
  (while
    (progn
      (princ "\nТекущее удлинение = ")(princ (getvar "USERR4"))(princ " ")
    (setq tk (getpoint tn " Конечная точка линии или (+ - 0) [Удлинить/укороТить/нОль] <выход>: "))
    )
    (cond ((= tk "+")
	   (setvar "USERR4" (abs(getvar "USERR5")))
	   )
	  ((= tk "-")
	   (setvar "USERR4" (* -1.0 (abs(getvar "USERR5")))))
	  ((listp tk)
	   (setq tk (polar tn (angle tn tk)(+ (distance tn tk) (getvar "USERR4"))))
	   (command "_.LINE" "_non" tn "_non" tk "")
	   (setq tn tk)
	   )
	  (t (setvar "USERR4" 0)))
    (initget "Удлинить укороТить нОль + - = 0 W E R T Y U I Ц У К Е Н Г Ш
                S D F G H J L Ы В А П Р О Л X C V B N M Ч С М И Т Ь
                _+ - 0 + - 0 + + + + + + + + + + + + + + +
                0 0 0 0 0 0 0 0 0 0 0 0 0 0 - - - - - - - - - - - -")

    )
  (princ)
  )

Немного сократил кол-во допустимых клавиш
увеличить: WERTYUIЦУКЕНГШ+=
уменьшить: XCVBNMЧСМИТЬ-
ноль: SDFGHJKЫВАПРОЛ0(ноль)

[Seryj_Wolk]

2 VVA
я тут немного пороботал и как кому удобней не знаю, может еще и привычка нужна. Но я привык работать на Enter и мне в принципе хватает 0, -, =. Но это кто как больше привык. Не тянутся что-то у меня руки к пробелы =))

[dextron3]

Seryj_Wolk, сегодня показал лисп электрику, сказали что это баловство, ведь обычно схематично показывают, ну пусть делают тапорную работу и дальше,

PS а у меня вопрос а нельзя рисовать полилинией и потом один раз офсетнуть?

[VVA]

Не тянутся что-то у меня руки к пробелы =))

К пробелу должны тянуться пальцы , вернее один - большой левой руки.

[zamtmn]

Сообщение от dextron3 Seryj_Wolk, сегодня показал лисп электрику, сказали что это баловство, ведь обычно схематично показывают, ну пусть делают тапорную работу и дальше, PS а у меня вопрос а нельзя рисовать полилинией и потом один раз офсетнуть?

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

нельзя, офсетить нужно будет в разные стороны

[Seryj_Wolk]

Сообщение от dextron3 Seryj_Wolk, сегодня показал лисп электрику, сказали что это баловство, ведь обычно схематично показывают, ну пусть делают тапорную работу и дальше,

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

[Seryj_Wolk]

2 VVA
Еще раз благодарю за лисп, народоваться и начертиться никак не могу =)