New AutoLisp for 3D Pivot Door

I've been working on a simple pivot door script to use in AutoCAD. You can download the file here.

Here is how the script works.

Command: sd 
Chose the wall to insert the door: (Select the 3D Solid that represents the wall)
Select objects: 1 found
Select objects: (press enter to finish the selection) 
Pick lower left corner of door: (pick location on the hinge side of the door)
Pick upper left corner of door: (pick a perpendicular point on the other side of the wall) 
Indicate width of door: 36 
Indicate height of door: 80

Enjoy..