Как получить размеры всех или выделеных "solid"ов? (Страница 1 из 2)

Если можно то хотелось бы немного подробнее, хотя-бы на примере одного.В моем случае тела это параллограммы(панели ДСП).

Я только учусь програмировать, мне так и не удалось запустить эту программу. Не создаётся набор "Solid"ов.

Катюша, для ДСП есть готовое решение:
см. www.mebelsoft.com/dsp.htm

Я этот велосипед лет эдак 5 назад уже изобрел :)

С фильтром разобралась работает "3DSOLID".
Теперь не работает :
    On Error Resume Next
    For Each vSolid In ssetObj
        MsgBox "X = " & Get_X(vSolid)
        MsgBox "Y = " & Get_Y(vSolid)
    Next vSolid
End Sub
Private Function Get_X(vSolid As AcadSolid) As Double
    Dim Coord As Variant
    Dim X_Size As Double
    Coord = vSolid.Coordinates
    X_Size = Coord(3) — Coord(0)
    Get_X = X_Size
End Function
Private Function Get_Y(vSolid As AcadSolid) As Double
    Dim Coord As Variant
    Dim Y_Size As Double
    Coord = vSolid.Coordinates
    Y_Size = Coord(4) — Coord(1)
    Get_Y = Y_Size
End Function
Пытаюсь разобраться.

А я разобралась.
Sub SelSolid()
     ' Create the selection set
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.ActiveSelectionSet
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 0
    dataValue(0) = "3dSOLID"
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
    ssetObj.SelectOnScreen groupCode, dataCode
    Dim vSolid As Acad3DSolid
    For Each vSolid In ssetObj
     vSolid.GetBoundingBox minExt, maxExt
     x = maxExt(0) - minExt(0)
     y = maxExt(2) - minExt(2)
     z = maxExt(1) - minExt(1)
     MsgBox "x=" & x & "y=" & y & "z=" & z
    Next vSolid
End Sub

Сорьки.. Не прочел весь топик сначала.. Вы ведь изначально имели в виду параллелограмы. (и, скорее всего, лежащие в плоскостях)
Вопрос снят)

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

> Сергей
Если не секрет, каким образом?

Инструменты могут быть разными...

А я тоже придумала как это сделать. Причем намного проще.