:start INT hundo NoteState hundo MASKCLEAR MASKENTITY 3 //arcs and circles // Prompt the user to select an entity GetEnt "Select arc to modify", hArc, hArci, 0, 0, 1, 0 if (@error != 0) GOTO end MASKCLEAR arcdia = @dbldat[0] * 2 arcx = @matrix[9] arcy = @matrix[10] arcz = @matrix[11] CLEAR diminfo1 INT diminfo1[0] ARRAY diminfo1[40] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0} diminfo1[0] = 1 diminfo1[1] = 3 diminfo1[8] = 46 diminfo1[9] = 1 diminfo1[10] = 1 diminfo1[14] = 1 diminfo1[16] = 7 diminfo1[29] = 14 diminfo1[30] = 8 diminfo1[31] = 14 diminfo1[32] = 8 double txtatt[13] // text height txtatt[1] = arcdia / 10 CIRDIM 2, , ,arcx ,arcy ,arcz ,hArc,,,0,,,//diminfo1,,//txtatt GETDBL "Enter new diameter (%f)", arcdia, newdia on (@key + 3) goto finish, finish, //SET DEPTH, dCPlaneDepth MASKCLEAR CLEAR hDim HEntity hDim LastEnt hDim CLEAR adPickPt Double adPickPt[3] = { 0, 0, 0 } CLEAR aAddFaces HEntity aAddFaces[0] CLEAR aRemoveFaces HEntity aRemoveFaces[0] DIMENSIONDRIVENEDIT hDim, adPickPt, newdia, aAddFaces, aRemoveFaces :finish DelEnt hDim notestate purgeto hundo //attempt to let single undo go back, but no joy :end MASKCLEAR