[Yuulliiyyaa]

Всем доброго времени суток!

У меня есть lisp (прикреп.).
Прошу помощи в его изменении!

Для работы нужно, чтобы:
1. Текст отклонения по высоте помещался в отдельный слой (например: Подп_Выс), и чтобы был другой стиль и цвет.
2. Все значения по высоте "выше" пометить с знаком "+"(вместо: 10=+10 и т.п.).

Спасибо!

[nolte]

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

[gomer]

только денег не давай, тут работы на 5 минут...

[nolte]

gomer, (с огромной буквы) Вы истинный жжентельмен, Ваш совет - это несомненно намного больше, чем Ваши 5 минут.
А вообще я не собирался платить.

[Дима_]

Сообщение от nolte А вообще я не собирался платить.

За что??

[nolte]

не знаю, но прислушался к мудрому совету аксакала.

[Yuulliiyyaa]

Скидываю пример того, как хотелось бы, чтобы lisp работал.

[nolte]

посмотри если подойдет. запуск 44 (можно изменить на чего пожелаешь).
у меня тут с кодировками малехий балаган, посему проверь строчки с коментами, на соответствие с твоими названиями блока свай и слоев их всего 3. в общем работает это следующим образом:
запрашивает проектную высоту
затем просит выделить объекты, как при выборе для копирования например,
потом автоматом ищет блоки с названием "свая" и самой близкой точкой от этого блока и делает все требуемые вычисления и надписи на чертеже, включая черчение стрелки.
то есть в исходных данных блок и точка, а в конце блок и точка плюс все требуемые надписи.

Код:

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

 
(defun		dxf					(x y)
(cdr (assoc x (entget y)))
)
(defun c:44 (/ z_p ent lst_p lst_sv i n name_bl lst_lay lst_style *error*)
			(defun *error* (msg)
				(setvar 'osmode old_osm) (setvar 'cmdecho old_ech)
				(princ)
			)
(vl-load-com)
(setq ms (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object))))
(setq old_osm (getvar 'osmode) old_ech (getvar 'cmdecho))
(setvar 'osmode 0) (setvar 'cmdecho 0)
(setq lst_lay '("Стрелка" "подп"))
(setq lst_style '("159"))
(vlax-for i (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))
	(setq lst_lay (vl-remove (vla-get-name i) lst_lay))
)
(vlax-for i (vla-get-textstyles(vla-get-activedocument(vlax-get-acad-object)))
	(setq lst_style (vl-remove (vla-get-name i) lst_style))
)
(if lst_lay (progn (foreach n lst_lay (alert (strcat "\nДОБАВЬТЕ СЛОЙ " "\n" n))) (exit)))
(if lst_slyle (progn (foreach n lst_style (alert (strcat "\nДОБАВЬТЕ ТЕКСТОВЫЙ СТИЛЬ " "\n" n))) (exit)))
(setq name_bl (dxf 2 (car(entsel "\nУКАЖИТЕ ПРОЕКТНУЮ СВАЮ :"))))
(setq z_p (getreal "\nВведите проектную отметку свай: "))
(setq n (ssget "_W" (getpoint "\nУКАЖИТЕ ПЕРВУЮ ТОЧКУ :") (getpoint "\nУКАЖИТЕ ВТОРУЮ ТОЧКУ :")))
(repeat (setq i (sslength n))
	(if (eq (dxf 0 (setq ent (ssname n (setq i (1- i))))) "INSERT")
		(if (eq (dxf 2 ent) name_bl) 
			(setq lst_sv (cons ent lst_sv))
		)
		(if (eq (dxf 0 ent) "POINT")
			(setq lst_p (cons ent lst_p))
		)
	)
)
(mapcar '(lambda (c / pr_x p_bl p_p)
					(vla-put-stylename
						(vla-addtext ms
							(abs
									(setq pr_x
										(fix
											(* 100 (- (car(setq p_p(dxf 10 (cadr c)))) (car(setq p_bl(dxf 10 (car c))))))
										)
									)
							)
							(vlax-3d-point
								(cond
									((minusp pr_x) (list (- (car p_bl) 0.5) (+ (cadr p_bl) 0.08) 0.0))
									((>= pr_x 0) (list (+ (car p_bl) 0.4) (+ (cadr p_bl) 0.08) 0.0))
								)
							)
							0.2
						)
						"159"
					)
					(l-arrow
						(setq p_ar
							(cond
								((minusp pr_x) (subst (- (car p_bl) 0.15) (car p_bl) p_bl))
								((>= pr_x 0) (subst (+ (car p_bl) 0.15) (car p_bl) p_bl))
							)
						)
						(cond
						 ((minusp pr_x) '1)
						 ((>= pr_x 0) '0)
						)
					)
					(mapcar '(lambda (d)
										(vla-put-stylename d "159") (vla-put-rotation d (* 0.5 pi))
									)
							(list
								(vla-addtext ms
									(abs
										(setq pr_x
											(fix
												(* 100 (- (cadr p_p) (cadr p_bl)))
											)
										)
									)
								(vlax-3d-point
									(cond
										((minusp pr_x) (list (- (car p_bl) 0.08) (- (cadr p_bl) 0.5) 0.0))
										((>= pr_x 0) (list (- (car p_bl) 0.08) (+ (cadr p_bl) 0.4) 0.0))
									)
								)
								0.2
								)
							)
					)
					(l-arrow
						(setq p_ar
							(cond
								((minusp pr_x) (subst (- (cadr p_bl) 0.15) (cadr p_bl) p_bl))
								((>= pr_x 0) (subst (+ (cadr p_bl) 0.15) (cadr p_bl) p_bl))
							)
						)
						(cond
						 ((minusp pr_x) '1.5)
						 ((>= pr_x 0) '0.5)
						)
					)
					(vla-put-layer
						(vla-addtext ms (caddr p_p) 
							(vlax-3d-point (list (+ 0.24 (car p_bl)) (- (cadr p_bl) 0.27) (caddr p_bl))) 0.2
						)
						(dxf 8 (cadr c))
					)
					(setq d_v
						(vla-addtext ms (fix(* 100 (- (caddr p_p) z_p)))
							(vlax-3d-point (list (+ 0.24 (car p_bl)) (- (cadr p_bl) 0.57) (caddr p_bl))) 0.2
						)
					)
					(if (> (atoi(vla-get-textstring d_v)) 0)
						(progn
							(vla-put-textstring d_v (strcat "+" (vla-get-textstring d_v)))
							(vla-put-layer d_v "подп")
						)
					)
				)
			(mapcar '(lambda (a)
								(list a 	
									(car (vl-sort lst_p '(lambda (x y)
																				(<	(distance
																							(reverse(cdr(reverse(dxf 10 a))))
																							(reverse(cdr(reverse(dxf 10 x))))
																						)
																						(distance
																							(reverse(cdr(reverse(dxf 10 a))))
																							(reverse(cdr(reverse(dxf 10 y))))
																						)
																				)		
																			)
											)
									)
								)
							)
					lst_sv
			)
)
(setvar 'osmode old_osm) (setvar 'cmdecho old_ech)
(princ)
)
(defun l-arrow (p r)
(mapcar '(lambda (a)
					(vla-setwidth a 1 0.1 0)
					(vla-put-layer a "Стрелка")
					(vla-rotate a (vlax-3d-point p) (* r pi))
				)
		(list 
			(vla-addpolyline ms
				(vlax-safearray-fill
					(vlax-make-safearray vlax-vbdouble '(0 . 8))
					(append
						p
						(subst (+ 0.21 (car p)) (car p) p)
						(subst (+ 0.4 (car p)) (car p) p)
					)
				)
			)
		)
)
(princ)
)

