Импорт армирования результатов армирования из расчетных программ в Автокад

DEM · 30.01.2013, 07:36

Собственно есть файл с расширением ASF, это результаты расчета армирования СКАДа...
В файле представлена сетка МКЭ и армирование по слоям в направлениях Х и У.
Вот разобранный файл...

Цитата:

GL POLY 17 -это пока не разобрался что.....
37.000 21.950 0.000
37.000 4.350 0.000
34.500 4.350 0.000
...... ...... .......
GP KNOT 5173-это номера и координаты точек
1 37.000 10.350 3.600
2 37.000 16.350 3.600
3 18.450 0.000 3.600
4 20.750 22.200 3.600
...... ...... .......
GF ELEM 5062-это номера элементов с номерами узлов
1 8 12 414 22
2 22 414 429 23
3 23 429 444 24
4 24 444 459 25
...... ...... .......
QR 1 252510 0.000 0.000 0.000 0.000 90.000 - это армирование элементов по слоям
QM 0 0 34.300 0.200 3.600 0.58 0.51 0.00 0.00 0.00 0.00
QM 0 0 34.300 0.600 3.600 1.07 0.97 0.00 0.00 0.00 0.00
QM 0 0 34.300 1.000 3.600 1.44 1.32 0.00 0.00 0.00 0.00

QM 0 0 34.300 0.200 3.600 0.58 0.51 0.00 0.00 0.00 0.00
( 0 0 34.300 0.200 3.600/это зачем то опять координаты/ 0.58/армирование верхнее по Х/ 0.51/армирование верхнее по У/ 0.00/армирование нижнее по Х/ 0.00/армирование нижнее по У/ 0.00 0.00/эти значения пока не разобрал, по всей видимости поперечное армирование....)
Собсно хотелось бы сделать программку которая бы позволяла, импортировать сетку МКЭ из данного файла в автокад в виде блока. Конечные элементы импортировать в виде регионов и назначать им цвет в зависимости от того сколько требуется арматуры.....
Получится 6 блоков соответственно
Армирование нижнее по Х
Армирование верхнее по Х
Армирование нижнее по У
Армирование верхнее по У
Армирование поперечное по Х
Армирование поперечное по У

Предложение к заинтересовавшимся, которые могут программировать в Лиспе, помочь сделать эту программу, я Лиспом давно не занимался, а сейчас в основном на Делфях сижу...
В принципе данную программку можно и на NET сделать.....
PS. Файло с расширением ASF прилагаю...

DEM · 05.02.2013, 13:09

Offtop: AlexV
НУ ты даешь, тогда автокад еще на Pentium III работал.......

Иль вообще с дискет загружался

AlexV · 05.02.2013, 13:28

Цитата:

Сообщение от DEM

Offtop: AlexV
НУ ты даешь, тогда автокад еще на Pentium III работал.......

Иль вообще с дискет загружался

Offtop: Э, да ладно, он и сейчас на пне номер 3 работает.. У меня старый комп года три в кладовке провалялся, полгода на балконе простоял.. Недавно достал, включил,- все работает, понимаешь,- и виндовс 2000, и автокад 2008..

xdata вряд ли изменились с той былинной поры, когда я впервые включил autocad 2000..

swell{d} · 05.02.2013, 13:49

Offtop: первый раз вижу "замоделированные" термовкладыши - жесть

05.02.2013, 13:52

Цитата:

Сообщение от swell{d}

первый раз вижу "замоделированные" термовкладыши - жесть

а в чем проблема? в ревите это на раз создается(просто модель от туда). сетку помельче и все ОК

swell{d} · 05.02.2013, 13:57

Offtop: круто, конечно... моё мнение, что следующим этапом народ начнёт щебёночки в теле бетонной смеси моделировать...

05.02.2013, 14:04

