Bifold Door plugin

I need a plugin (autolisp, visuallisp) to draw a bifold door with multiple functions like the one shown in the attached video. the plugin starts by asking for the three points that define the wall openning, the first point is the hinge the 2nd is the sill(wall width) the 3rd is wall openning width. The plugin options are as follows: Or Choose [Default/DType/DHeight/Npn/tSF/tFR/Rbt/tFD/tAR/LAR/MM/Cm/Meter/Inch] <Type: _ Height: 2200.0MM>: *Default: Reset all door parameters & dimensions to their default values. *DType: User Input, as a short description for door(entity Xdata) *DHeight: User Input, as the door height(entity xdata) *Npn: User input to change the number of panels, which should be an even number. *tSF: User input to change the thickness of door subframe. *tSF: User input to change the thickness of door subframe. *tFR: User input to change the thickness of door frame. *Rbt: User input to change the rebate of the door frame. *tFD: User input to change the thickness of flash door. *tAR: User input to change the thickness of door architrave. *LAR: User input change the width of door architrave. *MM/Cm/Meter/Inch: User selects his drawing units, in which the bifold door shall be drawn.