程序如下,省略了部分变量定义:
do
{
int irc=UF_UI_select_single(message, [$opts, &response, &object, cursor, &view)]
UF_MODL_ask_face_data(object, [$type, point, dir, box, &radius, &rad_data, &norm_dir)]
if (type!=22)
{
uc1601("请选择一个平面",1);
UF_DISP_set_highlight(object, 0);
}
}
while (!(type ==22[$&response==5))]
int ret;
char * diam="40";
dir[0]=-dir[0];dir[1]=-dir[1];dir[2]=-dir[2];
tag_t feature_obj_id;
ret=UF_MODL_create_simple_hole(point,dir,diam,"50","0",object,NULL,[$feature_obj_id)]
if (ret!=0)
UF_UI_write_listing_window("No hole created!\n"); |