swell{d}, я думаю, до щебеночек дело не дойдет, т.к. смысла в этом нет никакого. А в прорезях под термовкладыши хоть какой-то, но смысл, можно усмотреть.

DEM · 05.02.2013, 14:06

У меня на 2010 автокаде прога не пошла...

swell{d} · 05.02.2013, 14:15

Offtop:

Цитата:

Сообщение от palexxvlad

А в прорезях под термовкладыши хоть какой-то, но смысл, можно усмотреть.

вот фоточка с АН. по проекту "перемычки" 20см через 80см. и как бороться я хз

Кулик Алексей aka kpblc · 05.02.2013, 14:17

Если я правильно понимаю, XData, то у них ограничение в 16 кб. По ссылке я расписывал.

Cosinus · 05.02.2013, 14:22

Цитата:

Сообщение от DEM

У меня на 2010 автокаде прога не пошла...

У меня подобный код по рисованию еще с 2006 акада работал
Скорее всего нужно преподключить акадовские библиотеки. В редакторе VBA меню Tools - References

DEM · 05.02.2013, 14:31

OpenFile какой библиотеке привязан???

Boxa · 05.02.2013, 14:35

Из желания узнать что же дальше будет, пошел на поводу и добавил солиды (команда bx_asf2acad).
И какой следующий шаг?

unikum85 · 05.02.2013, 14:39

А что делать с файлом armagedon?
Выдает вот такую ошибку

http://clip2net.com/s/2NmDF

DEM · 05.02.2013, 14:41

Boxa
Пост 151
И еще лучше наверное как у Cosinus-a сделать в блок это все загнать.....
Чтобы нечаяно чаго нибудь не удалить...
А все что надо дальше я описал выше...
PS. И ввод площади фоновой арматуры у Cosinus более правильный сделан, у тебя не вводится 1.5 и т.п.

Cosinus · 05.02.2013, 14:55

Цитата:

Сообщение от DEM

OpenFile какой библиотеке привязан???

comdlg32.dll

У кого не открылось - вот код

Код:

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

'   класс координат и номера узла
Public Type uzel
    N As Integer
    x As Double
    y As Double
    z As Double
End Type

'   класс элемента
Public Type elem

    N As Integer
    Tip As Integer
    ksect As Integer
    TipJ As Integer
    alfa As Integer
    
    Axn1 As Integer
    Axk1 As Integer
    
    nodes As Variant
    
    Nx As Variant
    Ny As Variant
    Nz As Variant
    Txy As Variant
    Txz As Variant
    Mx As Variant
    My As Variant
    Mxy As Variant
    Qx As Variant
    Qy As Variant
    
    d1 As Double
    d2 As Double
    
    x As Double
    y As Double
    z As Double
    
    Axn As Double
    Ayn As Double
    Azn As Double
    Axv As Double
    Ayv As Double
    Azv As Double
    
    
End Type


Public Type OpenFileName
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
End Type

Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OpenFileName) As Long

Public Property Get PathLib()
    PathLib = GetSetting("User", "Paths", "Documents")
End Property

Public Function OpenFile(Filter As String, Extention As String, Optional Directory As String) As String
    Dim strTemp As String
    Dim OpenFileName As OpenFileName
    With OpenFileName
        .lStructSize = Len(OpenFileName)
        .hwndOwner = ThisDrawing.HWND
        .lpstrFilter = Filter & " (" & Extention & ")" & Chr$(0) & Extention & Chr$(0)
        .lpstrFile = Space$(254)
        .nMaxFile = 255
        .lpstrFileTitle = Space$(254)
        .nMaxFileTitle = 255
        .lpstrInitialDir = Directory
        .lpstrTitle = "Выбор Файла"
        .flags = 0
        If GetOpenFileName(OpenFileName) Then
            strTemp = (Trim(.lpstrFile))
            OpenFile = Mid(strTemp, 1, Len(strTemp) - 1)
        End If
    End With
End Function

