int choice; /* User Choice */
int defalt[2]; /* Default Point Selection Type*/
tag_t entid = 0; /* Entity Identifer */
int idum; /* Dummy Integer Variable */
int mode = 1; /* Arc Creation Mode */
double point1[3]; /* Point Data Variable */
double point2[3]; /* Point Data Variable */
double point3[3]; /* Point Data Variable */
int status; /* Status */
int nopart; /* No active part flag */
int pos_returned; /* Pos returned flag from menu */
int rejected = 0; /* Reject flag from menu */
/* */
tag_t part_tag; /* Part Tag of Part */
UF_PART_load_status_t /* */
load_status; /* Structure to hold any */
/* errors when loading part */
int num_parts; /* Number of parts loaded */
UF_initialize();
/* Check For An Active Part */
part_tag = UF_ASSEM_ask_work_part();
if ( part_tag == NULL_TAG )
{
/* Ask For A Part To Retrieve or Create */
nopart = 1;
while (nopart)
{
choice = uc1600("Retrieve/Create part*Enter name", prtnam, [$idum)]
if (choice < 3) { return; }
nopart=((choice != 1) [$& (choice != 4) && (prtnam[0] != 0)) ? 0 : 1]