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

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

Нужен Лисп для перевода цвета объекта

Ответ
Поиск в этой теме
Непрочитано 19.10.2004, 10:52
Нужен Лисп для перевода цвета объекта
ilka_t
 
Москва
Регистрация: 20.01.2004
Сообщений: 154

Нет ли у кого нибудь Лиспа чтобы можно было сделать следующе:

Есть разные объекты которые находятся в разных слоях и цвет у них стоит "по слою", а сделать чтобы у них стал цвет не "по слою" а стал цветом слоя.
Просмотров: 10760
 
Непрочитано 18.06.2012, 22:08
#21
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


A.Hillys, Возможно. Нужно только определиться, что делать, если в выборке объектов попадутся блоки?
Вариант:
1. Назначить вхождению блока свойства слоя
2. Пройтись по определению блока и сделать то же что и п.1
3. Если в блоке есть вхождение другого блока, то ... ?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 19.06.2012, 11:33
#22
A.Hillys


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


Для блока хорошо бы назначать его содержимому свойства слоя, так же.
Блоки второго уровня можно наверное, игнорировать, и далее применить bgtools:http://forum.dwg.ru/showthread.php?t...hlight=bgtools
A.Hillys вне форума  
 
Непрочитано 04.10.2013, 09:53
#23
Колян

Самозанятый КМ+КМД
 
Регистрация: 09.09.2004
Раменское
Сообщений: 1,852


Чтобы не плодить темы.
Нужен лисп, чтобы задавать цвет определенному набору уже существующих в файле слоев Standart - 252, beams -152, bolts - 130 и т.д.
Колян вне форума  
 
Непрочитано 05.10.2013, 15:00
1 | #24
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,090


для этого дела есть стандартный "диспетчер конфигураций слоев" из окна "слои". Один раз создать из настроенного файла, экспортировать в файл *.las, потом загружать во все нужные чертежи.
kp+ вне форума  
 
Непрочитано 24.01.2022, 13:02
#25
LRA007

Инженер-проектировщик
 
Регистрация: 19.02.2016
НиНо
Сообщений: 9


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Код:
[Выделить все]
 (vl-load-com)

(defun unnormalize (/ adoc)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for layout (vla-get-layouts adoc)
    (vlax-for ent (vla-get-block layout)
      (foreach prop '("color" "lineweight" "linetype")
        (vl-catch-all-apply
          (function
            (lambda ()
              (vlax-put-property ent
                                 prop
                                 (vlax-get-property (vla-item (vla-get-layers adoc) (vla-get-layer ent)) prop)
                                 ) ;_ end of vlax-put-property
              ) ;_ end of lambda
            ) ;_ end of function
          ) ;_ end of vl-catch-all-apply
        ) ;_ end of foreach
      ) ;_ end of vlax-for
    ) ;_ end of vlax-for
  (vla-regen adoc acallviewports)
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun
Лисп прекрасен, но есть небольшой вопрос,
цвета слоев стоят не стандартными номерами палитры, а РГБ вида 12,166,12, который после лиспа выставляется в 94, тот же зеленый, но другого оттенка,
можно как то сделать так чтобы он ловил полный цвет из всей палитры?
LRA007 вне форума  
 
Непрочитано 25.01.2022, 15:19
#26
koMon


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


Цитата:
Сообщение от LRA007 Посмотреть сообщение
можно как то сделать так чтобы он ловил полный цвет из всей палитры?
07 (foreach prop '("color" "lineweight" "linetype") -> 07 (foreach prop '("truecolor" "lineweight" "linetype")
koMon вне форума  
 
Непрочитано 25.01.2022, 15:48
#27
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Насколько я помню, не сработает - надо объявлять интерфейс для работы с RGB. Длинно и долго, а у меня сейчас с работой завал.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 25.01.2022, 16:00
#28
koMon


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


проверил, у меня сработало as is)
koMon вне форума  
 
Непрочитано 25.01.2022, 16:04
#29
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Значит, я ошибся
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Нужен Лисп для перевода цвета объекта

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

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