Function BlockExist(Name) As Boolean
    BlockExist = False
    For Each Block In ThisDrawing.Blocks
        If UCase(Block.Name) = UCase(Name) Then
            BlockExist = True
            Exit For
        End If
    Next
End Function


Public Function getPt(N As Integer, uz() As uzel) As Integer
    Dim I As Integer
    For I = LBound(uz) To UBound(uz) - 1
        If uz(I).N = N Then
            Exit For
        End If
    Next
    getPt = I
End Function


Function max(lng1 As Double, lng2 As Double) As Double
    max = lng1
    If lng2 > lng1 Then max = lng2
End Function

Function min(lng1 As Double, lng2 As Double) As Double
    min = lng1
    If lng2 < lng1 Then min = lng2
End Function



Public Sub ReadAsf()
   'Чтение результатов расчета арматуры и вывод блоков изополей
    
    '    данные об уздах и элементах
    Dim UzlData() As uzel
    Dim ElemData() As elem

    
    Dim minAxn As Double
    Dim maxAxn As Double
    Dim minAyn As Double
    Dim maxAyn As Double
    Dim minAzn As Double
    Dim maxAzn As Double
    
    Dim minAxv As Double
    Dim maxAxv As Double
    Dim minAyv As Double
    Dim maxAyv As Double
    Dim minAzv As Double
    Dim maxAzv As Double
    
    Dim whatread As String   'nothing, uzel, elem, arm
    whatread = "nothing"
    Dim nlines As Integer
    Dim nodes(3) As Integer
    
    Dim fn As String
    fn = OpenFile("Текст", "*.asf", PathLib)
        
    Dim data As String
'    Читаем файл
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Set f = fs.OpenTextFile(fn, ForReading, TristateFalse)
    data = f.ReadAll
    f.Close
'     Разбиваем на строки
    Dim sa As Variant ' массив файла по строкам
    Dim tempsa As Variant ' строка
    sa = Split(data, vbCrLf)
