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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Изменение параметра видимости для динамического блока на листах

Изменение параметра видимости для динамического блока на листах

Ответ
Поиск в этой теме
Непрочитано 25.11.2020, 11:56 #1
Изменение параметра видимости для динамического блока на листах
Obuxov
 
Регистрация: 26.03.2019
Сообщений: 2

Доброго времени суток!

Пробую написать программу, которая изменяла бы видимость в динамическом блоке на листах. (а может уже есть такая и я не смог найти, ткните пальцем пожалуйста)
Есть блок "Рамка" который расположен на листах, листов много 50-100, и что-бы не заходить на каждый лист и переключать видимость блока нужен Lisp.

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

Есть функции у Lee Mac:
Получить состояние видимости динамического блока

Код:
[Выделить все]
 
;; Get Dynamic Block Visibility State  -  Lee Mac
;; Returns the value of the Visibility Parameter of a Dynamic Block (if present)
;; blk - [vla] VLA Dynamic Block Reference object
;; Returns: [str] Value of Visibility Parameter, else nil

(defun LM:getvisibilitystate ( blk / vis )
    (if (setq vis (LM:getvisibilityparametername blk))
        (LM:getdynpropvalue blk vis)
    )
)
Установить состояние видимости динамического блока

Код:
[Выделить все]
 
;; Set Dynamic Block Visibility State  -  Lee Mac
;; Sets the Visibility Parameter of a Dynamic Block (if present) to a specific value (if allowed)
;; blk - [vla] VLA Dynamic Block Reference object
;; val - [str] Visibility State Parameter value
;; Returns: [str] New value of Visibility Parameter, else nil

(defun LM:SetVisibilityState ( blk val / vis )
    (if
        (and
            (setq vis (LM:getvisibilityparametername blk))
            (member (strcase val) (mapcar 'strcase (LM:getdynpropallowedvalues blk vis)))
        )
        (LM:setdynpropvalue blk vis val)
    )
)
Помогите собрать рабочий Lisp.
Просмотров: 643
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Изменение параметра видимости для динамического блока на листах

Реверс. Автоматическая пакетная печать множества рамок (форматов) из пространства модели и листов
Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Изменение отражённого состояния динамического блока Evgivachev .NET 9 24.03.2018 13:46
Взрыв динамического блока внутри динамического блока AlexZh Динамические блоки 18 09.10.2017 16:55
Как присвоить тексту в блоке значение параметра блока? Ivansobaka AutoCAD 1 08.10.2014 12:20
Изменение параметра атрибута в нескольких вхождениях блока Sfinks7s1 AutoCAD 1 07.10.2014 16:34
Изменение параметров дин блока ch-viktor Программирование 5 23.05.2008 21:38