autolisp齿轮绘制

cyj:dialog{label=内啮合齿轮绘制程序；spacer;:row{:column{:boxed_column{label=模数m和齿数z;:toggle{label=第一系列;key=m_t;}:popup_list{label=模数m;key=:m;height=6;width=5;}:edit_box{label=齿数z；key=z;width=5;}}:boxed_column{label=键槽宽度；:edit_box{label=宽度k;key=k;}:button{label=宽度光标拾取;key=k_p;}}:boxed_column{label=键槽高度；:edit_box{label=高度h;key=h;}:button{label=高度光标拾取;key=h_p;}}}:column{:boxed_column{label=插入点;:edit_box{label=横坐标X;key=c_x;width=5;}:edit_box{label=纵坐标Y;key=c_y;width=5;}:button{label=插入点光标拾取;key=c_p;}}:boxed_column{label=内圆直径;:edit_box{label=直径D;key=d;}:button{label=直径光标拾取;key=d_p;}}:boxed_column{label=旋转角度;:edit_box{label=角度;key=a;}:button{label=角度光标拾取;key=a_p;}}:column{:image_button{key=img;width=40;aspect_ratio=1.0;color=-2;}}}ok_cancel;}