[klopius]

Уважаемые лисповоды и программеры !!
Нужен лисп или макрос который переводит все видовые экраны в открытом файле на всех листах в режим hidden.
...
Просто надоел баг какойто.
Ставишь скрытие на видовой экран, печатаешь все хорошо. Затем входишь опять в видовой экран сдвигаешь чего либо печатаешь и он уже не в хиддене а обычный.
Предпросмотр не предлагать печатаю паблишем и смотреть каждый лист помру...
...
имею автосад 2011 механиКАЛЛ.
...
спасибо.

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

Что значит "hidden"? Стиль печати hidden или выключить ВЭ?
В общем, смотри по коду - что тебе надо, то и оставляй:

Код:

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

 (vl-load-com)

(defun make-hide (/ 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)
      (if (wcmatch (strcase (vla-get-objectname ent) "*VIEWPORT*"))
        (progn
          (vl-catch-all-apply
            (function
              (lambda ()
                (vla-put-viewporton ent :vlax-false) ; выключение ВЭ
                (vla-put-shadeplot ent 2) ; hidden
                ) ;_ end of lambda
              ) ;_ end of function
            ) ;_ end of vl-catch-all-apply
          ) ;_ end of progn
        ) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[klopius]

Имел в виду стиль печати. А не отключение экранов.
Лисп попробую....
Спасибо за ответ..

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

Тогда из кода удали строку (vla-put-viewporton ent :vlax-false) ; выключение ВЭ

[klopius]

Блин... я стара и глуповата, где же здесь мои котята?
..
1 строку (12) удалил
2 закинул в тхт
3 переименовал в лсп
4 закинул в папку с кадом
5 загрузил в автолисп
6 в командной стороке вбиваю: make-hide
7 неизвестная команда "MAKE-HIDE". Для вызова справки нажмите F1.
....
Где я оступился?

[TararykovDG]

klopius, make-hide написано в виде функции, а не команды, и вызыват ее надо как функцию, т.е. со скобками (make-hide). Или к коде исправь

Код:

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

(defun make-hide (/ adoc)
...

на это

Код:

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

(defun c:make-hide (/ adoc)
...

Тогда make-hide будет комадной и можно будет вызывть ее без скобок, просто make-hide

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

klopius, если будет время и желание: http://dwg.ru/pub/9
Много лиспов публикуется именно в виде функций... А то и с параметрами

[klopius]

Спасибо попробую.
Про функцию первый раз слышу, на столько не углублялся )))
Я не матерый старик-лисповик )))
Но многое побрал с этого сайта.
///
Вот попробывал
ни чего не выходит
может надо не только 12-ю строку удалить ?
запускал и функцией и командой...
///
говорят _$
ошика: слишком много аргументов: (IF (WCMATCH (STRCASE (vla-get-ObjectName ENT) "*VIEWPORT*")) 8 (PROGN 9 (VL-CATCH-ALL-APPLY 10 (FUNCTION 11 (LAMBDA nil 13 (vla-put-ShadePlot ENT 2) 14) 15) 16) 17) 18)

[5hev]

Капитан очевидность предполагает, что Вы скопировали сурс прямо с номерами строк!

[gomer]

я бы назвал команду vphide и обязательно написАл обратную - vpshow на основе предложенной функции, только с булевым аргументом

[klopius]

опять я
оставил

Код:

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

 (vl-load-com)
	 
	(defun make-hide (/ 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)
	      (if (wcmatch (strcase (vla-get-objectname ent) "*VIEWPORT*"))
	        (progn
	          (vl-catch-all-apply
	            (function
	              (lambda ()
	                (vla-put-shadeplot ent 2) ; hidden
	                ) ;_ end of lambda
	              ) ;_ end of function
	            ) ;_ end of vl-catch-all-apply
	          ) ;_ end of progn
	        ) ;_ end of if
	      ) ;_ end of vlax-for
	    ) ;_ end of vlax-for
	  (vla-endundomark adoc)
	  (princ)
	  ) ;_ end of defun

говорят:
Команда: (make-hide)
; ошибка: слишком мало аргументов
...
начинаю плакать
...
в текстовый файл вставлял без нумерации строк

[Дима_]

Проверяй еще раз - код рабочий.

[klopius]

уф... мужчины
имею:

Код:

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

 (vl-load-com)
	 
	(defun make-hide (/ 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)
	      (if (wcmatch (strcase (vla-get-objectname ent) "*VIEWPORT*"))
	        (progn
	          (vl-catch-all-apply
	            (function
	              (lambda ()	                
	                (vla-put-shadeplot ent 2) ; hidden
	                ) ;_ end of lambda
	              ) ;_ end of function
	            ) ;_ end of vl-catch-all-apply
	          ) ;_ end of progn
	        ) ;_ end of if
	      ) ;_ end of vlax-for
	    ) ;_ end of vlax-for
	  (vla-endundomark adoc)
	  (princ)
	  ) ;_ end of defun

подгружаю в кад (2011 механикал) с расширением .lsp
в ком. строке пишу: (make-hide)
получаю: слишком мало аргументов
...
в авто лиспе
; предупреждение: слишком мало аргументов: (WCMATCH (STRCASE ( ... ) "*VIEWPORT*"))
...
где моя собака тут порылась?

[Дима_]

Байда какая-то с твоим компьютером - отключи все другие лиспы (может, какой умник, стандартную функцию переправил).

[VVA]

klopius,
Мне кажется вместо

Код:

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

(if (wcmatch (strcase (vla-get-objectname ent) "*VIEWPORT*"))

Должно быть

Код:

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

(if (wcmatch (strcase (vla-get-objectname ent)) "*VIEWPORT*")

[klopius]

VVA
спасибо.
держи плюсик к карме )))