Выбор определенного блока, при пересечении с линией нужного цвета
| Правила | Регистрация | Пользователи | Сообщения за день |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Выбор определенного блока, при пересечении с линией нужного цвета

Выбор определенного блока, при пересечении с линией нужного цвета

Ответ
Перейти к новому Перейти к новому  
Поиск в этой теме
Непрочитано 23.03.2019, 16:06 #1
Выбор определенного блока, при пересечении с линией нужного цвета
aafeoktistov
 
Регистрация: 26.02.2019
Сообщений: 49
Здравствуйте!

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

(sssetfirst nil (ssget "_i" '((0 . "INSERT")(2 . "Название_блока"))))

Как видно, в набор добавляются все блоки с определенным названием.

Подскажите как запилить LISP или подправить макрос, чтобы выделялись только те блоки, которые находятся на пересечении с линиями определенного цвета (допустим №7 (по нумерации автокада))

Заранее большое спасибо!
Просмотров: 6721
 
Непрочитано 23.03.2019, 21:01
#2
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,499

наверно, это развитие подобной темы - получить набор полилиний определенного цвета (и слоя, наверно, тоже) и дальше смотрите пост #23 от VVA в указанной ранее теме.
Сергей812 вне форума  
 
Автор темы   Непрочитано 24.03.2019, 08:48
#3
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Цитата:
Сообщение от Сергей812 Посмотреть сообщение
наверно, это развитие подобной темы - получить набор полилиний определенного цвета (и слоя, наверно, тоже) и дальше смотрите пост #23 от VVA в указанной ранее теме.
Я видел эту тему, но не совсем понимаю как это применить к обычным LINE, а главное как привязать все это именно к их ЦВЕТУ...
aafeoktistov вне форума  
 
Непрочитано 24.03.2019, 12:37
#4
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,499

Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
как это применить к обычным LINE, а главное как привязать все это именно к их ЦВЕТУ...
разделяете на две подзадачи: получить набор красных отрезков:
Код:
[Выделить все] 
 (ssget "_X" '((-4 .  "<AND") (62 . %Номер цвета%) (0 . "LINE") (-4."AND>")))
а потом для каждого элемента полученного набора ищите блоки, которые на нем лежат. Как переделать на LINE - лучше в той ветке спросить совета у VVA, имхо.. Я на .Net пишу, поэтому с ходу не могу сказать - что там надо подправить в лисп-коде 23 поста)
Сергей812 вне форума  
 
Автор темы   Непрочитано 25.03.2019, 15:58
#5
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Цитата:
Сообщение от Сергей812 Посмотреть сообщение
разделяете на две подзадачи: получить набор красных отрезков:
Код:
[Выделить все] 
 (ssget "_X" '((-4 .  "<AND") (62 . %Номер цвета%) (0 . "LINE") (-4."AND>")))
а потом для каждого элемента полученного набора ищите блоки, которые на нем лежат. Как переделать на LINE - лучше в той ветке спросить совета у VVA, имхо.. Я на .Net пишу, поэтому с ходу не могу сказать - что там надо подправить в лисп-коде 23 поста)
Мне просто кажется что моя задача проще, чем описанная в той теме... И главная проблема что я не знаю как связать это все в лисп.

т.е логика такая:

1). Выбрать все линии определенного цвета
2). Найти все блоки с ИЗВЕСТНЫМ ЗАРАНЕЕ названием, которые пересекают линии этого цвета.

Вот и всё... И если кто то мог бы соединить это в LISP было бы оч круто
aafeoktistov вне форума  
 
Непрочитано 26.03.2019, 10:23
#6
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,499

Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
1). Выбрать все линии определенного цвета
2). Найти все блоки с ИЗВЕСТНЫМ ЗАРАНЕЕ названием, которые пересекают линии этого цвета.
Вот и всё...
от того, что переписали 4 пост своими словами - лисп не появиться) Если не хотите разбираться в программировании ради разовой задачи - есть раздел исполнителей.
Сергей812 вне форума  
 
Автор темы   Непрочитано 26.03.2019, 10:52
#7
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Цитата:
Сообщение от Сергей812 Посмотреть сообщение
от того, что переписали 4 пост своими словами - лисп не появиться) Если не хотите разбираться в программировании ради разовой задачи - есть раздел исполнителей.
Впринципе это тоже вариант. Просто я думал что знающему человеку это дело пары минут, а еще что возможно это кому то тоже понадобится для использования. В любом случае всем спасибо!
aafeoktistov вне форума  
 
Непрочитано 26.03.2019, 12:08
#8
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,499

В посте №4 привел код для получения всех отрезков заданного цвета, во посте №2 - ссылку на код от VVA, получающий вставки блоков на полилинии. И посоветовал обратиться в ту же ветку с вопросом - как изменить этот код под отрезок. Дальше только писать за ТС весь код...
Сергей812 вне форума  
 
Автор темы   Непрочитано 26.03.2019, 14:24
#9
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

В посте №4 привел код для получения всех отрезков заданного цвета, во посте №2 - ссылку на код от VVA, получающий вставки блоков на полилинии. И посоветовал обратиться в ту же ветку с вопросом - как изменить этот код под отрезок. Дальше только писать за ТС весь код...[/quote]

Я прочитал ту ветку, там задача сильно отличается от моей хотя и похожа, но попробую спросить там.
aafeoktistov вне форума  
 
Непрочитано 26.03.2019, 15:44
1 | #10
koMon


 
Блог
 
Регистрация: 26.09.2017
Сообщений: 1,809

Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
Подскажите как запилить LISP
например так:
Код:
[Выделить все] 
 
