[BM60]

Ну наконец-то, не мытьем, так катаньем, получилось.
На 2Д-модели.
И виды на ВЭ'ах, и масштабы, и надписи, и форматка.
И даже твердая копия.
Вот!

... Но это не значит, что мои вопросы иссякли.
То ли ишшшо будет...

[forMA]

Сообщение от Сергей Богатов Зачем-то плодят кучу файлов...

Возможно для архива?

[Сергей Богатов]

Сообщение от Бубырь-UA Возможно для архива?

Ну "готовое" - для архива... А вот "на_печать"?

Вобщем я думаю, что люди могут работать по разному и "помойку" можно наблюдать везде где есть человек. Не только в чертежах

Про себя:
Сейчас в Автокаде пользуюсь листами и подшивкой. 1 комплект = 1 подшивка. Создание вариантов, архивирование, печать, автоподпись, простановка "изм." и т.п завязаны на подшивку. Однако удобно, красиво и быстро. Правда пришлось "прикрутить" некоторые функции с помощью программирования. В стандартном варианте кое чего не хватает

[Stierlitz]

чисто злободневный архитектурный вопрос...
в соответствии с постановлением №87
архитектурные вопросы освещаются как в АР так и в КР, в результате появляется КР1 для архитекторов, КР2 для конструкторов

по делу:
планы делаются в модели, на них наносится вся необходимая проектная информация
в АР планы с экспликацией без размеров
в КР1 планы с размерами
все фильтруется через заморозку слоев во вьюпортах
===
попробуйте повторить в модели
===
в ГП примерно так же все делают зачастую
===
на про масштабы уже сказали

[Агент СмиТ]

Сижу, клепаю схему трассы на 50 листов (соответственно и 50 видовых экранов). Кто-нибудь подскажите пожалуйста команду (или системную переменную) для разблокирования/блокирования видовых экранов во всех вкладках листов зараз?

[Nike]

Сообщение от Агент СмиТ подскажите пожалуйста команду (или системную переменную) для разблокирования/блокирования видовых экранов во всех вкладках листов зараз?

Код:

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

 (defun c:LV (/ CME CNT DPL *ERROR* OP SSG)
  (setq *ERROR* *cdl-error*
        CME (getvar "CMDECHO")
  );;setq
  (setvar "CMDECHO" 0)
  (if (= (getvar "TILEMODE") 1) (setvar "TILEMODE" 0))
  (command "_.pspace")
  (setq SSG (ssget "_X" (list (cons 0 "VIEWPORT")))
	CNT 0
  );;setq
  (initget "Yes No")
  (setq OP (getkword "Display locked [Yes/No] <Y>: "))
  (cond
    ((or (= OP nil) (= OP "Yes"))
      (repeat (sslength SSG)
        (get-objects)	
	(vla-put-DisplayLocked DPL :vlax-true)
      );;repeat
      (prompt "\n\tAll Viewports Locked...!")
    );;"Yes"
    ((= OP "No")
      (repeat (sslength SSG)
	(get-objects)
	(vla-put-DisplayLocked DPL :vlax-false)
      );;repeat
      (prompt "\n\tAll Viewports Unlocked...!")
    );;"No"
  );;cond
  
  (setvar "CMDECHO" CME)
  (princ)
);;C:LV

[Агент СмиТ]

То Nike, тестил лисп, в первый раз он заблокировал видовой экран в активном листе, в остальных листах без изменений.
После перезапуска акада и повторной загрузки лиспа попробовал запустить из пространства модели.
Выдало следующее:

Код:

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

Команда: _LV
Выполняется регенерация листов.
Выполняется регенерация листов.
Выполняется регенерация модели.
Display locked [Yes/No] <Y>: Y
; ошибка: no function definition: GET-OBJECTS

P.S. Работаю в AutoCad 2011x64

[Oliver_88]

Сообщение от Агент СмиТ Кто-нибудь подскажите пожалуйста команду (или системную переменную) для разблокирования/блокирования видовых экранов во всех вкладках листов зараз?

