[Krovlaf]

При замене динамических блоков использовался лисп RBLOC
(;;; RBLOC V2.22
;;; Replace a block with another
;;; Copyright (C) Patrick_35)
Ранее проблем с этим лиспом никогда небыло. Очень удобный и адекватный инструмент по замене динамических блоков.
Все блоки с одним именем. Замена происходила в два этапа. Проблема вылезла в блоках замененных во вторую очередь.
Часть блоков стала неадекватно реагировать на изменения угла поворота в свойствах. Задаешь блокам угол поворота 90 а они принимают какой-то другой определенный угол.
Задал всем блокам нулевой угол.У первой группы все в порядке. Вторая группа под углом.
Парадоксальная ситуация. Блоки с одним именем и углом поворота на экране имеют разные углы поворота.
Переопределение блоков, проверка в редакторе, обновление блоков через диспетчер атрибутов, регенерация чертежа, не помогают.
Как это исправить?

[AMDen]

Второй блок немного повернут по координате Z. Из-за этого, видимо, не хочет адекватно реагировать на смену угла. У меня сплющить не получилось, но есть разные лиспы для координаты Z. Надо пробовать...

[Krovlaf]

О! Спасибо! Я, честно говоря, в этом направлении и не копал. Обычно блоки "под наклоном" хорошо вычисляются когда в них есть полилинии с установленной шириной. Они тогда становятся "контурными".

----- добавлено через ~19 мин. -----
Причина оказалась до безобразия банальна. Выравнивание части чертежа с привязочкой по z...
Все перерыл но не нашел решения по выравниванию множества блоков относительно z. Проблема уже освещалась, но предсталенный там лисп не работает. Полноценного решения так и нет. Что самое интересное - была уже такая же проблема и с помощью чуть ли не стандартной командой все проблемные блоки были приведены к горизонтальной плоскости. Да вот не записал я тогда этого решения а память дырявая.

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

_.flatten? Правда, как она будет работать в редакторе блоков - без понятия.

[AMDen]

Сообщение от Кулик Алексей aka kpblc в редакторе блоков

В редакторе блоков всё горизонтально. Повернуты некоторые экземпляры блока.

[Krovlaf]

Приветствую! _.flatten в чертеже просто удаляет блоки с пометкой в ком. строке:

Remove hidden lines? <Yes>: n

Неверный составной объект.
Неверный составной объект.
В редакторе блоков:

** команда ПСК недопустима в редакторе блоков. **

** команда ВИД недопустима в редакторе блоков. **

неверный тип аргумента: numberp: nil

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

Ну и в чем собственно проблема?

Код:

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

 (defun t1 (/ selset)
  (if (= (type (vl-catch-all-apply (function (lambda () (setq selset (ssget "_:L")))))) 'pickset)
    (progn (foreach ent ((lambda (/ tab item)
                           (repeat (setq tab  nil
                                         item (sslength selset)
                                         ) ;_ end setq
                             (setq tab (cons (ssname selset (setq item (1- item))) tab))
                             ) ;_ end of repeat
                           ) ;_ end of lambda
                         )
             (entmod (subst '(210 0. 0. 1.) (assoc 210 (entget ent)) (entget ent)))
             ) ;_ end of foreach
           ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

[Krovlaf]

Спасибо, работает.
Просто до сих пор не сталкивался с лиспами без "с: ". И такое бывает... Пересмотр матчасти восполнил пробелы.
Моё почтение!

[Krovlaf]

Попробовал на рабочем файле. При "обнулении" блоки улетают за пределы видимой вселенной. Восстановить прежнее положение не представляется возможным. Восстановил блоки скопировав все свойства в ексель и по новой вставил CadTools'ом. Короче, не так все просто как было в первом примере.