AUTOCAD Excelの表からBracket作成 VBA

AUTOCAD　EXCEL VBA to AUTOCAD

Bracket　ブラケット作図

1.Input Data Excel Sheet (UPPER)
　外形寸法　穴寸法　曲げ寸法　等

2.Input Data Excel Sheet (LOWER)
　作図の順序

3. Macro　Run

　Draw Solid　

　Order of Excel Sheet (LOWER)

• POINT Vba Code

1. Set Add PolyLine
2. Set aEntity
3. region
4. Set Add Solid

• Part of the code CALL  

' Draw Solid

        Select Case Dtcitem

        Case "Polyline"

            Set solidObjNo1 = Add_PolylineSolid(DtcRow, DtcColumn, DtcSheetThick, ws_DT_DRAW) 

        Case "LongCircle"

            Set solidObjNo2 = Add_LongCircleSolid(DtcRow, DtcColumn, DtcSheetThick, ws_DT_DRAW)   ' Function

       

        Case "Circle"

            Set solidObjNo3 = Add_CircleSolid(DtcRow, DtcColumn, DtcSheetThick, DtcRadius, ws_DT_DRAW)  ' Function

        

        End Select

• Part of the code Draw Function

' Draw Solid from Long Circle

'  1.Draw PolyLine

'  2.Bulge

'  3.ExtrudedSolid

Function Add_LongCircleSolid(ByVal DtcRow As Byte, ByVal DtcColumn As Byte, ByVal DtcSheetThick As Double, ByVal ws_DT_DRAW As Worksheet) As Acad3DSolid

    

    Dim PData As Range

    Dim plineObj As AcadLWPolyline

    Dim aEntity(0) As AcadEntity

    Dim regionObj As Variant

    Call Add_PointArray(DtcRow, DtcColumn, ws_DT_DRAW)                                          ' Sub

    Set plineObj = AcadDoc.ModelSpace.AddLightWeightPolyline(PointArray)                        ' POLYLINE

    plineObj.SetBulge 1, 1

    plineObj.SetBulge 3, 1

    Set aEntity(0) = plineObj

    regionObj = AcadDoc.ModelSpace.AddRegion(aEntity)                                           '2.Create a region from the polylines

    

    Set Add_LongCircleSolid = AcadDoc.ModelSpace.AddExtrudedSolid(regionObj(0), DtcSheetThick, 0) '3.Create the extrusion

    Add_LongCircleSolid.Update

    

    regionObj(0).Delete                                                                         'Delete　polyline

    plineObj.Delete

    Set PData = Nothing

    Set plineObj = Nothing

    Set aEntity(0) = Nothing

End Function