Создание более длинных линий

Создание более длинных линий · 20.06.2008, 09:49

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

Seryj_Wolk · 23.06.2008, 13:23

Цитата:

Сообщение от alex_AW

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

3- Указываем щелчком базовую точку, смещаем курсор в требуемом направлении и вводим с клавиатуры величину смещения (100).

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

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

zamtmn · 23.06.2008, 18:00

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

VVA · 25.06.2008, 00:28

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 · 25.06.2008, 01:18

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

Seryj_Wolk · 25.06.2008, 09:05

Цитата:

Сообщение от VVA

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

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

zamtmn · 25.06.2008, 09:44

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

VVA · 25.06.2008, 12:09

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

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

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

Seryj_Wolk · 25.06.2008, 12:14

Цитата:

Сообщение от VVA

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

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

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

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

VVA · 25.06.2008, 12:18

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

Seryj_Wolk · 25.06.2008, 12:21

Цитата:

Сообщение от VVA

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

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

VVA · 25.06.2008, 12:27

Цитата:

Сообщение от Seryj_Wolk

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

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

Seryj_Wolk · 25.06.2008, 13:24

Цитата:

Сообщение от VVA

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

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

zamtmn · 25.06.2008, 18:23

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

VVA · 25.06.2008, 19:40

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

Donhuan · 25.06.2008, 23:26

Попробовал соорудить нечто с 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 · 26.06.2008, 02:29

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 · 26.06.2008, 08:11

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

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

dextron3 · 26.06.2008, 08:12

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

Seryj_Wolk · 26.06.2008, 08:55

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

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

zamtmn · 26.06.2008, 09:06

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Создание нового типа линий	Apelsinov	AutoCAD	915	08.07.2022 12:36
Армирование монолитных колонн	Assol	Железобетонные конструкции	38	08.09.2016 19:10
Виснет компьютер при обработке длинных списков	mmax	Программирование	17	28.10.2010 12:17
Создание типа линий для обозначения кабелей связи	Geon	AutoCAD	1	04.11.2007 10:02

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