|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
![]() |
Поиск в этой теме |
![]() |
#1 | |
Визуальный поиск на экране прокси-объектов, предварительно выделенных
Проектировщик
Воронеж
Регистрация: 28.10.2009
Сообщений: 331
|
||
Просмотров: 1891
|
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 40,406
|
Системная переменная highlight чему равна?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
![]() |
|
||||
Проектировщик Регистрация: 28.10.2009
Воронеж
Сообщений: 331
![]() |
|
|||
![]() |
|
||||
Регистрация: 25.03.2008
Зелик
Сообщений: 1,600
|
Выделить - перенести на отдельный слой - изолировать слой
PS Где-то встречал лисп, который делал из слоя мигалку. Очень наглядно. Не нашел с ходу. + PPS Нашел другой. Гасит онлайн все, кроме слоя, на который указываем мышом. Если есть выделенные объекты, то они тоже гасятся, но от них остаются грипсы. (defun c:hl2 (/ ss->list re-draw CODE ENT GR LAY LLST NSS NULLST OBJLST) (vl-load-com) ;; Lee Mac ~ 08.01.10 (vlax-map-collection (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))) (function (lambda (x) (setq llst (cons x llst))))) (defun ss->list (ss / i ent lst) (setq i -1) (while (setq ent (ssname ss (setq i (1+ i)))) (setq lst (cons ent lst))) lst) (defun re-draw (lst code) (mapcar (function (lambda (x) (redraw x code))) lst)) (princ "\nMove Cursor Over Objects....") (while (and (= 5 (car (setq gr (grread 't 4 2)))) (listp (cadr gr))) (if (setq ent (car (nentselp (cadr gr)))) (progn (setq lay (cdr (assoc 8 (entget ent))) ObjLst (ss->list (ssget "_X" (list (cons 8 lay))))) (re-draw ObjLst 3) (if (setq nss (ssget "_X" (list (cons -4 "<NOT") (cons 8 lay) (cons -4 "NOT>")))) (progn (setq NulLst (ss->list nss)) (re-draw NulLst 2)))) (progn (and ObjLst (re-draw ObjLst 4)) (and NulLst (re-draw NulLst 1))))) (and ObjLst (re-draw ObjLst 4)) (and NulLst (re-draw NulLst 1)) (if (listp (cadr gr)) (if (setq ent (car (nentselp (cadr gr)))) (progn (setq lay (strcase (cdr (assoc 8 (entget ent))))) (mapcar (function (lambda (layer) (vla-put-layeron layer (if (eq lay (strcase (vla-get-name layer))) :vlax-true :vlax-false)))) llst)))) (princ))
__________________
* Буква "ё" не используется в тексте исключительно в связи с требованиями ЕСКД. Последний раз редактировалось CaMoCAD, 10.09.2014 в 10:36. |
|||
![]() |
|
||||
Постройка Гаражей и Сараев Регистрация: 30.08.2014
Хабаровск
Сообщений: 67
|
|
|||
![]() |
![]() |
|
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Серия ИИ-03-02 Железобетонные изделия | Клименко Ярослав | Поиск литературы, чертежей, моделей и прочих материалов | 46 | 10.07.2024 13:20 |
Разработка ПОС, искусство проектирования | Tyhig | Технология и организация строительства | 117 | 25.11.2021 17:38 |
Аттестация в Минрегионе по негосударственной экспертизе | Людмила Охр | Прочее. Архитектура и строительство | 350 | 14.02.2015 17:50 |
Как получить спецификацию (таблицу с характеристиками) выделенных объектов? | Taurustau | AutoCAD | 38 | 12.09.2014 21:54 |
Получение суммарной величины общего свойства для несольких выделенных объектов | МишаИнженер | AutoCAD | 7 | 04.08.2011 15:44 |