[Жорик_У]

Уважаемые!

Требуется в 2Д чертеже расположить элементы одного слоя строго над элементами второго. Как это можно сделать?

Обычно автокад рассовывает их как Бог послал. Например топология задана в одном слое, начинаю размещать элементы (созданы в другом слое) по топологии, а они то сверху, то снизу рисунка топологии.
Как слой элементов расположить строго над слоем топологии?

Заранее благодарен. Жорик.

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

Слой элементов не расположить. А вот сами элементы - достаточно просто: _.draworder тебе в ком.строку.

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

Сообщение от Кулик Алексей aka kpblc Слой элементов не расположить. А вот сами элементы - достаточно просто: _.draworder тебе в ком.строку.

А Layorder не спасет

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

AA2008 Eng + SP1:

Код:

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

Command: layorder
Unknown command "LAYORDER".  Press F1 for help.

P.S. ExpressTools установлены.

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

Виноват, это из довесок к акаду

[ButcheR]

Я бы сделал так: для начала выбрал бы все объекты нижнего слоя командой "Qselect", затем командой "На задний план"...ну и после этого можно этот слой "Закрыть на замок", чтоб по случайке эти объеты не всплывали.

[AlexV]

Я использую такую вот процедурку для "убирания" штриховки на задний план. (К примеру, пройти по всем описаниям блоков, передавая каждый объект штриховки в функцию как параметр Obj, а описание блока - как obj2. Бывает полезно, когда в чертеже сотни блоков, а штриховка, особенно заливка в них очень часто "теряет" свой план и вылазит на верх). В принципе, несложно должно быть аналогичный макрос написать для объектов на опр. слое.

Код:

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

Private Sub Hatch_To_back(Obj, obj2)
'Перенос штриховки на задний план
Dim eDictionary As Object
Set eDictionary = obj2.GetExtensionDictionary
On Error Resume Next
Dim sentityObj As Object
On Error GoTo 0
 Set sentityObj = eDictionary.AddObject("ACAD_SORTENTS", "AcDbSortentsTable")    
    Dim ObjIds As Long
    ObjIds = Obj.ObjectID
    Dim varObject As AcadObject
    Set varObject = ThisDrawing.ObjectIdToObject(ObjIds)
    Dim arr(0) As AcadObject
    Set arr(0) = varObject
    sentityObj.MoveToBottom arr
    AcadApplication.Update
End Sub

Если совсем просто, без фильтров, вот так (вроде работает):

Код:

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

Sub Main()
Dim objkt As Object
For Each objkt In ThisDrawing.ModelSpace
  If objkt.Layer = "0" Then
   Call Hatch_To_back(objkt, ThisDrawing.ModelSpace)
  End If
Next
End Sub

Вместо If objkt.Layer = "0" - подставить нужное имя слоя.

[Pilot]

В продолжение вопроса.
Описываю ситуацию, которая встечается у меня очень часто:

1. Чертеж 2D.
Все выполнено в модели.
Оформление - на нескольких лэйаутах, в каждом лэйауте - от одного до четырех видовых экранов.
Некоторые объекты, расположенные на разных слоях, накладываются друг на друга.

2. Если применить DRAWORDER в модели, то нужный порядок объектов отобразится правильно, но только в модели.
А на видовых экранах лэйаутов порядок объектов остается как бог послал.

3. Если перейти на лэйаут, там двойным тычком мыши войти в какой-либо видовой экран и выполнить DRAWORDER, то нужный порядок отображения объектов станет только в этом конкретном видовом экране.
А в модели и на других лэйаутах - опять полная чехарда.

4. Если войти в видовой экран другого лэйаута и уже там выполнить DRAWORDER, то в этом экране все исправляется, а там где это было сделано раньше (см. п. 3) снова "портится".

Можно ли решить проблему?

(В принципе можно растащить объекты по ELEV, но это сомнительное решение.
Или придется жестко избегать наложения объектов?)

[VVA]

А если применить DRAWORDER в модели, затем перейти на лэйаут и выполнить _regenall?

[Pilot]

Попробовал сейчас на одном чертеже. Вроде бы помогает. Но приходится выполнять _regenall для каждого лэйаута.
Надо будет еще попробовать на различных чертежах и понаблюдать.

[АлексЮстасу]

Здесь же на форуме вычитал решение проблемы раскладываения элементов в нужном порядке - программа DOBT. (DRAWORDER By Type). Бесплатная.
Создается файл - список какого типа элементы из каких слоев в каком порядке. Одно нажатие перед сдачей заказчику - и все лежит в том порядке, как заказали.
Понятно, что пользоваться ей удобно только тогда, когда в чертежах соблюдается стандарт - стандартные слои, и что в каком слое лежит. Если хаос, то, конечно, вручную.