[VVA]

nolte, По моему ф-цию dxf забыл приложить

[nolte]

Сообщение от VVA nolte, По моему ф-цию dxf забыл приложить

прав, как всегда.
добавил.

[gomer]

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

Не надо меня тут аксакать...

Сообщение от nolte Вы истинный жжентельмен

Ваше право делать все заново, если есть рыба, как по мне шило на мыло

[Yuulliiyyaa]

при указании первой и второй точки - lisp больше не реагирует.....((

[VVA]

Yuulliiyyaa, Ты код сохраняла после указанного времени?

Сообщение от nolte Последний раз редактировалось nolte, 08.05.2014 в 21:40.

[Yuulliiyyaa]

да. Первая и вторая точка означают границы области выделения?
Почему lisp не видит объекты чертежа (блоки, точки) ?
А у тебя lisp работает?

[nolte]

да работает
добавил проверку на наличие слоев, скорей всего тут собака зарыта, и стиля текста. блок "свая" надо ручками указывать (только один раз) - добавил запрос.
да на всякий случай, следует грузить все функции в акад (тут их 2 : 44 и dxf)

[Yuulliiyyaa]

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

[VVA]

Yuulliiyyaa, проще будет разговаривать при наличии файла (или его фрагмента) в котором лисп не работает. проверь, на всякий случай, не заблокирован ли текущий слой. но лучше приложи dwg файл

[nolte]

вы девушка прям как солнце питерское
лисп формирует два списка, которые и обрабатывает потом
1 - список блоков свай, которые ты сама указываешь, ввел запрос
УКАЖИТЕ ПРОЕКТНУЮ СВАЮ :
вот по имени блока он их и узнает
2 - список это список примитивов "ТОЧКА" ("POINT"), всех в чертеже.
последовательность такова:
берем одну сваю и сравниваем расстояние до всех точек, выбираем самую близкую и создаем пару ("свая" "ближайшая точка")
и для этой пары наносим все требуемые размеры.
у тебя не работает потому, я так думаю что не формирует 1 из двух начальных списков либо свай либо точек, показывающих отметки съемки свай с площадки, возможно на твоем чертеже это примитив круг "CIRCLE" например.
попробуй запусти лисп на чертеже примере, который прислала сюда.
и заодно раскажи как появляются на чертеже отметки свай (точки снятые с площадки) кто и как их туда заносит.

[Yuulliiyyaa]

да, lisp работает, но только в том файле который я изначально скидывала.
В файле для LISP2.dwg продемонстрирована работа вашего lisp, иногда он не работает вообще, а иногда работает с одной парой, а иногда работает со всеми парами из выделенной области.
В файле для LISP4.dwg , lisp не работает, хотелось бы узнать причину.

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

У меня почему-то крепнет ощущение, что теме место в "Поиске исполнителей".