[VAV]

Помогите создать лисп открывающи/закрывающий циклически окно свойств одной командой.
По умолчанию в автокаде это комбинация контрл+1, но мне хотелось бы вызывать это обычным написанием команды в командной строке.
Макрос на эту комбинацию такой: $M=$(if,$(and,$(>,$(getvar,opmstate),0)),^C^C_propertiesclose,^C^C_properties)
Как его переделать в лисп?
Спасибо за помощь

[VVA]

как-то так

Код:

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

(defun C:POC()
(if(zerop(getvar "opmstate"))
  (if command-s (command-s "_properties")(command "_properties"))
  (if command-s (command-s "_propertiesclose")(command "_propertiesclose"))
)
(princ)
)

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

command? Может, лучше будет vl-cmdf или ввести доп.проверку на версию ACAD'a?

[VAV]

все работает. Огромное спасибо

----- добавлено через 57 сек. -----

Сообщение от Кулик Алексей aka kpblc command? Может, лучше будет vl-cmdf или ввести доп.проверку на версию ACAD'a

Т.е. этот лисп не во всех версиях автокада пойдет?

----- добавлено через ~6 мин. -----
хоть все и работает в командной строке появляются такие строки:
Команда: РОС
_properties
Команда: nil
Команда: РОС _propertiesclose
Команда: nil

----- добавлено через ~7 мин. -----
nil - это ведь значит, что какая-то ошибка присутствует?

[nolte]

а не проще повесить окно свойств всплывающим скажем справа. отвел мыху вправо и получил окно, убрал - окно исчезло.

[VVA]

Сообщение от VAV nil - это ведь значит, что какая-то ошибка присутствует?

нет. Обновил #2. Правда без проверки, надеюсь со скобками не напутал

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

Нну, если хочется тишины в ком.строке, то вот вариант:

Код:

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

 (vl-load-com)

(defun c:poc (/ adoc sysvar)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (setq sysvar (mapcar
                 (function
                   (lambda (x / tmp)
                     (setq tmp (getvar (car x)))
                     (setvar (car x) (cdr x))
                     (cons (car x) tmp)
                     ) ;_ end of LAMBDA
                   ) ;_ end of function
                 '(("menuecho" . 0)
                   ("cmdecho" . 0)
                   ("nomutt" . 1)
                   )
                 ) ;_ end of mapcar
        ) ;_ end of setq
  (if command-s
    (command-s (strcat "_.properties"
                       (if (zerop (getvar "opmstate"))
                         ""
                         "close"
                         ) ;_ end of if
                       ) ;_ end of strcat
               ) ;_ end of command-s
    (command (strcat "_.properties"
                     (if (zerop (getvar "opmstate"))
                       ""
                       "close"
                       ) ;_ end of if
                     ) ;_ end of strcat
             ) ;_ end of command
    ) ;_ end of if
  (foreach item sysvar
    (setvar (car item) (cdr item))
    ) ;_ end of foreach
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[Krieger]

Кулик Алексей aka kpblc,
А что за command-s такая? Чем отличается от coomand? Почему она после if без скобок, если это функция? У меня твой код ошибку выкидывает. После чего кад виснет.

[VVA]

Сообщение от Krieger А что за command-s такая?

Начни отсюда

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

Сообщение от Krieger Кулик Алексей aka kpblc, А что за command-s такая? Чем отличается от coomand? Почему она после if без скобок, если это функция? У меня твой код ошибку выкидывает. После чего кад виснет.

Я проверял в 2014 и 2015 - у меня не вис.

[Krieger]

Сообщение от Кулик Алексей aka kpblc Я проверял в 2014 и 2015 - у меня не вис.

Еще раз попробовал. Кад вывалил ошибку, но не повис. Повис редактор LISP. При попытке закрыть редактор - фатал эррор и вылетает вместе с кадом. Кад 2014.

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

Очень интересно... Ошибка, похоже, связана с ядром acad.exe и вряд ли лечится. У тебя SP установлен на 2014?

[Krieger]

Сообщение от Кулик Алексей aka kpblc Очень интересно... Ошибка, похоже, связана с ядром acad.exe и вряд ли лечится. У тебя SP установлен на 2014?

SP1

Короче:

Код:

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

 (defun c:pp()
(if (zerop (getvar "opmstate"))
  (vl-cmdf "_properties")
  (vl-cmdf "_propertiesclose"))
  )

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

Тоже вариант Но хотели тишину в ком.строке...

[Krieger]

Так тихо.

Код:

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

 (defun c:pp(/ ECHO adoc)
   (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
	(setq ECHO (getvar "CMDECHO"))
   	(setvar "CMDECHO" 0)
	(if (zerop (getvar "opmstate"))
  	(vl-cmdf "_properties")
  	(vl-cmdf "_propertiesclose"))
   	(setvar "CMDECHO" ECHO)
   	
   (vla-endundomark adoc)
   (princ)
  )

В ACAD20015 vl-cmdf работает без изменений?

[VAV]

Спасибо всем за помощь. Решил использовать код VVA из поста №2