Агент СмиТ, а как быть с ВЭ находящимися на блокированных слоях?

[perpetule]

А мне вот для полного счастья не хватает команды ЭКСПОРТВЭ для всех листов в подшивке ...

Искал с год назад такую сист. переменную, потом плюнул, просто повесил иконки блокировать разблокировать сверху на панель, стандартная - далеко расположена.

[Агент СмиТ]

Oliver_88

Сообщение от Oliver_88 Агент СмиТ, а как быть с ВЭ находящимися на блокированных слоях?

Думаю блокирование слоя с ВЭ не влияет на возможность блокирования/разблокирования самого видового экрана, что можно это проверить в прилагаемом ниже файле (AutoCad 2010). Исключение может составить случай нахождения ВЭ в слое "Defpoints", но это уже определяется особеностями самого слоя (подробнее см. здесь).

[Oliver_88]

Агент СмиТ, в твоём файле выделяю ВЭ и в свойствах пытаюсь установить значение "Показ блокированного" в "Нет" на что в ответ появляется окошко
(см. скрин). Ну и соотвественно как было там "Да" так и осталось. Или я чегой-то не так делаю?кад 2012.

[VVA]

Сообщение от Агент СмиТ для разблокирования/блокирования видовых экранов во всех вкладках листов зараз?

Nike, не хватает ф-ции (get-objects)
Мне больше требовалось блокировать ВЭ для разблокировки заменить
(vla-put-displaylocked obj :vlax-true) на (vla-put-displaylocked obj :vlax-false)

Код:

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