(setq blocks_sset (ssadd)
	  line_color 7 ;white
	  block_name "ИМЯ_БЛОКА"
	  certain_lines_ss (ssget "_x" (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>")))
)
(if certain_lines_ss
	(progn
		(setq certain_lines_list (mapcar 'cadr (ssnamex certain_lines_ss)))
		(foreach line_entity certain_lines_list
			(setq blocks_found_ss (ssget "_f" (list
													(list
														  (car (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
														  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
													)
													(list
														  (car (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
														  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
													)
											  )
											  (list (cons 0 "INSERT"))
							   	  )
			)
			(if blocks_found_ss
				(progn
					(setq blocks_found_list (mapcar 'cadr (ssnamex blocks_found_ss)))
					(if blocks_found_list
						(foreach block_entity blocks_found_list
							(if (= block_name (vla-get-effectivename (vlax-ename->vla-object block_entity)))
								(setq blocks_sset (ssadd block_entity blocks_sset))
							)
						)
					)
				)
			)
		)
	)
)
(sssetfirst nil blocks_sset)
(princ)
koMon вне форума  
 
Непрочитано 26.03.2019, 16:21
#11
Семёныч


 
Регистрация: 08.12.2018
Сообщений: 164

Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
1). Выбрать все линии определенного цвета
2). Найти все блоки с ИЗВЕСТНЫМ ЗАРАНЕЕ названием, которые пересекают линии этого цвета.
Простая программа:
Код:
[Выделить все] 
(defun C:SBL ( / echo osm nc nb ssl lssl n spb ssn pt1 pt2 spo lspo k ssb spb)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq osm (getvar "OSMODE"))
(setvar "OSMODE" 0)
(initget 7)
(setq nc (getint "\nВведите номер цвета: "))
(setq nb (getstring T "\nВведите имя блока: "))
(setq ssl (ssget "_X" (list (cons 0 "LINE") (cons 62 nc))))
(if ssl
    (progn
    (setq lssl (sslength ssl) n 0 spb nil spb (ssadd))
    (repeat lssl
            (setq ssn (ssname ssl n))
            (setq pt1 (cdr (assoc 10 (entget ssn))))
            (setq pt2 (cdr (assoc 11 (entget ssn))))
            (vl-cmdf "_SELECT" "_f" pt1 pt2 "" "")
            (setq spo (ssget "_p"))
            (setq lspo (sslength spo) k 0)
            (repeat lspo
                    (setq ssb (ssname spo k))
                    (if (and (= (cdr (assoc 0 (entget ssb))) "INSERT")
                             (= (cdr (assoc 2 (entget ssb))) nb)
                        )
                        (setq spb (ssadd ssb spb))
                    )
                    (setq k (+ k 1))
            )
            (setq n (+ 1 n))
    )
    (if spb (sssetfirst spb spb))
    )
)
(setvar "CMDECHO" echo)
(setvar "OSMODE" osm)
(princ)
)
Семёныч вне форума  
 
Автор темы   Непрочитано 26.03.2019, 16:43
#12
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

koMon и Cемёныч большое Вам спасибо! Мне подходит больше вариант от koMon, но обе версии обязательно кому нибудь пригодятся.

Проверил все работает отлично! ЕЩЕ раз большое спасибо!
aafeoktistov вне форума  
 
Автор темы   Непрочитано 26.03.2019, 18:23
#13
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Цитата:
Сообщение от koMon Посмотреть сообщение
например так:
Код:
01
(setq blocks_sset (ssadd)
02
******line_color 7 ;white
03
******block_name "ИМЯ_БЛОКА"
04
******certain_lines_ss (ssget "_x" (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>")))
05
)
06
(if certain_lines_ss
07
****(progn
08
********(setq certain_lines_list (mapcar 'cadr (ssnamex certain_lines_ss)))
09
********(foreach line_entity certain_lines_list
10
************(setq blocks_found_ss (ssget "_f" (list
11
****************************************************(list
12
**********************************************************(car (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
13
**********************************************************(cadr (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
14
****************************************************)
15
****************************************************(list
16
**********************************************************(car (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
17
**********************************************************(cadr (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
18
****************************************************)
19
**********************************************)
20
**********************************************(list (cons 0 "INSERT"))
21
**********************************)
22
************)
23
************(if blocks_found_ss
24
****************(progn
25
********************(setq blocks_found_list (mapcar 'cadr (ssnamex blocks_found_ss)))
26
********************(if blocks_found_list
27
************************(foreach block_entity blocks_found_list
28
****************************(if (= block_name (vla-get-effectivename (vlax-ename->vla-object block_entity)))
29
********************************(setq blocks_sset (ssadd block_entity blocks_sset))
30
****************************)
31
************************)
32
********************)
33
****************)
34
************)
35
********)
36
****)
37
)
38
(sssetfirst nil blocks_sset)
39
(princ)
Извиняюсь за наглость, но не подскажите как изменить лисп так чтобы поиск шел не по всем объектам а только по выделенным заранее? Заранее спасибо!

----- добавлено через ~1 мин. -----
Огромное спасибо koMon и Семёныч!!!!

----- добавлено через ~32 мин. -----
Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
Извиняюсь за наглость, но не подскажите как изменить лисп так чтобы поиск шел не по всем объектам а только по выделенным заранее? Заранее спасибо!

----- добавлено через ~1 мин. -----
Огромное спасибо koMon и Семёныч!!!!
Имею ввиду что сначала выделяю рамкой нужный чертеж, а потом к нему применяется лисп а не ко всем объектам на листе.
aafeoktistov вне форума  
 
Непрочитано 26.03.2019, 19:14
#14
Семёныч


 
Регистрация: 08.12.2018
Сообщений: 164

Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
Имею ввиду что сначала выделяю рамкой нужный чертеж, а потом к нему применяется лисп а не ко всем объектам на листе.
Код:
[Выделить все] 
(defun C:SBL ( / echo osm nc nb ssl lssl n spb ssn pt1 pt2 spo lspo k ssb spb)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq osm (getvar "OSMODE"))
(setvar "OSMODE" 0)
(initget 7)
(setq nc (getint "\nВведите номер цвета: "))
(setq nb (getstring T "\nВведите имя блока: "))
;;;(setq ssl (ssget "_X" (list (cons 0 "LINE") (cons 62 nc)))) ;;; Выбор всех отрезков
(setq ssl (ssget (list (cons 0 "LINE") (cons 62 nc)))) ;;; Выбор объектов (отрезков) рамкой, секрамкой и т.д
(if ssl
    (progn
    (setq lssl (sslength ssl) n 0 spb nil spb (ssadd))
    (repeat lssl
            (setq ssn (ssname ssl n))
            (setq pt1 (cdr (assoc 10 (entget ssn))))
            (setq pt2 (cdr (assoc 11 (entget ssn))))
            (vl-cmdf "_SELECT" "_f" pt1 pt2 "" "")
            (setq spo (ssget "_p"))
            (setq lspo (sslength spo) k 0)
            (repeat lspo
                    (setq ssb (ssname spo k))
                    (if (and (= (cdr (assoc 0 (entget ssb))) "INSERT")
                             (= (cdr (assoc 2 (entget ssb))) nb)
                        )
                        (setq spb (ssadd ssb spb))
                    )
                    (setq k (+ k 1))
            )
            (setq n (+ 1 n))
    )
    (if spb (sssetfirst spb spb))
    )
)
(setvar "CMDECHO" echo)
(setvar "OSMODE" osm)
(princ)
)
Семёныч вне форума  
 
Автор темы   Непрочитано 27.03.2019, 08:12
#15
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Уважаемый! А не подскажите как переписать ваш лисп так чтобы в нем изначально был записан нужный цвет и название блока без возможности выбора?

----- добавлено через ~10 мин. -----
П.С. И что то когда я убираю из ssget _x вообще ничего не происходит, хотя я выбираю нужный чертеж заранее
aafeoktistov вне форума  
 
Непрочитано 27.03.2019, 08:41
1 | #16
koMon


 
Блог
 
Регистрация: 26.09.2017
Сообщений: 1,809

Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
Извиняюсь за наглость, но не подскажите как изменить лисп так чтобы поиск шел не по всем объектам а только по выделенным заранее
просто заменить
Код:
[Выделить все] 
 (ssget "_x" (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>")))
на
Код:
[Выделить все] 
 (ssget (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>")))
----- добавлено через ~3 мин. -----
Цитата:
Сообщение от Семёныч Посмотреть сообщение
Простая программа:
не будут обрабатываться дин. блоки
koMon вне форума  
 
Непрочитано 27.03.2019, 08:57
#17
Семёныч


 
Регистрация: 08.12.2018
Сообщений: 164

Для koMon
Про динамические блоки автор темы ничего не писал. А программа моя названа простой, потому что она и есть ПРОСТАЯ.
Для aafeoktistov
Не надо выбирать объекты до начала работы программы.
Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
Уважаемый!
В данном случае обращение "Уважаемый" звучит как "Эй, половой", поэтому я откланиваюсь.
Семёныч вне форума  
 
Автор темы   Непрочитано 27.03.2019, 09:14
#18
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Цитата:
Сообщение от koMon Посмотреть сообщение
просто заменить
Код:
[Выделить все] 
 (ssget "_x" (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>")))
на
Код:
[Выделить все] 
 (ssget (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>")))
----- добавлено через ~3 мин. -----

не будут обрабатываться дин. блоки
Большое спасибо! Но почему то выдает ошибку

; ошибка: неверный тип аргумента: lentityp (0 (12181.5 17123.0 0.0))

с _x все работает нормально, но все таки хочется разобраться с выделением руками ((
aafeoktistov вне форума  
 
Непрочитано 27.03.2019, 09:28
#19
koMon


 
Блог
 
Регистрация: 26.09.2017
Сообщений: 1,809

Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
; ошибка: неверный тип аргумента: lentityp (0 (12181.5 17123.0 0.0))
Код:
[Выделить все] 
 (setq blocks_sset (ssadd)
	  line_color 5 ;white
	  block_name "ИМЯ_БЛОКА"
	  certain_lines_ss (ssget (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>")))
;	  certain_lines_ss (ssget "_x" (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>")))

)
(if certain_lines_ss
	(progn
		(setq certain_lines_list (vl-remove-if '(lambda (list_member) (/= 'ename (type list_member))) (mapcar 'cadr (ssnamex certain_lines_ss))))
		(foreach line_entity certain_lines_list
			(setq blocks_found_ss (ssget "_f" (list
													(list
														  (car (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
														  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
													)
													(list
														  (car (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
														  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
													)
											  )
											  (list (cons 0 "INSERT"))
							   	  )
			)
			(if blocks_found_ss
				(progn
					(setq blocks_found_list (mapcar 'cadr (ssnamex blocks_found_ss)))
					(if blocks_found_list
						(foreach block_entity blocks_found_list
							(if (= block_name (vla-get-effectivename (vlax-ename->vla-object block_entity)))
								(setq blocks_sset (ssadd block_entity blocks_sset))
							)
						)
					)
				)
			)
		)
	)
)
(sssetfirst nil blocks_sset)
(princ)
Последний раз редактировалось koMon, 27.03.2019 в 09:38.
koMon вне форума  
 
Автор темы   Непрочитано 27.03.2019, 10:47
#20
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Цитата:
Сообщение от koMon Посмотреть сообщение
Код:
[Выделить все] 
 (setq blocks_sset (ssadd)
	  line_color 5 ;white
	  block_name "ИМЯ_БЛОКА"
	  certain_lines_ss (ssget (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>")))
;	  certain_lines_ss (ssget "_x" (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>")))

)
(if certain_lines_ss
	(progn
		(setq certain_lines_list (vl-remove-if '(lambda (list_member) (/= 'ename (type list_member))) (mapcar 'cadr (ssnamex certain_lines_ss))))
		(foreach line_entity certain_lines_list
			(setq blocks_found_ss (ssget "_f" (list
													(list
														  (car (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
														  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
													)
													(list
														  (car (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
														  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
													)
											  )
											  (list (cons 0 "INSERT"))
							   	  )
			)
			(if blocks_found_ss
				(progn
					(setq blocks_found_list (mapcar 'cadr (ssnamex blocks_found_ss)))
					(if blocks_found_list
						(foreach block_entity blocks_found_list
							(if (= block_name (vla-get-effectivename (vlax-ename->vla-object block_entity)))
								(setq blocks_sset (ssadd block_entity blocks_sset))
							)
						)
					)
				)
			)
		)
	)
)
(sssetfirst nil blocks_sset)
(princ)
Я может что то не так запускаю но он теперь просто считает выделенные линии

----- добавлено через ~10 мин. -----
Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
Я может что то не так запускаю но он теперь просто считает выделенные линии
а точнее считает линии, которые пересекают блок...

т.е с _x все работает четко, но вот с выбором руками пока не выходит...

Извините что достаю, просто очень хочется разобраться, потому как реализация выглядит оч грамотной!
aafeoktistov вне форума  
 
Непрочитано 27.03.2019, 11:35
#21
frostmourn


 
Регистрация: 23.04.2015
Сообщений: 163

Цитата:
Сообщение от koMon Посмотреть сообщение
просто заменить

Код:
[Выделить все] 
 (ssget "_x" (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>")))
на

Код:
[Выделить все] 
 (ssget (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>")))
"and" не нужен здесь.
frostmourn вне форума  
 
Автор темы   Непрочитано 27.03.2019, 11:41
#22
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Цитата:
Сообщение от frostmourn Посмотреть сообщение
"and" не нужен здесь.
Вообще нигде не нужен?

----- добавлено через ~2 мин. -----
Теперь пишет "слишком мало аргументов"
aafeoktistov вне форума  
 
Непрочитано 27.03.2019, 11:55
#23
koMon


 
Блог
 
Регистрация: 26.09.2017
Сообщений: 1,809

Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
Я может что то не так запускаю но он теперь просто считает выделенные линии
однако
Код:
[Выделить все] 
 (setq blocks_sset (ssadd)
	  line_color 5 ;white
	  block_name "ИМЯ_БЛОКА"
)

(cond
	(
		(null (cadr (ssgetfirst)))
	  		(setq certain_lines_ss (ssget (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>"))))
;		  	(setq certain_lines_ss (ssget "_x" (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>"))))
			(setq certain_lines_list (vl-remove-if '(lambda (list_member) (/= 'ename (type list_member))) (mapcar 'cadr (ssnamex certain_lines_ss))))
	)
	(
		t
			(setq certain_lines_ss (cadr (ssgetfirst))
				  certain_lines_list (vl-remove-if '(lambda (list_member)
																	(or
																		(/= 'ename (type list_member))
																		(not
																			(and
																				(= "LINE" (cdr (assoc 0 (entget list_member))))
																				(= line_color (cdr (assoc 62 (entget list_member))))
																			)
																		)
																	)
													)
													(mapcar 'cadr (ssnamex certain_lines_ss))
									 )
			)
	)
)

(if certain_lines_ss
	(progn
;		(setq certain_lines_list (vl-remove-if '(lambda (list_member) (/= 'ename (type list_member))) (mapcar 'cadr (ssnamex certain_lines_ss))))
		(foreach line_entity certain_lines_list
			(setq blocks_found_ss (ssget "_f" (list
													(list
														  (car (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
														  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
													)
													(list
														  (car (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
														  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
													)
											  )
											  (list (cons 0 "INSERT"))
							   	  )
			)
			(if blocks_found_ss
				(progn
					(setq blocks_found_list (mapcar 'cadr (ssnamex blocks_found_ss)))
					(if blocks_found_list
						(foreach block_entity blocks_found_list
							(if (= block_name (vla-get-effectivename (vlax-ename->vla-object block_entity)))
								(setq blocks_sset (ssadd block_entity blocks_sset))
							)
						)
					)
				)
			)
		)
	)
)
(sssetfirst nil blocks_sset)
(princ)
----- добавлено через ~10 мин. -----
Цитата:
Сообщение от frostmourn Посмотреть сообщение
"and" не нужен здесь.
aafeoktistov, frostmourn говорит, что нуно так
(setq certain_lines_ss (ssget (list (cons 0 "LINE") (cons 62 line_color))))
koMon вне форума  
 
Автор темы   Непрочитано 27.03.2019, 13:02
#24
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Код:
[Выделить все] 
 (defun C:CHCL ( / ssl lssl n sl cl)
(setq blocks_sset (ssadd)
	  line_color 7 ;white
	  block_name "Опора УБ"
)

(cond
	(
		(null (cadr (ssgetfirst)))
	  		(setq certain_lines_ss (ssget (list (cons 0 "LINE") (cons 62 line_color))))
;		  	(setq certain_lines_ss (ssget "_x" (list (cons -4 "<and") (cons 0 "LINE") (cons 62 line_color) (cons -4 "and>"))))
			(setq certain_lines_list (vl-remove-if '(lambda (list_member) (/= 'ename (type list_member))) (mapcar 'cadr (ssnamex certain_lines_ss))))
	)
	(
		t
			(setq certain_lines_ss (cadr (ssgetfirst))
				  certain_lines_list (vl-remove-if '(lambda (list_member)
																	(or
																		(/= 'ename (type list_member))
																		(not
																			(and
																				(= "LINE" (cdr (assoc 0 (entget list_member))))
																				(= line_color (cdr (assoc 62 (entget list_member))))
																			)
																		)
																	)
													)
													(mapcar 'cadr (ssnamex certain_lines_ss))
									 )
			)
	)
)

(if certain_lines_ss
	(progn
;		(setq certain_lines_list (vl-remove-if '(lambda (list_member) (/= 'ename (type list_member))) (mapcar 'cadr (ssnamex certain_lines_ss))))
		(foreach line_entity certain_lines_list
			(setq blocks_found_ss (ssget "_f" (list
													(list
														  (car (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
														  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
													)
													(list
														  (car (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
														  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
													)
											  )
											  (list (cons 0 "INSERT"))
							   	  )
			)
			(if blocks_found_ss
				(progn
					(setq blocks_found_list (mapcar 'cadr (ssnamex blocks_found_ss)))
					(if blocks_found_list
						(foreach block_entity blocks_found_list
							(if (= block_name (vla-get-effectivename (vlax-ename->vla-object block_entity)))
								(setq blocks_sset (ssadd block_entity blocks_sset))
							)
						)
					)
				)
			)
		)
	)
)
(sssetfirst nil blocks_sset)
(princ)
)
в итоге получилось так? Пытаюсь запустить макросом ^C^C^P(if (not C:CHCL) (load "chcl")) CHCL

теперь вообще не запускается, что посоветуете?

----- добавлено через ~14 мин. -----
Покопался видимо какой то глюк!!! С последней версией все работает так как нужно!!! Огромнейшее спасибо Семёныч и koMon!!! и всем кто поучаствовал!
aafeoktistov вне форума  
 
Непрочитано 27.03.2019, 15:04
#25
koMon


 
Блог
 
Регистрация: 26.09.2017
Сообщений: 1,809

Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
(defun C:CHCL ( / ssl lssl n sl cl)
в команде нет этих локальных переменных, но есть кучка других, так что правильнее было бы перечислить последние
koMon вне форума  
 
Автор темы   Непрочитано 27.03.2019, 16:35
#26
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Цитата:
Сообщение от koMon Посмотреть сообщение
в команде нет этих локальных переменных, но есть кучка других, так что правильнее было бы перечислить последние
Это я взял из другого лиспа, но вроде все работает... а чего не хватает?
aafeoktistov вне форума  
 
Непрочитано 28.03.2019, 09:23
#27
koMon


 
Блог
 
Регистрация: 26.09.2017
Сообщений: 1,809

Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
а чего не хватает?
после слеша нужно перечислить локальные переменные, используемые в определяемой команде
Код:
[Выделить все] 
 (defun c:CHCL ( / block_sset line_color block_name certain_lines_ss certain_lines_list block_found_ss blocks_found_list )
koMon вне форума  
 
Непрочитано 28.03.2019, 10:14
#28
tsetse

Инженер-конструктор
 
Регистрация: 25.12.2015
Москва
Сообщений: 77

Цитата:
Сообщение от koMon Посмотреть сообщение
после слеша нужно перечислить локальные переменные, используемые в определяемой команде
Код:
[Выделить все] 
 (defun c:CHCL ( / block_sset line_color block_name certain_lines_ss certain_lines_list block_found_ss blocks_found_list )
blocks_sset тоже локальная переменная? Вроде же это глобальный набор в чертеже? Или я ошибаюсь?
tsetse вне форума  
 
Непрочитано 28.03.2019, 11:34
#29
koMon


 
Блог
 
Регистрация: 26.09.2017
Сообщений: 1,809

Цитата:
Сообщение от tsetse Посмотреть сообщение
blocks_sset тоже локальная переменная? Вроде же это глобальный набор в чертеже? Или я ошибаюсь?
зависит от кон. цели. если набор нужен в переменной, то его нужно делать глобальным, а так: команду выполнили, получили набор - делаем с ним что-то
koMon вне форума  
 
Непрочитано 28.03.2019, 12:46
#30
tsetse

Инженер-конструктор
 
Регистрация: 25.12.2015
Москва
Сообщений: 77

Цитата:
Сообщение от koMon Посмотреть сообщение
зависит от кон. цели. если набор нужен в переменной, то его нужно делать глобальным, а так: команду выполнили, получили набор - делаем с ним что-то
Я имею ввиду, если его сделать локальной переменной, после (sssetfirst nil blocks_sset) и завершения работы программы, выбранные объекты автоматически перейдут в новый набор, имя которого сгенерирует автокад?
tsetse вне форума  
 
Непрочитано 28.03.2019, 13:46
#31
koMon


 
Блог
 
Регистрация: 26.09.2017
Сообщений: 1,809

чисто теоретически да, практически нет. переменная с набором глобализируется.
koMon вне форума  
 
Автор темы   Непрочитано 28.03.2019, 17:48
#32
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Цитата:
Сообщение от koMon Посмотреть сообщение
чисто теоретически да, практически нет. переменная с набором глобализируется.
А не подскажите как добавить код, чтобы НЕ выбирались блоки, которые пересекают ДВЕ линии белая (7) и допустим оранжевая (30). Заранее спасибо!
aafeoktistov вне форума  
 
Непрочитано 28.03.2019, 19:59
#33
tsetse

Инженер-конструктор
 
Регистрация: 25.12.2015
Москва
Сообщений: 77

Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
А не подскажите как добавить код, чтобы НЕ выбирались блоки, которые пересекают ДВЕ линии белая (7) и допустим оранжевая (30). Заранее спасибо!
Просто повторяете операцию дважды. Сначала делаете набор с пересечением белыми линиями. Потом набор с пересечением оранжевыми. Затем вычитаете из первого второе. Посмотрите справку по ssdel.
tsetse вне форума  
 
Автор темы   Непрочитано 28.03.2019, 20:36
#34
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Цитата:
Сообщение от tsetse Посмотреть сообщение
Просто повторяете операцию дважды. Сначала делаете набор с пересечением белыми линиями. Потом набор с пересечением оранжевыми. Затем вычитаете из первого второе. Посмотрите справку по ssdel.
Ну тут проблема в том что у меня есть те же самые блоки пересекающиеся с просто оранжевыми линиями и их выделять как раз ненужно, интересует невыделение именно "пограничного" варианта.

Просто мне кажется или есть более изящное решение или ssdel единственный вариант?
aafeoktistov вне форума  
 
Непрочитано 01.04.2019, 15:24
#35
koMon


 
Блог
 
Регистрация: 26.09.2017
Сообщений: 1,809

Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
А не подскажите как добавить код, чтобы НЕ выбирались блоки, которые пересекают ДВЕ линии белая (7) и допустим оранжевая (30). Заранее спасибо!
Offtop: L'appétit vient en mangeant.)
за изящность не скажу, но с добавкой будет так
Код:
[Выделить все] 
 
(defun c:CHCL ( / block_sset in_blocks_found_list ex_blocks_found_list
				  include_line_color exclude_line_color block_name
				  in_ex_lines_ss in_ex_lines_list
				  in_blocks_found_ss in_blocks_list
			  )
	(setq blocks_sset (ssadd)
		  in_ex_lines_list '()
		  in_blocks_found_list '()
		  ex_blocks_found_list '()
		  include_line_color 7  ;white
		  exclude_line_color 30 ;orange
		  block_name "Опора УБ"
	)
	(cond
		(
			(null (cadr (ssgetfirst)))
		  		(setq in_ex_lines_ss (ssget (list (cons 0 "LINE") (cons -4 "<or") (cons 62 include_line_color) (cons 62 exclude_line_color) (cons -4 "or>"))))
				(if in_ex_lines_ss (setq in_ex_lines_list (vl-remove-if '(lambda (list_member) (/= 'ename (type list_member))) (mapcar 'cadr (ssnamex in_ex_lines_ss)))))
		)
		(
			t
				(setq in_ex_lines_ss (cadr (ssgetfirst))
					  in_ex_lines_list (vl-remove-if '(lambda (list_member)
																		(or
																			(/= 'ename (type list_member))
																			(not
																				(and
																					(= "LINE" (cdr (assoc 0 (entget list_member))))
																					(or
																						(= include_line_color (cdr (assoc 62 (entget list_member))))
																						(= exclude_line_color (cdr (assoc 62 (entget list_member))))
																					)
																				)
																			)
																		)
														)
														(mapcar 'cadr (ssnamex in_ex_lines_ss))
										 )
				)
		)
	)
	(if in_ex_lines_list
		(progn
			(foreach line_entity in_ex_lines_list
				(setq in_blocks_found_ss (ssget "_f" (list
														(list
															  (car (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
															  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
														)
														(list
															  (car (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
															  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
														)
												  )
												  (list (cons 0 "INSERT"))
									  )
				)
				(if in_blocks_found_ss
					(progn
						(setq in_blocks_list (mapcar 'cadr (ssnamex in_blocks_found_ss)))
						(foreach block_entity in_blocks_list
							(if (= block_name (vla-get-effectivename (vlax-ename->vla-object block_entity)))
								(if (= include_line_color (cdr (assoc 62 (entget line_entity))))
									(setq in_blocks_found_list (cons block_entity in_blocks_found_list))
									(setq ex_blocks_found_list (cons block_entity ex_blocks_found_list))
								)
							)
						)
					)
				)
			)
			(foreach exclude_member ex_blocks_found_list 
				(setq in_blocks_found_list 
					(vl-remove-if '(lambda (in_blocks_found_list_member) 
										(equal exclude_member in_blocks_found_list_member)
								   ) 
								   in_blocks_found_list
					)
				)
			)
			(foreach block_entity in_blocks_found_list (setq blocks_sset (ssadd block_entity blocks_sset)))
			(princ (strcat "\nВыбрано блоков \"" block_name "\": " (itoa (sslength blocks_sset))))
			(sssetfirst nil blocks_sset)
			(setq blocks_sset nil)
		)
		(princ (strcat "\nвыбрано блоков \"" block_name "\": 0"))
	)
	(princ)
)
koMon вне форума  
 
Автор темы   Непрочитано 01.04.2019, 17:53
#36
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Цитата:
Сообщение от koMon Посмотреть сообщение
Offtop: L'appétit vient en mangeant.)
за изящность не скажу, но с добавкой будет так
Код:
[Выделить все] 
 
(defun c:CHCL ( / block_sset in_blocks_found_list ex_blocks_found_list
				  include_line_color exclude_line_color block_name
				  in_ex_lines_ss in_ex_lines_list
				  in_blocks_found_ss in_blocks_list
			  )
	(setq blocks_sset (ssadd)
		  in_ex_lines_list '()
		  in_blocks_found_list '()
		  ex_blocks_found_list '()
		  include_line_color 7  ;white
		  exclude_line_color 30 ;orange
		  block_name "Опора УБ"
	)
	(cond
		(
			(null (cadr (ssgetfirst)))
		  		(setq in_ex_lines_ss (ssget (list (cons 0 "LINE") (cons -4 "<or") (cons 62 include_line_color) (cons 62 exclude_line_color) (cons -4 "or>"))))
				(if in_ex_lines_ss (setq in_ex_lines_list (vl-remove-if '(lambda (list_member) (/= 'ename (type list_member))) (mapcar 'cadr (ssnamex in_ex_lines_ss)))))
		)
		(
			t
				(setq in_ex_lines_ss (cadr (ssgetfirst))
					  in_ex_lines_list (vl-remove-if '(lambda (list_member)
																		(or
																			(/= 'ename (type list_member))
																			(not
																				(and
																					(= "LINE" (cdr (assoc 0 (entget list_member))))
																					(or
																						(= include_line_color (cdr (assoc 62 (entget list_member))))
																						(= exclude_line_color (cdr (assoc 62 (entget list_member))))
																					)
																				)
																			)
																		)
														)
														(mapcar 'cadr (ssnamex in_ex_lines_ss))
										 )
				)
		)
	)
	(if in_ex_lines_list
		(progn
			(foreach line_entity in_ex_lines_list
				(setq in_blocks_found_ss (ssget "_f" (list
														(list
															  (car (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
															  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
														)
														(list
															  (car (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
															  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
														)
												  )
												  (list (cons 0 "INSERT"))
									  )
				)
				(if in_blocks_found_ss
					(progn
						(setq in_blocks_list (mapcar 'cadr (ssnamex in_blocks_found_ss)))
						(foreach block_entity in_blocks_list
							(if (= block_name (vla-get-effectivename (vlax-ename->vla-object block_entity)))
								(if (= include_line_color (cdr (assoc 62 (entget line_entity))))
									(setq in_blocks_found_list (cons block_entity in_blocks_found_list))
									(setq ex_blocks_found_list (cons block_entity ex_blocks_found_list))
								)
							)
						)
					)
				)
			)
			(foreach exclude_member ex_blocks_found_list 
				(setq in_blocks_found_list 
					(vl-remove-if '(lambda (in_blocks_found_list_member) 
										(equal exclude_member in_blocks_found_list_member)
								   ) 
								   in_blocks_found_list
					)
				)
			)
			(foreach block_entity in_blocks_found_list (setq blocks_sset (ssadd block_entity blocks_sset)))
			(princ (strcat "\nВыбрано блоков \"" block_name "\": " (itoa (sslength blocks_sset))))
			(sssetfirst nil blocks_sset)
			(setq blocks_sset nil)
		)
		(princ (strcat "\nвыбрано блоков \"" block_name "\": 0"))
	)
	(princ)
)
Большое спасибо!
aafeoktistov вне форума  
 
Автор темы   Непрочитано 03.04.2019, 18:00
#37
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Господа! Возникла новая проблема, помогите плз.

Как добавить в этот лисп чтобы блоки выделялись только при пересечении линии (line) черного цвета (7) (любой длины) и линии (line) черного цвета, но с длиной 3.3. Никак не могу найти чтобы можно было использовать 2 свойства...

Заранее спасибо!

Пока lisp выглядит так

Код:
[Выделить все] 
 (defun c:CHCL10 ( / block_sset in_blocks_found_list ex_blocks_found_list
				  include_line_color exclude_line_color block_name
				  in_ex_lines_ss in_ex_lines_list
				  in_blocks_found_ss in_blocks_list
			  )
	(setq blocks_sset (ssadd)
		  in_ex_lines_list '()
		  in_blocks_found_list '()
		  ex_blocks_found_list '()
		  include_line_color 7  ;white
		  exclude_line_color 30 ;orange
		  block_name "Имя блока"
	)
	(cond
		(
			(null (cadr (ssgetfirst)))
		  		(setq in_ex_lines_ss (ssget (list (cons 0 "LINE") (cons -4 "<or") (cons 62 include_line_color) (cons 62 exclude_line_color) (cons -4 "or>"))))
				(if in_ex_lines_ss (setq in_ex_lines_list (vl-remove-if '(lambda (list_member) (/= 'ename (type list_member))) (mapcar 'cadr (ssnamex in_ex_lines_ss)))))
		)
		(
			t
				(setq in_ex_lines_ss (cadr (ssgetfirst))
					  in_ex_lines_list (vl-remove-if '(lambda (list_member)
																		(or
																			(/= 'ename (type list_member))
																			(not
																				(and
																					(= "LINE" (cdr (assoc 0 (entget list_member))))
																					(or
																						(= include_line_color (cdr (assoc 62 (entget list_member))))
																						(= exclude_line_color (cdr (assoc 62 (entget list_member))))
																					)
																				)
																			)
																		)
														)
														(mapcar 'cadr (ssnamex in_ex_lines_ss))
										 )
				)
		)
	)
	(if in_ex_lines_list
		(progn
			(foreach line_entity in_ex_lines_list
				(setq in_blocks_found_ss (ssget "_f" (list
														(list
															  (car (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
															  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'startpoint))
														)
														(list
															  (car (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
															  (cadr (vlax-get (vlax-ename->vla-object line_entity) 'endpoint))
														)
												  )
												  (list (cons 0 "INSERT"))
									  )
				)
				(if in_blocks_found_ss
					(progn
						(setq in_blocks_list (mapcar 'cadr (ssnamex in_blocks_found_ss)))
						(foreach block_entity in_blocks_list
							(if (= block_name (vla-get-effectivename (vlax-ename->vla-object block_entity)))
								(if (= include_line_color (cdr (assoc 62 (entget line_entity))))
									(setq in_blocks_found_list (cons block_entity in_blocks_found_list))
									(setq ex_blocks_found_list (cons block_entity ex_blocks_found_list))
								)
							)
						)
					)
				)
			)
			(foreach exclude_member ex_blocks_found_list 
				(setq in_blocks_found_list 
					(vl-remove-if '(lambda (in_blocks_found_list_member) 
										(equal exclude_member in_blocks_found_list_member)
								   ) 
								   in_blocks_found_list
					)
				)
			)
			(foreach block_entity in_blocks_found_list (setq blocks_sset (ssadd block_entity blocks_sset)))
			(princ (strcat "\nВыбрано блоков \"" block_name "\": " (itoa (sslength blocks_sset))))
			(sssetfirst nil blocks_sset)
			(setq blocks_sset nil)
		)
		(princ (strcat "\nвыбрано блоков \"" block_name "\": 0"))
	)
	(princ)
)
----- добавлено через ~3 мин. -----
Подумал вот, достаточно будет если будет выделяться блок при пересечении с линией (line) определенного цвет (7) и длины (3.3). Т.е получается в каком то роде это упрощение предыдущего лиспа, но я никак не могу понять как объединить 2 свойства одной линии (цвет и длину).
Последний раз редактировалось aafeoktistov, 03.04.2019 в 18:26. Причина: неправильный лисп
aafeoktistov вне форума  
 
Непрочитано 05.04.2019, 14:20
#38
tsetse

Инженер-конструктор
 
Регистрация: 25.12.2015
Москва
Сообщений: 77

Цитата:
Сообщение от aafeoktistov Посмотреть сообщение
Господа! Возникла новая проблема, помогите плз.

Как добавить в этот лисп чтобы блоки выделялись только при пересечении линии (line) черного цвета (7) (любой длины) и линии (line) черного цвета, но с длиной 3.3. Никак не могу найти чтобы можно было использовать 2 свойства...
Подумал вот, достаточно будет если будет выделяться блок при пересечении с линией (line) определенного цвет (7) и длины (3.3). Т.е получается в каком то роде это упрощение предыдущего лиспа, но я никак не могу понять как объединить 2 свойства одной линии (цвет и длину).
Выложи dwg, на котором тестировать можно
tsetse вне форума  
 
Автор темы   Непрочитано 05.04.2019, 15:49
#39
aafeoktistov


 
Регистрация: 26.02.2019
Сообщений: 49

Цитата:
Сообщение от tsetse Посмотреть сообщение
Выложи dwg, на котором тестировать можно
Прикрепил

Нужно добиться того, чтобы блоки выделялись только при пересечении с линиями цвета 7 и длиной 3.3

в другой моей теме был предложен такой вариант, но он почему то не работает, выделяются вообще ВСЕ блоки...

Код:
[Выделить все] 
  (defun c:chcl ()
	(setq blocks_sset (ssadd)
	      seek_block_line_color 7 ;white
		  seek_block_line_length 3.3
	      seek_block_name "Имя блока"
	)
	(cond
	    (
	        (null (cadr (ssgetfirst)))
	            (setq seek_lines_ss (ssget (list (cons 0 "LINE") (cons 62 seek_block_line_color))))
	    )
	    (
	        t
	            (setq seek_lines_ss (cadr (ssgetfirst)))
	    )
	)
	(if seek_lines_ss
		(progn
			(while (not (zerop (sslength seek_lines_ss)))
				(if (= "LINE" (cdr (assoc 0 (entget (ssname seek_lines_ss 0)))))
	    	    	(if (setq blocks_found_ss (ssget "_f" (list
	    	    	                                      	(vlax-get (vlax-ename->vla-object (ssname seek_lines_ss 0)) 'startpoint)
	    	    	                                        (vlax-get (vlax-ename->vla-object (ssname seek_lines_ss 0)) 'endpoint)
	    	    	                                  	  )
	    	    	                                  	  (list (cons 0 "INSERT"))
	    	    	    				  	  )
						)
	    	    	    (progn
	    	    	        (setq blocks_found_list (mapcar 'cadr (ssnamex blocks_found_ss)))
	    	    	        (if blocks_found_list
	    	    	            (foreach block_entity blocks_found_list
	    	    	                (if (and
											(= seek_block_name (vla-get-effectivename (vlax-ename->vla-object block_entity)))
											(equal seek_block_line_length (vla-get-length (vlax-ename->vla-object (ssname seek_lines_ss 0))) 1e-4)
										)
	    	    	                    (setq blocks_sset (ssadd block_entity blocks_sset))
	    	    	                )
	    	    	            )
	    	    	        )
	    	    	    )
					)
				)
				(setq seek_lines_ss (ssdel (ssname seek_lines_ss 0) seek_lines_ss))
			)
			(sssetfirst nil blocks_sset)
		)
	)
	(princ)
)
Вложения
Тип файла: dwg
DWG 2013		 Для_теста.dwg (385.9 Кб, 2 просмотров)
aafeoktistov вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Выбор определенного блока, при пересечении с линией нужного цвета



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Быстрый выбор нужного слоя dim5678 AutoCAD 23 29.02.2024 23:03
Выбор атрибута (площади) по возрастанию и затем нумерация блока koskos LISP 2 02.10.2016 21:24
Как при пересечении двух линий сделать установку нужного блока в месте пересечения 128500 Программирование 34 07.10.2014 11:06
Копирование нужного атрибута блока в другой блок. Alexeipost Программирование 4 25.05.2011 09:33
Привязка только к объектам определенного цвета Torino AutoCAD 30 29.03.2004 15:56

Обратная связь - Вверх