[tujn08]

тип данных после излечения из набора LIST. Как сделать, что бы был ENAME?

Код:

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

 (vl-load-com)
(progn
(setq a (ssget "_X" (list (cons 0 "LWPOLYLINE") (cons 8 "pro")))); создали набор
(setq i -1 b (sslength a));счетчик
(setq i (1+ i))
(setq pl (entmake (entget (ssname a i)))); следующий примитив из набора
		(setq d_pl (vlax-curve-getDistAtParam (vlax-ename->vla-object pl) (vlax-curve-getEndParam pl)));перевели в ВЛА объект и получили длину 
		(setq p2 (rtos d_pl)); длина сидит тут в виде текста
		(setq ccord_begin0 (vlax-curve-getPointAtParam pl (vlax-curve-getStartParam pl)));начальная точка примитива
		(setq ccord_finish0 (vlax-curve-getPointAtParam pl (vlax-curve-getEndParam pl)));конечноая точка примитива
		;переводим точки в текст, объединяем списки
		;(setq ccord_begin (strcat (rtos (setq x1 (nth 0 ccord_begin0))) " "
		;						  (rtos (setq y1 (nth 1 ccord_begin0)))))
		(setq x1 (nth 0 ccord_begin0))
		(setq y1 (nth 1 ccord_begin0))
		;переводим точки в текст, объединяем списки
		;(setq ccord_finish (strcat (rtos (setq x2 (nth 0 ccord_finish0))) " "
		;						   (rtos (setq y2 (nth 1 ccord_finish0)))))
		(setq x2 (nth 0 ccord_finish0))
		(setq y2 (nth 1 ccord_finish0))
		
	(princ "\n X1:" x1)
	(princ "\n Y1:" y1)
	(princ "\n X2:" x2)
	(princ "\n Y2:" y2)
	(princ "\n длина:" p2)
);конец 

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

Чего?

[tujn08]

И сам немного не понял, когда прочитал. Мне надо создать набор из условий "сложного фильтра". Дальше извлекать из набора примитив и получать его свойства: координаты начала и конца линии.

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

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

Сложный фильтр - это всего лишь сложный фильтр. Используй группировку с OR, AND - ИМХО самое то будет. Подробнее - справка по ssget и примеры для него.

[tujn08]

Сообщение от Кулик Алексей aka kpblc Сложный фильтр - это всего лишь сложный фильтр.

Я так понял список нужного мне не даст- а так хотелось хранить все примитивы по группам.
Поясните мне как новичку:

Что быстрее: фильтр или OR, AND?
Фильтр занимает меньше строк кода и кажется, что работает быстрее(не проверял конечно). Ну вот к примеру на OR, AND:

Код:

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

 (defun	c:dlina (/)	
;(textscr)
(vl-load-com)
	 (setq pl (entnext) a T)
	 ;(setq 	pl (car(entsel "Выберите объект")))
(while (and a pl);(setq pl (car(entnext))) ; начало цикла
    (if (and (equal (cdr(assoc '0  (entget pl))) "LWPOLYLINE" ) ; сразу два условия (первое)
           (equal (cdr(assoc '8 (entget pl))) "pro" )) ; сразу два условия (второе)
(progn ; выполнит в случае успеха сразу двух условий
		(setq d_pl (vlax-curve-getDistAtParam (vlax-ename->vla-object pl) (vlax-curve-getEndParam pl)))
		(setq p2 (rtos d_pl))
		;(setq ccord_begin0 (vlax-curve-getStartParam pl) ccord_finish0 (vlax-curve-getEndParam pl)) ;получение первой и последней вершины линии, но выдает количество вершин
		(setq ccord_begin0 (vlax-curve-getPointAtParam pl (vlax-curve-getStartParam pl)))
		(setq ccord_finish0 (vlax-curve-getPointAtParam pl (vlax-curve-getEndParam pl)))
		(setq ccord_begin (strcat (rtos (setq x1 (nth 0 ccord_begin0))) " "
								  (rtos (setq y1 (nth 1 ccord_begin0)))))
		;(setq ccord_begin (read ccord_begin0)); использовать nth потом rtos потом strcat
		(setq ccord_finish (strcat (rtos (setq x2 (nth 0 ccord_finish0))) " "
								   (rtos (setq y2 (nth 1 ccord_finish0)))))
		;(setq ccord_finish (cvunit ccord_finish0 listp stringp))
		;(type p2)
		;(setq p3 (list(cdr(assoc '-1  (entget pl)))))
			(setq p3 (vl-prin1-to-string (cdr(assoc '-1  (entget pl)))))
			(setq p3 (strcat "Длина найденной полилинии:   " p2 
						 "\nНачало в (X Y):   " ccord_begin 
						 "\nКонец в (X Y):   " ccord_finish 
						 "\nИмя:   " p3 ))
		(alert p3)
		;(setq d_pl (vlax-vla-object->ename pl))
		;(setq pl d_pl)
		;(setq pl () p2 () p3 () d_pl () );ccord_begin () ccord_finish())
	  )
(progn ; выполнит в случае провала сразу двух условий
		(setq p3 (vl-prin1-to-string (cdr(assoc '-1  (entget pl)))))
		(if (or (/= (cdr(assoc '0  (entget pl))) "LWPOLYLINE" )
		        (= (cdr(assoc '0  (entget pl))) "LWPOLYLINE" ))
	(progn ; выполнит в случае успеха, провала в сразу двух условий
				(setq p4 (cdr(assoc '8 (entget pl))))
				(setq p5 (cdr(assoc '0  (entget pl))))
				;(setq p6 (rtos p5))
				(setq p3 (strcat "Не выполняются условия AND:   "  
								"\nОбъект находится в слое:   " p4
								"\nОбъект является:   " p5
								"\nИмя:   " p3 ))
								(alert p3))
	(progn ; выполнит в случае провала, в провале в сразу двух условий
				(alert "Что-то не так..."))
				;(alert "Не выполняется условие AND")
				;(princ "не выполняется условие AND \n")(princ pl) (terpri);(princ "       ")(terpri)
		)
)
	)
   (setq pl (entnext pl))
)
)

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

"Неправильно ты, дядя Федор, бутерброд ешь" (с)
Тебе кто мешает сформировать набор таким образом

Код:

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

(setq ss1 (ssget "_X" '((0 . "LWPOLYLINE") (8 . "pro"))))

и потом его уже обрабатывать? И это только самый простой пример.

[tujn08]

Смотрим:

Код:

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

 (setq a (ssget "_X" '((0 . "LWPOLYLINE") (8 . "0")))); создали набор
(setq i -1 b (sslength a));счетчик
(setq i (1+ i))
(setq pl (entget (ssname a i)))

TYPE pl = LIST

требуется что бы был ENAME - наборами ни как?

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

entget убери и будет тебе ename

[tujn08]

Сообщение от Кулик Алексей aka kpblc entget убери и будет тебе ename

То, что надо!!! Спасибо!

Вопрос один еще не закрыт:
1) Что быстрее: фильтр или OR, AND?
Просто мне кажется, что OR, AND будет проверять каждый примитив, а список нет. Хотя набор их 30 000 объектов составлялся достаточно долго. Получается любой метод будет перебирать все примитивы не зависимо от того какое условие ставить первым т.е. "искать в слое линию или линию в слое"

В модели больше 500 000 примитивов. Из них надо найти 20 примерно. В любом случае завтра поэкспериментирую. Возможно добавить машинное время для сравнение?-есть код

[gomer]

Сообщение от tujn08 Что быстрее: фильтр или OR, AND?

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

[Сергей812]

Сообщение от tujn08 В модели больше 500 000 примитивов.

С такими объемами быстрее будет переход на Net/ObjectARX, скорее всего)

[tujn08]

Всем спасибо! Дельные ответы.

[tujn08]

Кулик Алексей aka kpblc.

Помоги еще раз. В определении объектов на пересечение ошибка у меня. Надо найти пересечение всех блоки из набора со всеми линиями из другого набора. Если не пересекаются, то выдать ошибку (это недопустимо в чертеже). Если пересекаются, то составить список (карту/дерево) к этому списку я буду добавлять все линии и в конце еще один блок. Дальше длину пути сравнивать, если есть альтернативные, то спрашивать какой выбрать.

Код:

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

 (defun c:zxc (/)
(vl-load-com)
	(progn
(setq a (ssget "_X"  (list (cons 8 "pro") (cons 0 "LWPOLYLINE")))); создали набор линий
(setq a_bl (ssget "_X"  (list (cons 8 "AK_PR") (cons 0 "INSERT"))));набор из блоков
(setq i -1 b (sslength a));начлаьное значение счетчика линий
(setq y -1 s (sslength a_bl)) ;счетчик блоков
(repeat b ;цикл по количеству элементов
	(setq i (1+ i)); счетчик в работе
	(setq pl (ssname a i)) ; берем элемент согласно счетчику из набора
	(set (read(strcat (itoa i) "_dlin")) (vlax-curve-getDistAtParam (vlax-ename->vla-object pl) (vlax-curve-getEndParam pl))); получаем длину в i_dlin
	(set (read(strcat (itoa i) "_x1y1")) (vlax-curve-getPointAtParam pl (vlax-curve-getStartParam pl)));получаем начальные координаты XYZ
	(set (read(strcat (itoa i) "_x2y2")) (vlax-curve-getPointAtParam pl (vlax-curve-getEndParam pl)));получаем конечные координаты XYZ
	(set (read(strcat (itoa i) "_name")) (vl-prin1-to-string (cdr(assoc '-1  (entget pl)))));получаем имя линии
); конец цикла формирование всех переменных
	);конец progn
	(progn ;ищем пересечения блока и линии
	(repeat s
	(setq y (1+ y));счетчик в работе блоков
		(setq pl_bl (ssname a_bl y));берем элемент согласно счетчику из набора блоков
		(setq obj_bl (vlax-ename->vla-object pl_bl));выбрать объект из набора блоков
		(setq obj_lin (vla-IntersectWith obj (vlax-ename->vla-object 
		(setq pl_lin 
		           (progn 
			       (setq i -1 b (sslength a)) ;обнуление счетчика линий 
	               (setq i (1+ i)); счетчик в работе линий
		           (repeat b (ssname a i))
				   (if (> (vlax-safearray-get-u-bound (vlax-variant-value temp) 1)'0) 
			(progn (alert (rtos "Пересекаются")))	
			(progn (alert (rtos "Не пересекаются")))
					);if
				    );progn 
		) ;setq pl_lin 
											) acExtendThisEntity))
		;(setq as (ssname a i)) ;(repeat b 
		;(a i) 
			;(if (> (vlax-safearray-get-u-bound (vlax-variant-value temp) 1)
			;'0) 
			;(progn (alert (rtos "Пересекаются")))	
			;(progn (alert (rtos "Не пересекаются")))
			;)
		;) i)
		;																		) acExtendThisEntity))
		
	); конец цикла
	);конец progn
); конец defun

[Сергей812]

Сообщение от tujn08 vla-IntersectWith

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

[tujn08]

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

Интересно- не знал.

[Сергей812]

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

[tujn08]

Сообщение от Сергей812 та такая же ситуация

Это я знаю. Вроде можно же отключать это? Или я с Компасом путаю.

[Сергей812]

Сообщение от tujn08 Это я знаю. Вроде можно же отключать это? Или я с Компасом путаю.

Если бы это можно было отключать) Просто с "движком" автокада как-то связано - вначале было сделано так, а потом - уже традиции) И люди просто обходят эти ограничения с помощью зуммирования..

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

По-моему, vla-intersectwith глубоко параллельно на видимость объектов. Дело в другом: пересекаться могут несоставные объекты (отрезки, дуги, полилинии). Тексты, таблицы, размеры, блоки, внешние ссылки - это отдельная песня, не всегда гарантирующая нормальный результат.

[tujn08]

Сообщение от Кулик Алексей aka kpblc Дело в другом:

Мне особо не важны эти моменты. У меня будут в основном прямоугольные блоки. Даже, если появятся тексты рядом с блоком- сделаю такие блоки или подвод линии так, что бы погрешность в расстоянии была наименьшей. Сей час мне надо просто получить информацию: если пересечения есть, то добавить в список (скорее всего с ключами), если нет то обработать дальше или выдать ошибку, что пользователь допустил ошибку.

И такая проблема меня мучает: запустил приложение или функцию один два раза - все хорошо. Но вскоре ни одна функция не выдает результата в командной строке- приходится новый чертеж создавать. В чем причина? как устранять?