'    разбираем строки
    For I = LBound(sa) To UBound(sa) - 1
        
        If sa(I) Like "GP KNOT*" Then
            whatread = "uzel"
            s = Split(sa(I), "KNOT")
            nlines = CInt(s(1)) - 1
            
            ReDim UzlData(nlines)
            
            For j = 0 To nlines
                I = I + 1
                tempsa = LTrim(sa(I))
                tempsa = Replace(tempsa, "  ", " ")
                tempsa = Replace(tempsa, "  ", " ")
                tempsa = Replace(tempsa, "  ", " ")
                tempsa = Replace(tempsa, "  ", " ")
                tempsa = Replace(tempsa, "  ", " ")
                
                tempsa = Split(tempsa, " ")
                UzlData(j).N = CInt(tempsa(0))
                UzlData(j).x = CDbl(tempsa(1))
                UzlData(j).y = CDbl(tempsa(2))
                UzlData(j).z = CDbl(tempsa(3))
            Next j
        ElseIf sa(I) Like "GF ELEM*" Then
            whatread = "elem"
            s = Split(sa(I), "ELEM")
            nlines = CInt(s(1)) - 1
            ReDim ElemData(nlines)
            
            For j = 0 To nlines
                I = I + 1
                
                tempsa = LTrim(sa(I))
                tempsa = Replace(tempsa, "  ", " ")
                tempsa = Replace(tempsa, "  ", " ")
                tempsa = Replace(tempsa, "  ", " ")
                tempsa = Replace(tempsa, "  ", " ")
                tempsa = Replace(tempsa, "  ", " ")
                
                tempsa = Split(tempsa, " ")
                ElemData(j).N = CInt(tempsa(0))
                
                
                nodes(0) = CInt(tempsa(1))
                nodes(1) = CInt(tempsa(2))
                nodes(2) = CInt(tempsa(3))
                nodes(3) = CInt(tempsa(4))
                
                ElemData(j).nodes = nodes

            Next j
            whatread = "arm"
            
        ElseIf whatread = "arm" Then
            For j = 0 To nlines
                I = I + 1
                
                tempsa = LTrim(sa(I))
                tempsa = Replace(tempsa, "  ", " ")
                tempsa = Replace(tempsa, "  ", " ")
                tempsa = Replace(tempsa, "  ", " ")
                tempsa = Replace(tempsa, "  ", " ")
                tempsa = Replace(tempsa, "  ", " ")
                
                tempsa = Split(tempsa, " ")
                
                
                

                ElemData(j).d1 = CDbl(tempsa(1))
                ElemData(j).d2 = CDbl(tempsa(2))
                
                ElemData(j).x = CDbl(Val(tempsa(3)))
                ElemData(j).y = CDbl(tempsa(4))
                ElemData(j).z = CDbl(tempsa(5))
                
                ElemData(j).Axn = CDbl(tempsa(6))
                minAxn = min(minAxn, ElemData(j).Axn)
                maxAxn = max(maxAxn, ElemData(j).Axn)
                
                ElemData(j).Ayn = CDbl(tempsa(7))
                minAyn = min(minAyn, ElemData(j).Ayn)
                maxAyn = max(maxAyn, ElemData(j).Ayn)
                
                ElemData(j).Azn = CDbl(tempsa(8))
                minAzn = min(minAzn, ElemData(j).Azn)
                maxAzn = max(maxAzn, ElemData(j).Azn)
                                
                ElemData(j).Axv = CDbl(tempsa(9))
                minAxv = min(minAxv, ElemData(j).Axv)
                maxAxv = max(maxAxv, ElemData(j).Axv)
                
                ElemData(j).Ayv = CDbl(tempsa(10))
                minAyv = min(minAyv, ElemData(j).Ayv)
                maxAyv = max(maxAyv, ElemData(j).Ayv)
                
                ElemData(j).Azv = CDbl(tempsa(11))
                minAzv = min(minAzv, ElemData(j).Azv)
                maxAzv = max(maxAzv, ElemData(j).Azv)
                
            Next j
        End If
        
    Next I
    
    Dim k As Integer
    
    Dim blockObj As AcadBlock
    Dim Name As String
    Dim bexist As Boolean
    
    Dim basePnt(0 To 2) As Double
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    Dim point3(0 To 2) As Double
    Dim point4(0 To 2) As Double
    
    basePnt(0) = 0#
    basePnt(1) = 0#
    basePnt(2) = 0#
    
    Dim color As Integer
    
    
    For I = 0 To 6
        
        If I = 0 Then
            Name = "Axn"
        ElseIf I = 1 Then
            Name = "Ayn"
        ElseIf I = 2 Then
            Name = "Azn"
        ElseIf I = 3 Then
            Name = "Axv"
        ElseIf I = 4 Then
            Name = "Ayv"
        ElseIf I = 5 Then
            Name = "Azv"
        End If
        
        bexist = BlockExist(Name)
        
        Set blockObj = ThisDrawing.Blocks.Add(basePnt, Name)
        For j = 0 To nlines
            
            nodes(0) = ElemData(j).nodes(0)
            nodes(1) = ElemData(j).nodes(1)
            nodes(2) = ElemData(j).nodes(2)
            nodes(3) = ElemData(j).nodes(3)
                    
            k = getPt(nodes(0), UzlData())
            point1(0) = UzlData(k).x
            point1(1) = UzlData(k).y
            point1(2) = UzlData(k).z
            
            k = getPt(nodes(1), UzlData())
            point2(0) = UzlData(k).x
            point2(1) = UzlData(k).y
            point3(2) = UzlData(k).z
            
            k = getPt(nodes(2), UzlData())
            point3(0) = UzlData(k).x
            point3(1) = UzlData(k).y
            point3(2) = UzlData(k).z
            
            If nodes(3) <> 0 Then
                k = getPt(nodes(3), UzlData())
            End If
            
            point4(0) = UzlData(k).x
            point4(1) = UzlData(k).y
            point4(2) = UzlData(k).z
            
            
            Set faceObj = blockObj.Add3DFace(point1, point2, point3, point4)
            
            color = 1
            If I = 0 Then
                If maxAxn <> minAxn Then color = CInt(256 * (ElemData(j).Axn - minAxn) / (maxAxn - minAxn))
            ElseIf I = 1 Then
                If maxAyn <> minAyn Then color = CInt(256 * (ElemData(j).Ayn - minAyn) / (maxAyn - minAyn))
            ElseIf I = 2 Then
                If maxAzn <> minAzn Then color = CInt(256 * (ElemData(j).Azn - minAzn) / (maxAzn - minAzn))
            ElseIf I = 3 Then
                If maxAxv <> minAxv Then color = CInt(256 * (ElemData(j).Axv - minAxv) / (maxAxv - minAxv))
            ElseIf I = 4 Then
                If maxAyv <> minAyv Then color = CInt(256 * (ElemData(j).Ayv - minAyv) / (maxAyv - minAyv))
            ElseIf I = 5 Then
                If maxAzv <> minAzv Then color = CInt(256 * (ElemData(j).Azv - minAzv) / (maxAzv - minAzv))
            End If
   
            faceObj.color = color
            
        Next j
        
        ThisDrawing.ModelSpace.InsertBlock basePnt, Name, 1000, 1000, 1000, 0
        
    Next I
    
    
    whatread = "nothing"
    
   
