[dextron3]

Задался вопросом, как будет выглядеть макрос на кнопку,
чтобы он проделовал следующие действия:

Алгоритм:

1. Выбор самого последнего лайаута
2. Копирование его в конец списка
3. К номеру выбранного лайаута прибавить +1
4. Остаться на полученном лайауте.

Буду ждать полезных советов,
и можно ли это сделать макросом?

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

Ты опять за старое??

[dextron3]

Кулик Алексей aka kpblc, а такого еще не было...

[Makswell]

Вот, попробуй. Особо не проверял, так что могут быть глюки.

Код:

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

(defun test (/			layout_dict	   layout_names
	     layout_length	 old_layout_name	   new_layout_name
	    )
  (setq layout_dict (dictsearch (namedobjdict) "ACAD_LAYOUT"))
  (setq	layout_names
	 (vl-remove-if
	   'null
	   (mapcar '(lambda (x)
		      (if (= (car x) 3)
			x
		      )
		    )
		   layout_dict
	   )
	 )

  )

  (setq layout_length (length layout_names))
  (setq old_layout_name (itoa (1- layout_length)))
  (if (member (cons 3 old_layout_name) layout_names)
    (progn
      (setq new_layout_name (itoa layout_length))
      (command "_.LAYOUT" "_C" old_layout_name new_layout_name)
    )
    (alert "имена листов не такие, как задумал dextron3")
  )
  (princ)
)

[VVA]

И еще один вариантик. Немного подсократил код Makswell'a

Код:

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

(defun C:test ( / layout_names layout_length old_layout_name new_layout_name)
  (setq layout_names (LAYOUTLIST))
  (setq layout_length (apply 'max (mapcar 'atoi layout_names)))
  (setq old_layout_name (itoa layout_length))
  (if (member old_layout_name layout_names)
    (progn
      (setq new_layout_name (itoa (1+ layout_length)))
      (command "_.LAYOUT" "_C" old_layout_name new_layout_name)
      (setvar "CTAB" new_layout_name)
    )
    (alert "имена листов не такие, как задумал dextron3")
  )
  (princ)
)

[dextron3]

Makswell, VVA, спасибо,
реально помогает тем кто цыфирью лайауты обозначает,
для 2009 автокада с предворительным просмотром,
это самое лучшее!


липс нужный в каждом хозяйстве,...

PS А как можно внедрить в него этот макрос ^C^C_-scalelistedit;_r;_y;_e;
что бы в конце лиспа срабатывал
или всетаки, на кнопку подсадить?

[VVA]

На лиспе этот макрос выглядит так:
(command "_-SCALELISTEDIT" "_R" "_Y" "_E")
Добавь его после (command "_.LAYOUT" ...)

[dextron3]

VVA,
а как будет лисп файл выглядеть только с этой строчкой
(command "_-SCALELISTEDIT" "_R" "_Y" "_E"),
без каких либо дополонительных команд?

хочу его просто в автозагрузку кинуть чтобы болезни с масштабами не было

[dextron3]

А как можно чтобы при автозагрузке лисп автоматически запускался?


Вот на проверку:

Код:

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

(defun c:scalreset()
  (vl-load-com)
  (command "_-SCALELISTEDIT" "_R" "_Y" "_E")
);defun

тоесть без дополнительного ввода в командную строку

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

dextron3, ну ты даешь!
http://dwg.ru/f/showpost.php?p=230952&postcount=18

[dextron3]

Кулик Алексей aka kpblc, а как вы определеяете команду самого открытия окна к примеру, ведь при открытии мышкой командная строка пуста?

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

Вы???
И какое открытие окна? Вообще, про какое окно разговор?

[dextron3]

Вот есть же выпадающие окошки, ну к примеру слои, толщины линий, цвета, как можно лиспом или макросом открыть эти окошки и выбрать то что надо?

вот мне нужно к примеру масштаб 1:50, как это все в командной строке выполнить?

скриншоты:

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

Так у тебя на скрине СПДС-ные масштабы! Точнее, панель СПДС.
Мне так кажется...
---
Добавлено: не понимаю, откровенно говоря, смысла устанавливать какие-либо масштабы (кроме масштаба ВЭ), находясь в пространстве листа. Просвети, а?

[dextron3]

Кулик Алексей aka kpblc, панель СПДС это частный случай, мне хотелось бы все панели прощупать, а то что в лайауте скрин сделал,
это моя оплошность торопился для форума на самом деле, в лайауте
хочу автоматически затрагивать обычную автокадовскую панель масштабов,

[VVA]

Сообщение от dextron3 VVA, а как будет лисп файл выглядеть только с этой строчкой (command "_-SCALELISTEDIT" "_R" "_Y" "_E"), без каких либо дополонительных команд? хочу его просто в автозагрузку кинуть чтобы болезни с масштабами не было

Файл так и будет выглядеть (command "_.-SCALELISTEDIT" "_R" "_Y" "_E")
Можно сделать немного по другому:
==== Файл scalreset.lsp начало ====

Код:

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

(defun c:scalreset()
  (vl-load-com)
  (command "_.-SCALELISTEDIT" "_R" "_Y" "_E")
);defun
(c:scalreset)

==== Файл scalreset.lsp конец ====
И засунуть этот файл ... в портфель _appload
При загрузке scalreset.lsp будет определяться команда scalreset (вдруг в процессе работы понадобится) и она же запустится на выполнение [(c:scalreset)]

[dextron3]

VVA, спасибо Кулик Алексей aka kpblc, в посту #10, ссылку дал на однотипный лисп,

а как быть с постом #15, как активировать эти окна через командную строку с выбором значения из выпадающего меню?

