[Pave1]

Часто пользуюсь этой возможностью AutoCad. И только сейчас заметил, что она не работает на листах. Точнее работает только на одном листе, на том, на котором запускаешь быстрый выбор. А если необходимо выбрать все, к примеру, линии, имеющие одно и тоже свойство, но расположенные на разных листах, то ничего не выходит.
А может быть надо что-то сменить?
и еще! А для чего необходим PICKADD переключатель?

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

Штатными средствами это невозможно. А что надо в результате?

[VVA]

А для чего необходим PICKADD переключатель?

http://www.caduser.ru/acad/index.php?var_name=PICKADD
Нарисуй 2 отрезка и попробуй ПРЕДВАРИТЕЛЬНО выбирать их с разными значениями PICKADD

[Pave1]

Просто сталкнулся сегодня с тем что мои чертежи неустраивают мое начальство. А именно оформление!
Им видите ли не нравится толщина линии в рамке и штампе!
Раньше у меня штамп был выполнен в виде блока, и изменить блок не составляло труда. А теперь штамп в виде надора полининий и вставленные поля в многострочный текст.
И вот я решил выделить все линии с одинаковым свойством "Глобальная ширина"
А они не выделяются :(

[Pave1]

понял для чего нужен этот PICKADD :)

[VVA]

>Pave1 Все работает. Просто когда делаешь быстрый выбор, выбираешь не "Применить ко всему рисунку", а жмешь рядом на кнопочку "Выбрать объекты", на запрос "Выберите объекты" отвечаешь _ALL, дальше тип объектов -> Полилиния, свойства-> Глобальная ширина=X или как там у тебя.

[Pave1]

VVA
спасибо, это имено то что надо :)

[emilko]

>Pave1 Все работает. Просто когда делаешь быстрый выбор, выбираешь не "Пименить ко всему рисунку", а жмешь рядом на кнопочку "Выбрать объекты", на запрос "Выберите объекты" отвечаешь _ALL, дальше тип объектов -> Полилиния, свойства-> Глобальная ширина=X или как там у тебя.

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

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

Быстрый выбор работает только в текущем пространстве.

[AlexV]

Сообщение от Кулик Алексей aka kpblc Быстрый выбор работает только в текущем пространстве.

.. Причем только в текущем листе.. Вроде пространств-то два (ThisDrawing.ModelSpace да ThisDrawing.PaperSpace), но как выбрать объекты в PaperSpace, живущие на разных листах? Хотя бы программно? Можно ли перебрать объекты в PaperSpace, не активируя последовательно листы?

[Хмурый]

команда _find ищет тексты во всех листах и пространствах

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

Сообщение от AlexV Можно ли перебрать объекты в PaperSpace, не активируя последовательно листы

Конечно, можно. В качестве идеи:

Код:

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

For Each oSpace In ThisDrawing.Layouts
  For Each oAcadEntity In oSpace.Block
    ' И здесь делаешь чего надо
  Next
Next

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

[AlexV]

Сообщение от Кулик Алексей aka kpblc Конечно, можно. В качестве идеи: Код: [Выделить все] For Each oSpace In ThisDrawing.Layouts For Each oAcadEntity In oSpace.Block ' И здесь делаешь чего надо Next Next На лиспе решение аналогичное. Просто проверить сейчас не могу P.S. Хотя я бы тупо шел через все блоки - как правило, мне требуется именно такое решение

идея работаеть! Это ежели пообъектно перебирать.. А набор объектов создать нельзя по типу:

Код:

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

 objSelSet.Select acSelectionSetAll, , , intType, varData

?

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

В лиспе можно - (ssget "_X"). А вот как в VBA... Не знаю

[emilko]

Не понял, а под выделение размеров на всех листах как лисп будет выглядеть?

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

А что с ними хочешь сделать?

[emilko]

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

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

Код:

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

 (vl-load-com)

(defun c:chd (/ adoc)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (foreach item (vl-remove-if '(lambda (x) (listp x)) (mapcar 'cadr (ssnamex (ssget "_X" '((0 . "DIMENSION"))))))
    (vl-catch-all-apply
      (function
        (lambda (/ e)
          (setq e (entget item))
          (entmod (subst (cons 8 "NewLayer")
                         (assoc 8 e)
                         e
                         ) ;_ end of subst
                  ) ;_ end of entmod
          (entupd item)
          ) ;_ end of lambda
        ) ;_ end of function
      ) ;_ end of vl-catch-all-apply
    ) ;_ end of foreach
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[emilko]

Благодарю.