(defun c:vpL (/ vpLayer lay obj result id1 cl pl)
;;; ViewPort Locked
  (vl-load-com)
  (setq vpLayer "_Viewport")
  (or (tblsearch "layer" vpLayer)
      (command "_-LAYER" "_N" vpLayer "_c" 5 vpLayer "_plot" "_no" vpLayer "")
      )
  (vlax-for lay (vla-get-layouts
                  (vla-get-activedocument (vlax-get-acad-object))
                ) ;_ end of vla-get-layouts
    (setq id1 nil) 
    (if (eq :vlax-false (vla-get-modeltype lay))
      (progn
        (princ (strcat "\n*** Лист - " (vla-get-name lay) "  ***"))
        (vlax-for obj (vla-get-block lay)         ; for each obj in layout
          (if (and (= (vla-get-objectname obj) "AcDbViewport")
                   (vlax-write-enabled-p obj)
                   (or id1 (not (setq id1 t))) ;_Пропускаем первый ВЭ
              ) ;_ end of and
            (progn
              (vla-put-layer obj vpLayer)
              (vla-put-color obj acbylayer)
              (vla-put-displaylocked obj :vlax-true) ;;;Блокировка
              ;;;Разблокировка
              ;;; (vla-put-displaylocked obj :vlax-false)
              (if (and (setq pl
                              (cdr (assoc 340
                                          (entget (vlax-vla-object->ename obj))
                                   ) ;_ end of assoc
                              ) ;_ end of cdr
                       ) ;_ end of setq
                       (setq pl (vlax-ename->vla-object pl))
                       (vlax-write-enabled-p pl)
                  ) ;_ end of and
                (progn
                  (vla-put-layer pl vpLayer)
                  (vla-put-color pl acbylayer)
                ) ;_ end of progn
              ) ;_ end of if
            ) ;_ end of progn
          ) ;_ end of if
        ) ;_ end of vlax-for
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of vlax-for
  (princ)
)

[Агент СмиТ]

Твоя правда, ещё раз протестил собственный файл и понял, что сам написал в 469 посте не о блокировке, а об открытии ВЭ (мысль случайно перескочила ). Возвращаясь к твоему вопросу из 467 поста, отвечу, что я привык работать, когда все ВЭ во всех лайаутах лежат в одном слое, потому о состоянии блокировки слоёв просто не подумал.

P.S. Впрочем, мой вопрос (#464) пока так и остаётся открытым, и буду очень признателен за помощь в его решении!

P.S.S. Пока сочинял ответ, обсуждение уже пошло дальше! Протестил Ваш код, VVA: отлично блокируются ВЭ на всех листах, однако при этом самопроизвольно появляется слой "_Viewport" и все ВЭ сливаются на этот слой вне зависимости от своей "блокированности".

[Oliver_88]

Агент СмиТ, лови. Команда viewsblk. Не действует на ВЭ лежащие на блокированных слоях.

[VVA]

Сообщение от Агент СмиТ что я привык работать, когда все ВЭ во всех лайаутах лежат в одном слое,

Сообщение от Агент СмиТ Протестил Ваш код, VVA: отлично блокируются ВЭ на всех листах, однако при этом самопроизвольно появляется слой "_Viewport"

Замени в строке (setq vpLayer "_Viewport") на имя твоего слоя

[Агент СмиТ]

Всё работает отлично, спасибо огромное!!!
Если тебя не затруднит, может прикрутишь сюда ещё и возможность выбора масштабов ВЭ на разблокированных слоях, т.к. нередко при работе в модели из пространства листа, масштаб ВЭ немного сбивается. Соответственно ВЭ разных масштабов (если таковые имеются) можно будет разносить по разным слоям и управлять ими раздельно!

To VVA Прописал имя слоя в коде, теперь при работе команды создаётся слой с правильным именем, но при этом ВЭ расположенные и на этом и на другом слое, там и остаются, но не блокируются.

[Oliver_88]

Сообщение от Агент СмиТ возможность выбора масштабов ВЭ на разблокированных слоях

Т.е. ввел команду->запрос масштаба->ввел нужный масштаб->во всех ВЭ лежащих на разблокированных слоях устанавливается нужный масштаб?
P.S. менять масштаб пользовательский или стандартный?

[Агент СмиТ]

Сообщение от Oliver_88 Т.е. ввел команду->запрос масштаба->ввел нужный масштаб->во всех ВЭ лежащих на разблокированных слоях устанавливается нужный масштаб? P.S. менять масштаб пользовательский или стандартный?

Да, после запуска предлагается блокировать/разблокировать все ВЭ лежащих на разблокированных слоях,
3-я строчка - выбрать масштаб ВЭ лежащих на разблокированных слоях.
Если на разблокированных слоях нет ВЭ - сообщение, где предлагается разблокировать слой с ВЭ (вручную, заодно пользователь проверит где лежат ВЭ).
Если ВЭ лежат в разблокированных слоях, выводится список стандартных масштабов.

Считаю, что список масштабов нагляднее, к тому же его можно редактировать (меню Формат-> Список масштабов)

[VVA]

Агент СмиТ, Как-то не логично у тебя получается

Сообщение от Агент СмиТ я привык работать, когда все ВЭ во всех лайаутах лежат в одном слое

Сообщение от Агент СмиТ Да, после запуска предлагается блокировать/разблокировать все ВЭ лежащих на разблокированных слоях,

Слой у ВЭ должен быть один (пока не знаю причин, почему их должно быть несколько). Мой лисп переносит все ВЭ на один слой и включает блокировку ВЭ. Если у тебя что-то не получается, то выложи твой исправленный вариант и файл с ВЭ.

[Агент СмиТ]

До сих пор держал все ВЭ на одном слое (вместе с прочими элементами оформления в пространстве листа), однако вчера Oliver_88 натолкнул меня на следующую мысль: в процессе работы над созданием схемы бывают случаи, когда необходимо в одном файле создавать ВЭ разных масштабов (например в графических приложениях к межевому плану земельного участка может 3 и более масштаба ВЭ), так вот, если разнести ВЭ каждого масштаба на отдельный слой, то при помощи программы Oliver_88 (которую он я надеюсь доработает) можно будет управлять масштабом и блокировкой ВЭ различных масштабов! Ведь на душе гораздо спокойней, когда уверен, что каждый из 2х-3х десятков ВЭ в нужном масштабе и заблокирован.

[VVA]

Я не понимаю для чего нужно

Сообщение от Агент СмиТ разнести ВЭ каждого масштаба на отдельный слой,