[VVA]

Такой команды я не знаю. Судя по рисункам, перечисляются именованные объеты (слои, размерные, текстовые стили и т.д.) Все это хранится в соответсвующих таблицах Автокада, кроме масштабов.
В этой теме пост #34 выложена ф-ция _DWGRU-GET-USER-DCL. Используя ее и таблицы Автокада:

Код:

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

;;;================================================================================
;;;Written By Michael Puckett. 
;;;Список элементов символьных таблиц АвтоКАДа 
;;; - s- имя таблицы
;;;Пример - список всех слоев - (setq all_layers (tablelist "LAYER"))
;;;(setq all_layers (tablelist "LAYER"))
;;;
;;;AutoLisp should return something like this :
;;;Start Coding Here 
(defun tablelist (s / d r)
  (while (setq d (tblnext s (null d)))
    (setq r (cons (cdr (assoc 2 d)) r))
  )     ;while
)     ;defun
;;Set Layer
(defun C:SL ( / ret)
  (vl-load-com)
  (and
    (setq ret(_DWGRU-GET-USER-DCL "Выбери слой"
               (ACAD_STRLSORT (vl-remove-if-not '(lambda(x)(SNVALID x))
                 (tablelist "LAYER"))) nil))
    (setvar "CLAYER" (car ret))
    )
  )
;;Set Text Style
(defun C:STS ( / ret)
  (vl-load-com)
  (and
    (setq ret(_DWGRU-GET-USER-DCL "Выбери текстовый стиль"
               (ACAD_STRLSORT (vl-remove-if-not '(lambda(x)(SNVALID x))
                 (tablelist "STYLE"))) nil))
    (setvar "TEXTSTYLE" (car ret))
    )
  )
;;Set Dim Style
(defun C:SDS ( / ret)
  (vl-load-com)
  (and
    (setq ret(_DWGRU-GET-USER-DCL "Выбери размерный стиль"
               (ACAD_STRLSORT (vl-remove-if-not '(lambda(x)(SNVALID x))
                 (tablelist "DIMSTYLE"))) nil))
    (vl-cmdf "_-DIMSTYLE" "_r" (car ret))
    )
  )

[dextron3]

VVA,
как теперь макросом прописать автовыбор из окошек?
к примеру для слоя 0
для стиля Standart

и как с помощью данного лиспа на выделенные объекты назначить слой или стили, а то что то не получается

[VVA]

Так нет никакого автовыбора из окошек, устанавливаешь, к примеру, Слой 1 текущим, он сам в окошке отобразится

и как с помощью данного лиспа на выделенные объекты назначить слой или стили, а то что то не получается

и не получится
Слои и стили текста на выделенные объекты назначай с помощью опций команды _CHANGE

[dextron3]

VVA, лисп из поста #5 не кооректно себя ведет, например,
когда на 9 создаешь 10, 10 появляется не в конце, а перед 9,

[VVA]

Так ведет себя команда _LAYOUT. Пришлось прибегнуть к помощи vla- методов. По другому не знаю как.

Код:

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

(defun C:test ( / layout_names layout_length old_layout_name new_layout_name)
  (vl-load-com)
  (setq layout_names (LAYOUTLIST))
  (setq layout_length (apply 'max (mapcar 'atoi layout_names)))
  (setq old_layout_name (itoa layout_length))
  (if (member old_layout_name layout_names)
    (progn
      (setq new_layout_name (itoa (1+ layout_length)))
      (command "_.LAYOUT" "_C" old_layout_name new_layout_name)
      (vla-put-TabOrder (vla-item(vla-get-layouts(vla-get-activedocument
      (vlax-get-acad-object))) new_layout_name)(length (layoutlist)))
      (setvar "CTAB" new_layout_name)
    )
    (alert "имена листов не такие, как задумал dextron3")
  )
  (princ)
)

[dextron3]

Command: LAYNEXT
_.LAYOUT
Enter layout option [Copy/Delete/New/Template/Rename/SAveas/Set/?] <set>: _C
Enter name of layout to copy <9>: 9
Enter layout name for copy <9 (2)>: 10 Layout "9" copied to "10".

Command: ; error: Automation Error. Invalid value for property TabOrder

работает также как и предыдущий только еще в командной строке ругается

[VVA]

Изменил #22

[dextron3]

VVA, не до конца, при порядке листов 11, 12, 9 выдает лист 13,
хотя по аналогии дожен выдавать 10 .... так как активным является 9

[VVA]

Нет не должен. Для следующего номера берется лист с максимальным номером и увеличивается на 1. А если текущим является лист 9, а лист 10 уже существует.

[VVA]

Выложил в "Готовых программах" команду LAYINC - копирование листа с автоувеличеним его номера. Причем название листа может быть цифровым (лист "9" скопируется в "10"), буквенным (лист "Лист А" скопируется в "Лист Б") или буквенно-цифровым (лист "Кж-1.1" скопируется в "Кж-1.2"). Подробности и иллюстрации по ссылке http://dwg.ru/f/showthread.php?p=238638

[dextron3]

VVA, откоментировал в посланном месте
если честно я не понимаю людей которые пишут Кж-1, Кж-2, Ар-1, Ар-2, ведь если ты архитектор то естественно у тебя будут только АР, если ты конструктор-КЖ, все вроде бы понятно, а буквы КЖ, и АР дают меньще места на экране для расположения большего числа лайаутов, ...

Но если ты Ар и КЖ делаешь одновременно то Делай марку АС, но не надо писать Ас-1, Ас-2,.....

Если я что то не так понял объясните мне...