[Jek30]

Может кто-нибудь сможет написать лисп для вставки прямоугольника (хотябы черновой вариан)!
На форумах искал подобное, но там всё не то.
В общем если кому-нибудь будет интересно, то суть будущего лиспа в следующем:
(Например есть трасса кабельной линии, а на пересечениях этой трассы с коммуникациями нужно прокладывать кабель в трубах, а пересечений всегда много). Так вот. На плане это выглядит так:
В виде кабеля имеется полилиния с множеством углов поворотов в различном направлении, а в некоторых местах на эту линию нужно вставить прямоугольнички разных длин (т.е. трубы через коммуникации) и естественно симметрично и параллельно данной поллилинии.
Нужно чтоб нажал кнопку лиспа и вышло бы например указание "Укажите точку вставки прямоугольника (трубы)"
После указания точки вставки указывается вторая точка, которая определяет длину (в данном случае половину длины) прямоугольника и его направление (по длинной стороне).
После указания этих двух точек (симметрично той поллилинии, на которой мы выбрали точку вставки), от первой указанной точки (точки вставки) у нас должен отрисоваться от собственного центра, один прямоугольник, в обе стороны от первой указанной точки, а длиной (т.е. половиной) и направлением по второй указанной точке.
Цвет прямоугольника-синий. Ширина - 0,4 мм (а длину и направление указываем второй точкой). Тип линии-пунктир . Толщина - 0,35 мм.
Данный Лисп думаю многим бы пригадился, тем кто прокладывает на "бумаге" различные сети. К тому же я думаю что ширину прямоугольника, толщину, тип и цвет линии каждый может потом сам переписать в коде лиспа под себя.
Заранее спасибо!!!

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

Nike, про привязки забыл. И вообще, на фига пользоваться командами, когда можно и без оных обойтись? ))

[Jek30]

Сообщение от Nike Как-то так:

Вот это, Да! Все работает как я и хотел! Спасибо Большое!!
А могу ли я тебя попросить пожалуйста еще добавить в лисп такие фишки, чтоб можно было бы менять слой, толщину, цвет и тип линии прямоугольника? (всмысле чтобы эти фишки были только в самом коде лиспа и все, в автокаде не нужны (для этого всплывающие (рамки-спрашивалки)))

[Nike]

Сообщение от Jek30 Спасибо Большое!!

Не за что. Самому подобная фигня была нужна, поэтому и ввязался.

Сообщение от Jek30 А могу ли я тебя попросить пожалуйста еще добавить в лисп такие фишки, чтоб можно было бы менять слой, толщину, цвет и тип линии прямоугольника?

Ниасилю. Или долго буду возиться. А потом ещё Крыс опять засмеёт. Я в лиспе круглый нуль.

Сообщение от Кулик Алексей aka kpblc И вообще, на фига пользоваться командами, когда можно и без оных обойтись? ))

Чего?

[Jek30]

Сообщение от Nike Не за что. Самому подобная фигня была нужна, поэтому и ввязался.

А ты что тоже какие-то сети проектируешь?

Сообщение от Nike Ниасилю. Или долго буду возиться. А потом ещё Крыс опять засмеёт. Я в лиспе круглый нуль.

Это ты то, ноль???! Такую штуку смастерил!! Я бы не сказал. Вот я, да, ноль.
А ты что с Талдыка чтоли?

Жаль что нет желания мою доработку сделать, так бы ваще лисп огонь получился бы. Ну ладно тогда просто можно в автокаде выставить нужные текущий слой, цвет... и прямоугольник построится в нужном стиле. Спасибо еще раз большое!!!

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

