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

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

Выделение примитивов по свойствам

Ответ
Поиск в этой теме
Непрочитано 19.04.2012, 13:32
Выделение примитивов по свойствам
hwarang
 
Регистрация: 24.03.2011
Сообщений: 56

Добрый день!
Подскажите, пожалуйста в следующем вопросе.
Импортирую в Autocad чертеж из другой программы (Компас). Типы, цвет, толщина линий у примитивов меня не устраивают. Кроме того, некоторые объекты вставляются блоками. Напр., у основной линии выставлены свойства:цвет - 0,0,255, тип линии - K5LT_BASIC, вес линии - 0,6 мм. Хотел написать макрос для кнопки, выполняющий следующую последовательность действий: Выделить все->взорвать->Выделить все->Быстрый выбор->По типу линии (напр., "K5LT_BASIС"). Выделенный набор переместить в слой "Основная", свойства поменять цвет - по слою, тип линии - по слою, вес линии - по слою. Дошел до пункта "Быстрый выбор" (диалоговое окно) и застопорился. Можно ли как-то передать параметры выбора или может быть есть какой-нибудь др. способ перебрать объекты на чертеже по конкретному свойству (возможно, использовать LISP?).
Просмотров: 7386
 
Непрочитано 03.05.2012, 11:56
1 | #21
ciril

САПР
 
Регистрация: 29.09.2011
СПб
Сообщений: 283


Код:
[Выделить все]
 (defun qsandmod	 (e00 / x00 x01 x02 x03 x04)
  (setq x00 -1)
  (and (setq x01 (ssget "_X" (list e00)))
       (repeat (sslength x01)
	 (setq x03 (cdr
		     (assoc -1
			    (setq x02 (subst '(8 . "Основная") (assoc 8 (setq x02 (entget (ssname x01 (setq x00 (1+ x00)))))) x02)))))
	 (foreach auxi	'(-1 330 5 6 62 370)
	   (and	(setq x04 (assoc auxi x02))
		(setq x02 (append (reverse (cdr (member x04 (reverse x02)))) (cdr (member x04 x02))))))
	 (and (entmake x02) (entdel x03))))
  (setq x01 nil))
попробуй так.
ciril вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Выделение примитивов по свойствам

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выделение примИтивов на слое одним кликом Alex79 AutoCAD 33 13.07.2011 13:53
LISP / AutoCAD2008 / Как программно снять выделение у примитивов, не используя sssetfirst TararykovDG LISP 7 14.01.2011 10:48
Выделение примитивов и вне области экрана монитора sergey12 AutoCAD 9 24.10.2010 18:11
Выделение общих примитивов и другие полезные программы BARS_1985 Программирование 21 22.11.2007 14:24
Выделение примитивов Spake AutoCAD 1 29.08.2003 08:59