[A-master]

Короче жопа! И че с ней делать не знаю!
АКАД 2005, файл в формате 2000\2002. Файл сложный: где-то 50 слоев (некоторые по 100000 объектов), есть xrefы, много размерных и текстовых стилей, оле-объектов, именованых видов, пара листов, используются внешние файлы .pat и .lin, много стилей черчения, есть пара листов. Файл лежит на серваке, переписать на локальную машину и открыть - последний из вариантов, потому как при этом умирают поверхности, созданные в Geonixе, а это ВЕСЬМА нежелательно, т.к. придется делать план земляных масс для объекта 500х300 метров вручную, а сдавать на след. неделе. Размер - 16 мег. На акад накручено: GEONIX или GEOCAD, Raster Design, ToolPack, ExpressTools, Довески-лучшее, Object Enabler, BlackHorce, куча собственных кнопок, aliasов и внешних лиспов и vlx. Каюсь! и на acad.mnu залез, но это было давно, глюков не было - поэтому.
НЕ ОТКРЫВАЕТСЯ! ОСТАНАВЛИВАЕТСЯ НА 11% - и &$%ЕЦ! Если я его не открою - меня, наверное, уволят. Правда мож и к лучшему но я не привык людей подставлять. ЧЕ ДЕЛАТЬ? :shock:

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

Зараза, yandex, похоже, накрылся медным тазом. Сволочь!
Слои "Генплан" и "cher_Cher_treug" открывались весьма и весьма коряво - там на одном полно прокси, а на другом - 3d-face. Что я сделал: я открыл файл (сразу после нажатия Open можно удерживать Esc, тогда открывается на порядок быстрее, правда, без regen'a), потом загрузил примерно следующий код (правда, без сохранения именованных видов):

Код:

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

Sub LayerTest()
Dim LayerCounter, SelCounter
Dim objSelSet As AcadSelectionSet
Dim gpCode(0) As Integer, groupCode As Variant
Dim datValue(0) As Variant, dataCode As Variant
Dim sLayerName As String
Dim XREF As AcadExternalReference
Dim XREF_Point(0 To 2) As Double
Dim vbAnswer As Integer
  XREF_Point(0) = 0
  XREF_Point(1) = 0
  XREF_Point(2) = 0

  For Each SelCounter In ThisDrawing.SelectionSets
    If SelCounter.Name = "temp_Select" Then
      SelCounter.Delete
      Exit For
    End If
  Next 'SelCounter

  gpCode(0) = 8
  
  groupCode = gpCode
  
  For Each LayerCounter In ThisDrawing.Layers
    Set objSelSet = ThisDrawing.SelectionSets.Add("temp_Select")
    datValue(0) = LayerCounter.Name
    dataCode = datValue
    objSelSet.Select acSelectionSetAll, , , groupCode, dataCode
    vbAnswer = MsgBox("Количество объектов на слое " + LayerCounter.Name + " : " + _
      CStr(objSelSet.Application.ActiveDocument.Blocks.Count) + _
      ". Выполнять вставку?", vbYesNo + vbQuestion + vbApplicationModal)
    If vbAnswer = vbYes Then
      ThisDrawing.Wblock "c:\_kpblc\" + LayerCounter.Name + ".dwg", objSelSet
      ThisDrawing.SetVariable "CLAYER", "0"
      If objSelSet.Application.ActiveDocument.Blocks.Count > 0 Then
        On Error Resume Next
        objSelSet.Erase
        ThisDrawing.PurgeAll
        Set XREF = ThisDrawing.ModelSpace.AttachExternalReference(CStr(LayerCounter.Name) + ".dwg", CStr(LayerCounter.Name), XREF_Point, 1, 1, 1, 0, False)
        ThisDrawing.Save
      End If
    End If
    objSelSet.Delete
  Next  'LayerCounter
End Sub

И запустил его на выполнение. Проблемы были именно на указанных слоях - кад падал нафиг.
Письмо не отправить - все возвращается (уже часа полтора бьюсь).

[A-master]

ФСЕ! ТЕМА ОБЪЯВЛЯЕТСЯ ЗАКРЫТОЙ!
Благодаря бубну, мату и тов. kpblcу!!!!! файл удалось восстановить.
Потери : named views, слой с травкой, куча времени и нервов.
Приобретения: Знакомство (пусть и заочное) с тов. kpblcом, мозоль на мозге и шишка на башке, и главное - НИКОГДА НЕ ВЕШАЙТЕ МНОГО ВСЕГО НА ФАЙЛ, XREF - РУЛИТ!!!
PS Благодарность - в корне.
PPS kpblc - в http://dwg.ru/forum

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

Найденные скользкие места в коде:
1. Не ведется проверка на наличие файлов.
2. Обязательно выполняется на слоях "0" и "Defpoints"
3. Если блоки находятся на одном слое, а внутри них - дополнительные слои, то операции производятся над всеми слоями.
4. Работа со слоями Xref'ов непредсказуема.

Так что не есть это гуд, kos, Эдуард и прочие профи в программировании решат ее наверняка более изячно

[A-master]

эх, удалили мою "пасибу" ну лана, и так все понятно.