meanline in UG
meanline in UG
(OP)
Hello,
Is there any way to create meanlin between two splines in UG.
Is there any way to create meanlin between two splines in UG.
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
|
RE: meanline in UG
Not that I know of... Do you have GRIP? If so, then you can compile the following. If not, then drop me a line at spambasket@roadrunner.com and I'll send you the compiled version... In either case, this routine works fairly well... most of the time... but of course, your milage may vary. :P
$$START PROLOG
$$ ********************************************************************
$$
$$ PROGRAM NAME: MEANS
$$
$$ ********************************************************************
$$
$$
$$ VERY SIMPLE VERSION OF MEANONE
$$ AVERAGES CX & CV PTS AND PASSES A SPLINE THRU THEM
$$
$$ TCP WINSTON-SALEM,N.C. AUTHOR: MIKE THOMPSON
$$
$$ CREATION DATE: 1/30/2004
$$
$$ REVISION HISTORY: UPDATE VERSION OF MEANY.GRS
$$
$$ PURPOSE : ANALYSE AIRFOIL GEOMETRY.
$$
$$ INPUT: AIRFOIL SPLINES (CX & CC) ON ONE LAYER
$$ AND WITH ADDITIONAL SECTIONS ON SEQUENTIAL LAYERS IF DESIRED.
$$
$$ OUTPUT: LAYER OF SECTION, SECTION HEIGHT, INLET EDGE RAD., INLET EDGE DIA.
$$ INLET METAL ANGLE, INLET INCLUDED ANGLE, EXIT EDGE RAD.,
$$ EXIT EDGE DIA., EXIT METAL ANGLE, EXIT INCLUDED ANGLE
$$
$$
$$ RESTRICTIONS: TOP VIEW AND RIGHT HAND AIRFOIL SECTION ONLY
$$
$$ ERROR INDICATIONS: IF AN ERROR OCCURS, CONTINUE USING ENTRY COMPLETE
$$
$$END PROLOG
$$
$$
$$ -DECLARATIONS-
NUMBER/RSP1,$ $$ RESPONSE VARIABLE
RSP2,$ $$ RESPONSE VARIABLE
RSP3,$ $$ RESPONSE VARIABLE
RSP4,$ $$ RESPONSE VARIABLE
N,$ $$ MEANCAMBER POINT COUNTER
I,$ $$ CONVEX SPLINE START NUMBER
J,$ $$ CONVEX SPLINE END NUMBER
K,$ $$ COUNTER
LAY,$ $$ LAYER COUNTER
EP(3),SP(3),$ $$ START & END OF SPLINE
X1,Y1,Z1,X2,Y2,Z2,$ $$ POSITION VARIABLES
XYZ(3),XYZ1(3),XYZ2(3),$ $$ X,Y,Z DATA OF POINT
V(3),$ $$ SPLINE VECTOR
TN,$ $$ ACCURACY NUMBER
PN,$ $$ PITCH CENTER POINT NUMBER
R,$ $$ TEMPORARY RADIUS FOR COMPARISON
CR,$ $$ PITCH RADIUS
RT,$ $$ TEMPORARY RADIUS FOR COMPARISON
ECLR,$ $$ ENTITY COLOR
TANG,$ $$ EXIT ANGLE
LANG,$ $$ INLET ANGLE
TIANG(3),$ $$ TRAIL INCLUDED ANGLE
LIANG(3) $$ INLET INCLUDED ANGLE
$$
ENTITY/OP(500),$ $$ CONVEX SPLINE POINTS
IP(500),$ $$ CONVCAVE SPLINE POINTS
OLDWCS,$ $$ ORIGNIAL WCS LOCATION
P(99),$ $$ TEMPORARY POINTS
PT(500),$ $$ KNOT POINTS FOR DESIRED SPLINE
SP1,$ $$ OUTER SPLINE
SP2,$ $$ INNER SPLINE
SPF,$ $$ GENERATED SPLINE
LN,$ $$ TEMPORARY LINE
LM,$ $$ TEMPORARY LINE
LS,$ $$ STARTING LINE
LE,$ $$ ENDING LINE
FIL,$ $$ TEMPORARY FILLET
TC1,$ $$ LEAD EDGE CIRCLE
TC2,$ $$ TRIAL EDGE CIRCLE
L,$ $$ LEAD ANGLE LINE
T,$ $$ TRAIL ANGLE LINE
LL(2),$ $$ LEAD CONSTRUCTION LINES
TL(2),$ $$ TRAIL CONSTRUCTION LINES
C $$ PITCH CIRCLE
$$ -INTERACTIVE STATEMENTS-
LAY=&WLAYER
L0:
MASK/8
&FONT=6
ECLR=1
LN1: IDENT/'CHOOSE SUCTION SPLINE',SP1,RSP1
JUMP/TERM:,TERM:,,,RSP1
ECLR=&COLOR(SP1)
$$ &COLOR(SP1) = &SYSCLR
XYZ=&SPOINT(SP1)
LN2: IDENT/'CHOOSE PRESSURE SPLINE',SP2,RSP2
JUMP/TERM:,TERM:,,,RSP2
$$ &COLOR(SP2) = &SYSCLR
DRAW/OFF
MASK/ALL
&ENTCLR=ECLR
$$ ****** LEAD AND TRAIL ANGLE LINES *******
L1:
$$ ** SET WCS **
OLDWCS=&WCS
&WCS=CSYS/1
EP=&SPOINT(SP1)
P(99)=POINT/0,0,EP(3)
&WCS=CSYS/&WCS,ORIGIN,P(99)
$$
$$ DEFINE POINTS TO BE USED FOR MEANCAMBER SPLINE
$$
CPSET/EARCL,SP1,100,OP
CPSET/EARCL,SP2,100,IP
$$
DO/L10:,I,1,100
XYZ = &POINT(OP(I))
XYZ1 = &POINT(IP(I))
XYZ2(1)=(XYZ(1)+XYZ1(1))/2
XYZ2(2)=(XYZ(2)+XYZ1(2))/2
XYZ2(3)=(XYZ(3)+XYZ1(3))/2
PT(I) = POINT/XYZ2
L10:
$$ CONSTRUCT MEAN CAMBER SPLINE
DRAW/ON
SPF=SPLINE/PT(1..100)
DELETE/PT,OP,IP,P
$$
&FONT=1
&WCS=OLDWCS
$$
TERM:
HALT
Regards,
SS
CAD should pay for itself, shouldn't it?
RE: meanline in UG
RE: meanline in UG
John R. Baker, P.E.
Product "Evangelist"
NX Product Line
UGS Corp
Cypress, CA
http://www.ugs.com
RE: meanline in UG
After making the Ruled Surface, would extracting 3 iso-curves in the appropriate UV direction give the same result as the Iso Trim/Divide by 50% and extracting an edge curve? Granted, there's no associativity with iso curves, but maybe fewer mouse clicks.
And speaking of iso curves...do you feel that an ER for an option to create associative extracted iso curves would be something that development might seriously consider?
Tim Flater
Senior Designer
Enkei America, Inc.
www.enkei.com
RE: meanline in UG
John R. Baker, P.E.
Product "Evangelist"
NX Product Line
UGS Corp
Cypress, CA
http://www.ugs.com
RE: meanline in UG
I ask only because I want to be sure that there wouldn't be a major difference between an Iso Curve and an Edge.
Tim Flater
Senior Designer
Enkei America, Inc.
www.enkei.com