[===AAA===]

Всем привет!

Как вы уже догадались, такое простое название темы - "для затравки" :-)

На деле ситуация несколько сложнее. Имеем рисунок, у которого 3 вкладки:

[Модель] [\U+2566шёЄ1] [Лист1]

2-я вкладка указывает на "наследие мрачных времен" - DOS-версий
жизни этого чертежа. У него и с названием слоев не все в
порядке (правда, там все символы - разрешенные), а если
порыть, то и другие проблемы, вероятно, есть.

Тем не менее, тексты, атрибуты и их подсказки выглядят
вполне читаемыми, так что, формально, "жить можно".

Вопрос:

Можно ли программно что-нибудь сделать с этим Лайоутом?
Переименовать там, или удалить на худой конец...

[Геннадий aka PG]

Чуть что сразу ДОС винить!
По-моему она тут не причем!

переименовать наверное можно и программно только имя листа надо "облагородить", может через win-коды или ASCII

[===AAA===]

Привет!

DOS-то сама по себе, конечно, непричём!

"Причем" - кривые руки проектировщиков, неправильно
в свое время "поднявшие" файл из архива :-)

"Облагородить" - да думал, перебрал массу вариантов.
Пока безуспешно.

[fixo]

Сообщение от ===AAA=== Всем привет! Как вы уже догадались, такое простое название темы - "для затравки" :-) На деле ситуация несколько сложнее. Имеем рисунок, у которого 3 вкладки: [Модель] [\U+2566шёЄ1] [Лист1] 2-я вкладка указывает на "наследие мрачных времен" - DOS-версий жизни этого чертежа. У него и с названием слоев не все в порядке (правда, там все символы - разрешенные), а если порыть, то и другие проблемы, вероятно, есть. Тем не менее, тексты, атрибуты и их подсказки выглядят вполне читаемыми, так что, формально, "жить можно". Вопрос: Можно ли программно что-нибудь сделать с этим Лайоутом? Переименовать там, или удалить на худой конец...

Вроде должно пособить горюшку:

Код:

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

(defun renl (lname)
  (vl-load-com)
  (or adoc
      (setq adoc
	     (vla-get-activedocument
	       (vlax-get-acad-object)
	     )
      )
  )
(setq bad_layout (vla-item (vla-get-layouts adoc) lname ))
(vla-put-name bad_layout
  (getstring T "\nНовое имя вкладки:\n"))

(vla-regen adoc acallviewports)
(princ)
  )
;CaLL: (renl "\U+2566шёЄ1")

[===AAA===]

Привет!

Команда: (setq bad_layout (vla-item (vla-get-layouts adoc) "\U+2566шёЄ1"))
Ошибка Automation. Key not found

Команда: (setq bad_layout (vla-item (vla-get-layouts adoc) "\\U+2566шёЄ1"))
Ошибка Automation. Key not found

Увы...

Надо бы попробовать подставить заместо ""\U+2566" букву
"Л", а вернее, то, что от нее получится в Win-кодировке,
но пока не получается...

[AY]

А откуда списано такое имя? Если это надпись на вкладке, то может для уяснения того, что под этим наименованием понимает Acad получить програмно все имена вкладок и по результатам думать дальше.

[fixo]

Сообщение от ===AAA=== Привет! Команда: (setq bad_layout (vla-item (vla-get-layouts adoc) "\U+2566шёЄ1")) Ошибка Automation. Key not found Команда: (setq bad_layout (vla-item (vla-get-layouts adoc) "\\U+2566шёЄ1")) Ошибка Automation. Key not found Увы... Надо бы попробовать подставить заместо ""\U+2566" букву "Л", а вернее, то, что от нее получится в Win-кодировке, но пока не получается...

Тогда мы с ним собакой по-грубому:

Код:

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

(defun ren (/ adoc cnt lt)
  (vl-load-com)
  (or adoc
      (setq adoc
	     (vla-get-activedocument
	       (vlax-get-acad-object)
	     )
      )
  )

(setq cnt 1)
(vlax-for lt (vla-get-layouts adoc)
  (if (not (eq (vla-get-name lt) "Model"))
    (progn
    (vl-catch-all-apply (function (lambda ()
    (vla-put-name lt (strcat "LIST" (itoa cnt))))))
    (setq cnt (1+ cnt)))))
  (princ)
  )
;Вызов:(ren)

А потом можно вручную переименовать те
вкладки как тебе надо

Или другой метод:
В предыдущей рутине вместо этих крякозяблов поставь единицу:

Код:

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

(setq bad_layout (vla-item (vla-get-layouts adoc) 1))

[===AAA===]

Привет!

Fatty

Увы, не получается... Если хочешь - сброшу на мыло файл *.dwg.

Но сам я уже склоняюсь к мысли, что нужно просто отлавливать
эту ситуацию и выдавать пользователю соответствующее
сообщение - пускай он ручками сам до ума свой файл доводит.

[fixo]

Сообщение от ===AAA=== Привет! Fatty Увы, не получается... Если хочешь - сброшу на мыло файл *.dwg. Но сам я уже склоняюсь к мысли, что нужно просто отлавливать эту ситуацию и выдавать пользователю соответствующее сообщение - пускай он ручками сам до ума свой файл доводит.

Давно бы выложил, быстрей бы все вместе помогли
Впрочем кидай на мыло

[===AAA===]

Привет!

Да как-то не хотелось эфир засорять...

Вот он - "коварный тип гражданской наружности" :-)

Только переименуйте DWG на ZIP.
[ATTACH]1126868461.dwg[/ATTACH]

[fixo]

Извини что поздно - у меня отключили электрику
Похоже что эта вкладка была вставлена из пользовательского
Temlate Layout'a с другого компа и поэтому в рисунке она
отображается как несозданная, т.е. в коллекции Layouts
она отсутствует как объект и соответственно к ней ничего
нельзя применить
Проще перетащить весь чертеж в новый Drawing
Или если он тебе дорог как память создавай новые вкладки
а эту кракозябру передвинь в конец
После того как создашь новые вкладки кликни на этой беде
правой кнопкой и выбери Move or Copy

Однако...