[Witalij]

Акад 2006 рус.
В файле от 25 до 70 листов - все ярлыки листов на экране не видно, переключаться между листами геморно.

Пробовал программу Docbar (http://dwg.ru/dnl/3344, она открытые файлы располагает в виде ярлыков, как у листа), хочется что-то подобное, только для ярлыков листа, причём с возможностью расположения их в 2-3 ряда. Тогда можно будет отключить акадовские ярлыки.

Кто-нибудь подобное видел??

[dextron3]

ты читаешь мои мысли я точно такую же тему хотел открыть,..
у меня 120 листов мне бы в три ряда, сколько бы не было листов
все были видны на экране...

[T-Yoke]

Сообщение от Witalij Акад 2006 рус. В файле от 25 до 70 листов - все ярлыки листов на экране не видно, переключаться между листами геморно. Пробовал программу Docbar (http://dwg.ru/dnl/3344, она открытые файлы располагает в виде ярлыков, как у листа), хочется что-то подобное, только для ярлыков листа, причём с возможностью расположения их в 2-3 ряда...

Суровые у вас проекты, мне больше чем в 40 листов не удавалось развернуться. Обычно только кратким именем обходился 2-3 символа.
Хотя озвученная идея очень понравилась. Поспрашиваю у знатоков.

[Witalij]

Сообщение от T-Yoke Суровые у вас проекты, мне больше чем в 40 листов не удавалось развернуться. Обычно только кратким именем обходился 2-3 символа. Хотя озвученная идея очень понравилась. Поспрашиваю у знатоков.

Я листы нумерую 1, 2, 3..... - мельче ярлык уже нельзя...

[vvp]

Witalij,
интересно, а 10, 11 ... ?
вариант:
10 - q
11 - w
12 - e ....

[Profan]

В 2008-м есть другой способ отображения Layouts на экране. Если отключить строку с листами в рисунке, то в статусной строке список листов можно получить в виде вертикального столбца. Правда, количество строк в этом столбце ограничено и зависит от размера экрана и разрешения. Больше 60 строк на 22-дюймовом мониторе вывести не удалось. Предполагаю, что это глюк графической подсистемы AutoCAD'а. В 2006-м такой возможности нет. Однако, воспользовавшись функцией AutoLisp (Layoutlist) и функцией DCL List_Box можно составить несложную программу вывода списка листов в диалоговом окне... Хотел я написать такую программу, однако полемика в аналогичной теме на форуме caduser.ru как-то остудила мой пыл.

[isa]

А пользоваться таким инструментом как Sheet sets (подшивка) не пробовали?

[Startrek]

Там в левом уголочке где лайоуты стрелочки - по ним постукать мышкой и лайоуты двигаются

[Vova]

70 листов в одном файле. Я только тяжело вздыхаю, потому что спорить неохота уже. Неt у вас причин делать так, кроме неумения

[Хмурый]

Интересен размер таких монстроподобных файлов.

[Witalij]

Сообщение от Хмурый Интересен размер таких монстроподобных файлов.

Да нет никаких монстроподобных файлов!

На бот. сад остекление, проект, 57 листов, если именовать листы 1, 2, 3..., то на 40-й лист уже не видно...
В файле - стойки, ригеля, примыкания, узлы крепления... Фасадка AGS150 III группа.

Размер файла - 8800 кб!

Просто много разных стоек и ригелей.
P.S. Файл не тормозит, не зависает, просто НЕУДОБНО ярлычки листов перебирать.

[Хмурый]

Сообщение от Witalij Размер файла - 8800 кб!

Ну-ну, не кипятись. Спасибо за ответ.
Полазил по иностранным сайтам с программами и ничего не нашёл.

[Witalij]

Сообщение от Хмурый Ну-ну, не кипятись. Спасибо за ответ. Полазил по иностранным сайтам с программами и ничего не нашёл.

Не, я не кипячусь... Просто большинство здесь пишущих работают в строительстве непосредственно (бетон, метал И т. п.), а моя сфера - фасадное остекление... У нас в КБ даже ни разу не было такого, чтоб файл тормозил Асад - больше 12-15 мб файлов никогда не видел...
Читаю про тормозящий Акад, и думаю - вот люди работают - только шум стоит - сколько-жу е них всего в чертеже...

[Хмурый]

3D-моделирование ресурсоёмкая штука.

[Vova]

Пусть и не тормозит, но неудобно-же. Гораздо удобнее разделить на файлы и хранить их в одной папке. Кстати, 8 мег это в формате какого автокада?

[VVA]

Воспользовавшись идеей Profan'а что-то наваял

Код:

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

;;;Layout switch
(defun C:LS ( / _dwgru-get-user-dcl ret)
;;; ************************************************************************
;;; * Библиотека DWGruLispLib Copyright ©2008  DWGru Programmers Group
;;; *
;;; * _dwgru-get-user-dcl (Кандидат)
;;; *
;;; * Запрос значения у пользователя через диалоговое окно
;;; *
;;; *
;;; * 21/01/2008 Версия 0001. Редакция Владимир Азарко (VVA)
;;; ************************************************************************

(defun _dwgru-get-user-dcl (zagl info-list multi / fl ret dcl_id msg)
;|
* Запрос значения у пользователя через диалоговое окно
* Диалог формируется "налету"
* Параметры вызова:
    zagl - заголовок окна [String]
    info-list - список строковых значений[List of String]
    multi - t - разрешен множественный выбор, nil- нет
    
* Возвращает:
 Список выбранных строк или nil - отмена
* Пример
 (_dwgru-get-user-dcl "Укажите вариант" '("Первый" "Второй" "Третий") nil) ->("Первый") 
 (_dwgru-get-user-dcl "Укажите вариант" '("Первый" "Второй" "Третий") t) ->("Первый" "Второй") 
|;
  (if (null zagl)
    (setq zagl "Выбор")
    ) ;_ end if
  (setq fl (vl-filename-mktemp "dwgru" nil ".dcl"))
  (setq ret (open fl "w"))
  (mapcar '(lambda (x) (write-line x ret))
          (list "dwgru_msg : dialog { "
                (strcat "label=\"" zagl "\";")
                " :list_box {"
                "alignment=top ;"
                (if multi 
                "multiple_select = true ;"
                "multiple_select = false ;"
                  )
                "width=31 ;"
                (if (> (length info-list) 26)
                  "height= 26 ;"
                  (strcat "height= " (itoa (+ 3 (length info-list))) ";")
                  ) ;_ end of if
                "is_tab_stop = false ;"
                "key = \"info\";}"
                "ok_cancel;}"
                ) ;_ end of list
          ) ;_ end of mapcar
  (setq ret (close ret))
  (if (and (null (minusp (setq dcl_id (load_dialog fl))))
           (new_dialog "dwgru_msg" dcl_id)
           ) ;_ end and
    (progn (start_list "info")
           (mapcar 'add_list info-list)
           (end_list)
           (set_tile "info" "0")
           (setq ret "0")
           (action_tile "info" "(setq ret $value)")
           (action_tile "cancel" "(done_dialog 0)")
           (action_tile "accept" " (done_dialog 1)")
           (if (zerop (start_dialog))
             (setq ret nil)
             (setq ret (mapcar (FUNCTION (lambda (num) (nth num info-list)))
                               (read (strcat "(" ret ")"))
                               ) ;_ end mapcar
                   ) ;_ end setq
             ) ;_ end if
           (unload_dialog dcl_id)
           ) ;_ end of progn
    ) ;_ end of if
  (vl-file-delete fl)
  ret
  )
(vl-load-com)
(and
  (setq ret (layoutlist))
  (setq ret (car (_dwgru-get-user-dcl "Выберите лист" (acad_strlsort ret) nil)))
  (setvar "CTAB" ret)
  )
  (princ)
  )

[dextron3]

Идея понравилась, и не только мне

Дополнение:

1. Почему нет вкладки модель, обычно с модели иду в конец,
и затем опять на модель возвращаюсь.

Нашел баг математический в лиспе:

Числа которые не имеют две цыфры а тоесть простые 1, 2, 3, .... 9,
разбрасываются по десяткам, что очень мешает если нужно с 60 листа перейти на 4 й то приходиться искать 40 лист, а потом рядом с ним 4
, а если листов больше 100 то число 20 искать нужно возле 200

см. скриншот.

[dextron3]

Вот посмотрите количество листов:

файл весит 18.5 МБ, компьютер реально тормозит
по 10 листам пробежался ОЗУ заполняется приходится
презагружаться, листы формата А1.

буду ждать комментариев....

[voodoo]

Сообщение от isa А пользоваться таким инструментом как Sheet sets (подшивка) не пробовали?

Поддержую. Вот у меня был недавно РП-150 листов. Я всегда делаю подшивку-с ней очень удобно. Весь проект виден как на ладоне, к тому же организую в групы... К тому же распечатка всего проекта - только нажатием одной кнопки - и вуаля. Советую переходить на работы с подшивками.

[Profan]

Для VVA.
Программа работает так, как я и ожидал. Т.е., выполняется она нормально, однако сортировка листов в диалоговом окне не соответствует порядку листов в стандартном виде. Порядок листов в стандартном виде сохраняется навсегда и новый лист добавляется в конце списка. В программе же может получиться каша из-за сортировки по буквам и цифрам. Я на это обратил внимание еще когда экспериментировал с AutoCAD 2008. Это тоже явилось причиной, по которой я затормозился со своей программой. В принципе, если имена Layouts начинать с 2-х или 3-х значных чисел, то можно ожидать нужный порядок, например: 001Лист...255Лист Вот если бы выдержать тот порядок листов, который получается при создании этих листов?