[Andrey_nadym]

Здравствуйте!
Подскажите пожалуйста есть ли lisp для "сбора", расстановки и выравнивания блоков?

На чертеже расставлены блоки. У каждого блока свое имя, но нумерация блоков идет по возрастанию с разными префиксами. Базовые точки блоков по центру графической части блока.

Можно ли как-нибудь их расставить в порядке возрастания вдоль линии или полилинии?
Файл прилагаю

Спасибо!

[nolte]

вряд ли найдешь готовый лисп (частный случай), но можно написать.

[Andrey_nadym]

Сам в lisp не силен. Что нужно для написания . Рассмотрю варианты- можно и через личку

[zamtmn]

есть такой вариант http://forum.dwg.ru/showthread.php?t=8707&page=4

[Andrey_nadym]

Ув. zamtmn Преклоняюсь перед Вами за проделанную и проделываемую Вами работу
Да видел Вашу разработку, но пока остаюсь на AutoCade и поэтому возникают всякого рода вопросы по ускорению процесса черчения проектов.
Так же есть ряд и других ПО для проектирования ОПС, но вопрос все же в дополнении AutoCada.
Если кто-то сможет помочь буду очень признателен, а так пока приходится вручную делать эту монотонную работу.

[Boxa]

По хорошему эта тема должна быть не тут, а в этой ветке: http://forum.dwg.ru/forumdisplay.php?f=33
(я в лиспе не силен, так что лицо не заинтересованное )

[roaa]

http://dwg.ru/dnl/11290
Команда "blin".
Единственное, что необходимо, соединить блоки полилинией так, как вам требуется.

[Andrey_nadym]

roaa, Спасибо огромное то, что нужно. Я так долго это искал.

[roaa]

Сообщение от Andrey_nadym roaa, Спасибо огромное то, что нужно. Я так долго это искал.

Для отрисовки структурной схемы попробуйте команду "schemdiag" с этой же программы. Специально для этого создана.

[Andrey_nadym]

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

[zamtmn]

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

[roaa]

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

Попробовал...дась... Вы и при вставке следите за размером и постановкой атрибута? По-моему, лишняя забота, да и неправильно... Как выход - атрибут "NUM_DEVICE" (который Вы активно используете) в редакторе блоков установить в нужное место и используемыми размерами. Текстовый стиль назначить по блоку. И таким использовать в дальнейшем. Переделывать программу из-за этого просто не вижу смысла.

[Andrey_nadym]

Сообщение от roaa Попробовал...дась... Вы и при вставке следите за размером и постановкой атрибута? По-моему, лишняя забота, да и неправильно... Как выход - атрибут "NUM_DEVICE" (который Вы активно используете) в редакторе блоков установить в нужное место и используемыми размерами. Текстовый стиль назначить по блоку. И таким использовать в дальнейшем. Переделывать программу из-за этого просто не вижу смысла.

Ув. roaa. По вопросу переделки решайте сами - программа Ваша.
Но не всегда можно прибегать к редактированию уже готовой базы блоков.
Если не использовать schemdiag, то меня устраивает, Спасибо за отзыв на проблему. Ускорение процесса проектирования заметное.

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

Сообщение от Andrey_nadym Дело хозяйское, но уходить из автокада ненадо. Наружу переносятся только некоторые операции - расстановка, прокладка кабелей, нумерация, получение схемы - дальше обратно в автокад

Ув. zamtmn. Попробую Вашу методику, но чуть позже, когда будет свободное время, а пока немного "загружен". Спасибо.

[nolte]

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

Код:

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

 
(defun c:88 (/ p_cons doc ll rakez kav galay osm_old cmd_old p *error*)
					(defun *error* (msg)
						(setvar "osmode" osm_old)
						(setvar "cmdecho" cmd_old)
						(princ)
					)
(vl-load-com)
(setq p_cons (getpoint "\nSET START POINT "))
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for b (vla-get-layouts doc)
	(vlax-for i (vla-get-block b)
		(if (and (= (vla-get-objectname i) "AcDbBlockReference")
					(not (vlax-property-available-p i 'Path))
				)
			(if (vlax-property-available-p i 'Hasattributes)
				(if (= (vla-get-hasattributes i) :vlax-true)
					(mapcar '(lambda (a) (if (= (vla-get-tagstring a) "NUM_DEVICE")
										(setq ll (cons (list i (vla-get-textstring a)) ll))))
							(vlax-safearray->list (vlax-variant-value (vla-getattributes i)))
					)
				)
			)
		)
	)
)
(setq ll (vl-sort ll '(lambda (x y) (< (l-str-int (cadr x)) (l-str-int (cadr y))))))
(setq rakez (substr (itoa (l-str-int (cadar ll))) 1 1))
(setq kav (substr (itoa (l-str-int (cadar ll))) 2 1))
(setq galay (substr (itoa (l-str-int (cadar ll))) 3 3))
(setq osm_old (getvar "osmode"))
(setq cmd_old (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(mapcar '(lambda (x)
					(if (zerop (- (l-str-int (cadr x)) (atoi (strcat rakez kav galay))))
						(setq p p_cons)
						(if (> (atoi (substr (itoa (l-str-int (cadr x))) 1 1)) (atoi rakez))
							(progn
								(setq p (list (car p_cons) (- (cadr p) 2000)))
								(setq rakez (substr (itoa (l-str-int (cadr x))) 1 1))
							)
							(if (> (atoi (substr (itoa (l-str-int (cadr x))) 2 1)) (atoi kav))
								(progn
									(setq p (list (car p_cons) (- (cadr p) 1000)))
									(setq kav (substr (itoa (l-str-int (cadr x))) 2 1))
								)
								(if (> (atoi (substr (itoa (l-str-int (cadr x))) 3 3)) (atoi galay))
									(setq p (list (+ 1500 (car p)) (cadr p)))
								)
							)
						)
					)
					(vla-move (vla-copy (car x))
						(vla-get-insertionpoint (car x))
						(vlax-3d-point p)
					)
				)
		ll
)
(setvar "osmode" osm_old)
(setvar "cmdecho" cmd_old)
(princ)
)

;;;;;;;;;;;;;;;;;;;;;;;;;
(defun L-str-int (s)
(atoi (vl-list->string (vl-remove-if-not '(lambda (x) (and (<= (ascii "0") x) (>= (ascii "9") x))) (vl-string->list s))))
)

[Andrey_nadym]

ДА УРА!!!, все работает, СПАСИБО, nolte.

[nolte]

не за что. приходи еще.