Невозможно выбрать объекты (Страница 3 из 3)

Я тоже пробовал сносить РД, тоже не работало. Там на примитивах, которые не выделяются, еще какие-то словарные данные болтаются (в DXF-виде группы 102 и 360). Может, просто надо было после снесения этих групп еще и словари чистить?
В файле столько софта покопалось, что у машины волосенки встают дыбом: ADT 2005, Civil 3D, GeoniCS, СДПС... И каждый чего-то там пишет.

Короче что сделал: переписал все тексты этим лиспом

(defun C:RETXT ( / nb lst e1 ed *error*)
(defun *error* (msg)(princ msg)(vla-endundomark adoc))
(vl-load-com)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark adoc)
(if (setq nb (ssget "_X" '((0 . "*TEXT"))))
  (progn
    (setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex nb))))
    (foreach e1    lst
      (setq ed (entget e1))
      (setq ed (vl-remove-if
         '(lambda (x) (member (car x) '(-1 5 102 360 330)))
         ed
           )
      )
      (entdel e1)
      (entmake ed)
    )
  )
)
  (vla-endundomark adoc)
  (princ "\nПереписано текстов - ")(princ (length lst))(princ)
  )

Вроде работает. Проверял пару раз. Снос РД помогал-помогал, а потом перестал :(

> u33
Ну не то чтобы лекарство... Это в принципе можно попробовать через ObjectEnabler'ы сделать, только тут есть несколько проблем. Первая: под GeoniCS такого ObjEnablerа не выпускалось, по-моему. По крайней мере на оф.сайте я не нашел. Под остальное вроде как было. Вторая: даже наличие ObjEnabler'ов не гарантирует корректность работы. И, наконец, третье. Перестройка текстов, похоже, единственный вариант, который будет работать. Только кто гарантирует, что через n-ное кол-во дней (тьфу-тьфу, конечно) не перестанут выделяться еще и отрезки? Я взял на себя наглость немного переделать код > VVA (2006-11-24 11:14:40) :

(defun c:remake (/ adoc selset)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if (setq selset (ssget "_X"))
    (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
      (entmake (vl-remove-if
                 '(lambda (x) (member (car x) '(-1 5 102 360 330)))
                 (entget item)
                 ) ;_ end of vl-remove-if
               ) ;_ end of entmake
      (entdel item)
      ) ;_ end of foreach
    ) ;_ end of if
  (vlax-for dict (vla-get-dictionaries adoc)
    (vl-catch-all-apply '(lambda () (vla-delete dict)))
    ) ;_ end of vlax-for
  (vla-auditinfo adoc :vlax-true)
  (command "_.-purge" "_r" "*" "_n")
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Код не проходит по примитивам блоков (а там тож могут быть проблемы). Заблокированность, замороженность или отключенность слоев не контролируются. После выполнения я б попробовал рецепт от Vova (который с _wblock).
Я попробовал прогнать, вроде как сработало (в ожидаемом объеме).

В общем всех лекарств последней модификации хватило на пол дня... Вчера под вечер снова началось... Применил таблетки - пока работает...

Спасибо :)

Если после retxt или remake выделить все и через буфер кинуть в новый файл?

> VVA
и кстати тоже самое, буквально сразу после копи-паста

> kpblc
В общем это как то связано с таблицами было... взорвал все до единой таблицы, поскольку заметил не совсем понятный глюк со слоем defpoints и этими таблицами, хотя те были в другом слое... вродебы (тьфу-тьфу) обычный текст теперь стал без проблем выбираться и таких глюков уже не видно...