ewedge.sml

  Download

More scripts: C A D

Syntax Highlighing:

comments, key words, predefined symbols, class members & methods, functions & classes
            
# ewedge.sml
# demonstrate creating and reading an
# elliptical arc wedge CAD element
clear();
# create a new file or open existing file
cad C;
GetOutputCAD(C);
# write an elliptical arc wedge
numeric xin = 1000, yin = 2000, xSize = 500, ySize = 300, startAngle = 30;
numeric endAngle = 150, rotation = 45;
CADWriteEllipticalArcWedge(C, 1, xin, yin, xSize, ySize, startAngle, endAngle, rotation);
# the elements are always appended to end of block
# so get number of elements - last element will be ours
numeric lastelem = CADNumElements(C, 1);
# now read data for most recently added element
numeric xCenter, yCenter, sAngle, eAngle;
CADReadEllipticalArcWedge(C, 1, lastelem, xCenter, yCenter, xSize, ySize, sAngle, eAngle, rotation);
print("write and read CAD elliptical arc wedge");
string a$ = "element  xCenter  yCenter    ";
string b$ = "xSize    ySize   sAngle  eAngle rotation";
print(a$ + b$);
printf("%7d %8.2f %8.2f %8.2f %8.2f %8.2f%8.2f %8.2f \n",
lastelem, xCenter, yCenter, xSize, ySize, sAngle, eAngle,
rotation);
CloseCAD(C);