ellipse.sml

# ellipse.sml
# demonstrate creating and reading an ellipse CAD element

clear();
cad C;
GetOutputCAD(C); # create a new file or open existing file

# write an ellipse
numeric xin = 1000, yin = 2000, xSize = 500, ySize = 300, rotation = 45;
CADWriteEllipse(C, 1, xin, yin, xSize, ySize, rotation);

# the elements are always appended to end of block
# so get number of elements - last element will be our ellipse
numeric lastelem = CADNumElements(C, 1);

# now read ellipse data for most recently added element
numeric xCenter, yCenter;
CADReadEllipse(C, 1, lastelem, xCenter, yCenter, xSize, ySize, rotation);

print("write and read CAD ellipse");
print("element  xCenter  yCenter    xSize    ySize rotation");
printf("%7d %8.2f %8.2f %8.2f %8.2f %8.2f \n", lastelem, xCenter, yCenter, xSize, ySize, rotation);

CloseCAD(C);