[IzotovAnton]

Несколько дней уже бьюсь над проблемой, в LISP не силён от слова "совсем". Задача стоит следующая: есть динамический блок "розетка" с разными состояниями видимости "одинарная", "двойная", "тройная" и т.д. Пытаюсь данный блок вписать на горячие клавиши, чтобы на одно сочетание клавиш вставлялся блок "розетка" с видимостью "одинарная", а на другое сочетание клавиш вставлялся блок "розетка" с видимостью "двойная".

[Кулик Алексей aka kpblc]

Сначала вставить, а потом уже менять видимости и / или любые другие параметры.

[IzotovAnton]

А как это можно сделать через LISP или командную строку?

[Кулик Алексей aka kpblc]

Вставил, получил указатель на вставленный блок, дальше смотреть его свойства и методы. М.б., для старта подойдет https://autolisp.ru/2014/06/27/dynblocks-parameters/ и ссылки оттуда.

----- добавлено через 59 сек. -----
Приведи свой код, и скажи, в каком месте затык.

[Сергей812]

если

Сообщение от IzotovAnton в LISP не силён от слова "совсем".

может наделать вариантов блоков в палитру?

[IzotovAnton]

Спасибо, буду пробовать!

[Nike]

https://lee-mac.com/dynamicblockfunc...namicpropvalue

Код:

[Выделить все]

 ;; Set Dynamic Block Property Value  -  Lee Mac
;; Modifies the value of a Dynamic Block property (if present)
;; blk - [vla] VLA Dynamic Block Reference object
;; prp - [str] Dynamic Block property name (case-insensitive)
;; val - [any] New value for property
;; Returns: [any] New value if successful, else nil

(defun LM:setdynpropvalue ( blk prp val )
    (setq prp (strcase prp))
    (vl-some
       '(lambda ( x )
            (if (= prp (strcase (vla-get-propertyname x)))
                (progn
                    (vla-put-value x (vlax-make-variant val (vlax-variant-type (vla-get-value x))))
                    (cond (val) (t))
                )
            )
        )
        (vlax-invoke blk 'getdynamicblockproperties)
    )
)

Применение

Код:

[Выделить все]

 
(LM:setdynpropvalue (vlax-ename->vla-object (entlast)) "Видимость1" "5я-3х2.5")

[IzotovAnton]

Оно РАБОТАЕТ!!!! Спасибо огромное!!! Вы сделали мой день!