Код:

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

 (defun f1 (/ start end ang dist)
  (if (and (= (type
                (setq start (vl-catch-all-apply (function (lambda () (getpoint "\nStart point <Cancel> : ")))))
              ) ;_ end of type
              'list
           ) ;_ end of =
           start
           (= (type
                (setq end (vl-catch-all-apply (function (lambda () (getpoint start "\nEnd point <Cancel> : ")))))
              ) ;_ end of type
              'list
           ) ;_ end of =
           end
      ) ;_ end of and
    (progn
      (setq ang  (angle start end)
            dist 0.2
      ) ;_ end of setq

      (entmakex (append '((0 . "LWPOLYLINE")
                          (100 . "AcDbEntity")
                          (67 . 0)
                          (100 . "AcDbPolyline")
                          (90 . 4)
                          (70 . 1)
                         )
						 (list (cons 8 "ИмяСлоя")
					;	 (cons 6 "ИмяЗагруженногоТипаЛинии")
						 (cons 62 2) ; номер цвета
						 (cons 370 aclnwt200) ; вес линии
						 (cons 48 1) ; масштаб линии
						 (cons 43 0) ; установленная глобальная ширина полилинии
						 )
                        (mapcar (function (lambda (x)
                                            (cons 10 x)
                                          ) ;_ end of LAMBDA
                                ) ;_ end of function
                                (list (polar start (+ ang (* pi 0.5)) dist)
                                      (polar start (- ang (* pi 0.5)) dist)
                                      (polar end (- ang (* pi 0.5)) dist)
                                      (polar end (+ ang (* pi 0.5)) dist)
                                ) ;_ end of list
                        ) ;_ end of mapcar
                ) ;_ end of append
      ) ;_ end of entmakex
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun

[Nike]

Еще вариант

Код:

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

 (defun C:as ( / ptc dir wide ang high)
  (setq	ptc   (getpoint "\nТочка вставки : ")
	dir (getpoint ptc "\nНаправление : ")
	wide  (* 2 (distance ptc dir))
	ang (/ (* (angle ptc dir) 180) PI) 
	high  (getdist "\nШирина <0.4>: ")
	)
(if (= high nil)
    (setq high 0.4)
  )
  (setq	
	hwide (/ wide 2.0)
	hhigh (/ high 2.0)
	ptll  (list (- (car ptc) hwide) (- (cadr ptc) hhigh))
	ptur  (list (+ (car ptll) wide) (+ (cadr ptll) high))
  )
 (command "_.pline"	   ptll	   "_w"	   "0"	   "0"	   ".x"
	   ptur	   ".y"	   ptll	   ptur	   ".x"	   ptll	   ".y"
	   ptur	   "_c"
	  )
  (command "_rotate" (entlast) "" ptc ang "")
)

[Jek30]

Сообщение от Кулик Алексей aka kpblc Другой вариант. Тоже не фонтан, конечно

Да, тоже хороший, правда он чертит не от середины, а от края до края прямоугольника.
Вот бы еще закинуть бы как то эти строчки в лисп "Nike"↓
(list (cons 8 "ИмяСлоя")
; (cons 6 "ИмяЗагруженногоТипаЛинии")
(cons 62 2) ; номер цвета
(cons 370 aclnwt200) ; вес линии
(cons 48 1) ; масштаб линии
(cons 43 0) ; установленная глобальная ширина полилинии
)


----- добавлено через ~6 мин. -----

Сообщение от Nike Еще вариант

Автокад почему то пишет : "Не верно сформированный список на входе"

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

Jek30, советую попробовать разобраться самостоятельно. Подсказка: если использовать код от Nike, то работать с системными переменными.
Nike, кажется, ты забыл про "/" в параметрах команды.

[Jek30]

Сообщение от Кулик Алексей aka kpblc Jek30, советую попробовать разобраться самостоятельно. Подсказка: если использовать код от Nike, то работать с системными переменными.

Это копец как тяжело для меня, но я постараюсь. А за помощь Спасибо большое!
И всех остальных тоже благодарю: МишаИнженер и Nike. Спасибо!!!

[Nike]

Сообщение от Jek30 Вот бы еще закинуть бы как то эти строчки в лисп "Nike"↓ (list (cons 8 "ИмяСлоя") ; (cons 6 "ИмяЗагруженногоТипаЛинии") (cons 62 2) ; номер цвета (cons 370 aclnwt200) ; вес линии (cons 48 1) ; масштаб линии (cons 43 0) ; установленная глобальная ширина полилинии

добавь в конце что-то типа
(command "_chprop" (entlast) "" "_layer" "0" "_color" 5 "_Lweight" "2" "_Ltscale" 2 "_Ltype" "ACAD_ISO02W100" "")

и черточку в параметрах команды
(defun C:as ( / ptc dir wide ang high)

Код:

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

 (defun C:as ( / ptc dir wide ang high)
  (setq	ptc   (getpoint "\nÒî÷êà âñòàâêè : ")
	dir (getpoint ptc "\nÍàïðàâëåíèå : ")
	wide  (* 2 (distance ptc dir))
	ang (/ (* (angle ptc dir) 180) PI) 
	high  (getdist "\nØèðèíà <0.4>: ")
	)
(if (= high nil)
    (setq high 0.4)
  )
  (setq	
	hwide (/ wide 2.0)
	hhigh (/ high 2.0)
	ptll  (list (- (car ptc) hwide) (- (cadr ptc) hhigh))
	ptur  (list (+ (car ptll) wide) (+ (cadr ptll) high))
  )
  
  (setvar "plinewid" 0.0)
  (command "_.PLINE"	   ptll	   "_W"	   "0"	   "0"	   ".X"
	   ptur	   ".Y"	   ptll	   ptur	   ".X"	   ptll	   ".Y"
	   ptur	   "_C"
	  )
  (command "_ROTATE" (entlast) "" ptc ang "")
  (command "_chprop" (entlast) "" "_layer" "0" "_color" 5 "_Lweight" 2 "_Ltscale" 2 "_Ltype" "ACAD_ISO02W100" "") 
)

[Jek30]

Сообщение от Nike добавь в конце что-то типа (command "_chprop" (entlast) "" "_layer" "0" "_color" 5 "_Lweight" "2" "_Ltscale" 2 "_Ltype" "ACAD_ISO02W100" "") и черточку в параметрах команды (defun C:as ( / ptc dir wide ang high)

Всё заработало! Полностью прям как я и хотел! Большое спасибо!

[koMon]

Код:

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

 
(setq rect_center_point (getpoint "\nПересечение: ")
	  rect_half_length_point (getpoint rect_center_point "\nТочка половины длины прямоугольника: ")
	  diagonal_angle (atan (/ 0.2 (distance rect_center_point rect_half_length_point)))
	  half_diagonal_length (sqrt (+ (expt (distance rect_center_point rect_half_length_point) 2) 0.04))
)
(command "_rectang" "_non" (polar rect_center_point (+ diagonal_angle (angle rect_center_point rect_half_length_point)) half_diagonal_length) 
					"_r" (angtos (angle rect_center_point rect_half_length_point) 0 16)
					"_non" (polar rect_center_point (+ pi diagonal_angle (angle rect_center_point rect_half_length_point)) half_diagonal_length) 
)

[Jek30]

Сообщение от koMon (setq rect_center_point (getpoint "\nПересечение: ") rect_half_length_point (getpoint rect_center_point "\nТочка половины длины прямоугольника: ") diagonal_angle (atan (/ 0.2 (distance rect_center_point rect_half_length_point))) half_diagonal_length (sqrt (+ (expt (distance rect_center_point rect_half_length_point) 2) 0.04)) ) (command "_rectang" "_non" (polar rect_center_point (+ diagonal_angle (angle rect_center_point rect_half_length_point)) half_diagonal_length) "_r" (angtos (angle rect_center_point rect_half_length_point) 0 16) "_non" (polar rect_center_point (+ pi diagonal_angle (angle rect_center_point rect_half_length_point)) half_diagonal_length) )

Благодарю! Хоть я и не разбераюсь в лиспах, но мне показался этот лисп написанным каким-то необычным способом что ли, но тоже работает. Только в нем нет свойств полилинии.
Спасибо!

----- добавлено через ~19 ч. -----

Сообщение от Nike добавь в конце что-то типа (command "_chprop" (entlast) "" "_layer" "0" "_color" 5 "_Lweight" "2" "_Ltscale" 2 "_Ltype" "ACAD_ISO02W100" "") и черточку в параметрах команды (defun C:as ( / ptc dir wide ang high) +

Привет! Извиняюсь за беспокойство. Не поможешь ли еще в одном моменте?
В общем еще важнное свойство для меня. В восемнадцатой строке твоего кода "(setvar "plinewid" 0.0)" , когда меняешь значение "глобальной ширины" например на "2" (в самом коде лиспа), и запускаешь лисп, то это свойство почему-то игнорируется и вообще ни как не учитывается. Как можно сделать чтобы оно учитывалось?

P/S Читающие это, если кто знает подскажите тоже пожалуйста! Спасибо!

[Krieger]

Извращенцы

Динблоки же есть...
Решается штатными средствами за 5 мин:
https://youtu.be/wjORRrnRBQU

Хотя, согласен, написать прогу по отрисовке прямоугольника, при изучении LISP должен каждый.

[Jek30]

Сообщение от Krieger Динблоки же есть... Решается штатными средствами за 5 мин: https://youtu.be/wjORRrnRBQU

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

[ShaggyDoc]

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

И микропрограмма для вставки - Начало футляра - Конец футляра.
Единичный блок вставляется в точку начало футляра под углом Начало-Конец и с масштабом по Х равным расстоянию между указанными точками. Этот масштаб и будет длиной футляра.

Сумму этих длин также легко извлечь.

[Jek30]

Сообщение от ShaggyDoc И микропрограмма для вставки - Начало футляра - Конец футляра. Единичный блок вставляется в точку начало футляра под углом Начало-Конец и с масштабом по Х равным расстоянию между указанными точками. Этот масштаб и будет длиной футляра. Сумму этих длин также легко извлечь.

Что за микропрограмма? Лисп что ли? Я еле этот лисп получил, к счастью нашлись добрые люди ! (Сам то я не лиспер)
Ну а общую длину всех футляров то, как извлечь?

[Krieger]

Сообщение от Jek30 Ну я создал такой блок, прикольная штука! А как выделить все эти десятки труб (по сотню) на плане и и узнать общую длину всех этих труб? (моим то способом я это за две секунды делал ) Ну выделить то ладно, хоть это и долгий способ но можно через "быстрый выбор", по параметру "имя" блока. А общую длину то всех труб как узнать?

Ну я же в видео двумя способами получил длину. Досмотри до конца.
Выбрать можно по названию блока или по слою.
Получить длину - Dataextraction, там даже выбирать не нужно.
Всегда можно расчленить, выбрать искомые отрезки и уже твоей программой определить их длину.

[AMDen]

Сообщение от Krieger Динблоки же есть... Решается штатными средствами за 5 мин: https://youtu.be/wjORRrnRBQU

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

[Jek30]

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

П.С Кто-нибудь пожалуйста, поможет с решением проблемы "глобальной ширины" полилинии из поста #33 ?
Как сделать чтоб глобальная ширина полилинии учитывалась в последнем лиспе?