lisp绘制直齿圆柱齿轮_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="

插入点光标拾取