End Sub

unikum85 · 05.02.2013, 14:56

Cosinus, для тех кто в танке, объясни почему ошибка выскакивает? см. пост 173

Cosinus · 05.02.2013, 15:15

Цитата:

Сообщение от unikum85

Cosinus, для тех кто в танке, объясни почему ошибка выскакивает? см. пост 173

ХЗ.

DEM · 05.02.2013, 15:30

Boxa
Просьба сделай как у Cosinus--а и тогда можно сказать первый этап закончен....
Только надо придумать как данные сохранять, либо как я предложил, либо чегойнибудь сам придумай, как проще сделать....
Только еще надписи лучше над схемами делать, а то забывается что это....
И размер в 1000 раз увеличить надо....

Cosinus · 06.02.2013, 09:58

Чисто для интереса, сделал представление КЭ блоками с 3dface и атрибутами. Размер dwg файла стал 21 МБ, и автокад подавился. А эта схема далеко не самая большая! Так что хранение в блоках нецелесообразно. Я думаю, надо сделать отдельную программу, не зависящую от автокада, чтоб в ней расставить области армирования, а потом уже отправить блоки армирования в автокад на готовые планы. Или сделать dxf, чтоб вообще на привязываться именно к автокаду

DEM · 06.02.2013, 10:07

Cosinus
Странно, мне кажется это VBA так косячит, не ну не может так разростись файл...
Может тогда не 3dface использовать а штриховку....
К тому же смысла загонять в данные в атрибуты и блоки, нету....
У тебя все правильно было, сделано оставалось данные о армировании сохранять, ну и сделать портабельность на другие версии автогада...
В принципе потом можно будет сделать практически то о чем ты говоришь, но это будет уже автоматическое армирование....

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Импорт плоской схемы из Автокад в Лиру	vadimys	Лира / Лира-САПР	21	14.09.2012 00:01
1.напряжения в SCAD 2. перенос эпюры из скада в автокад	poleon	SCAD	5	13.12.2009 17:12
импорт в автокад 2010	wzm	AutoCAD	2	23.09.2009 22:48
импорт из лиры в автокад	funky_Frankie	Лира / Лира-САПР	3	06.09.2008 09:11
Импорт в Автокад	RINga	AutoCAD	3	19.04.2007 19:54

	Реклама i