+- VDMIS USERS FORUM (https://www.vdmis.com/forum2)
+-- Forum: Forum Index (https://www.vdmis.com/forum2/forum-6.html)
+--- Forum: VDMIS Discussion Board (https://www.vdmis.com/forum2/forum-3.html)
+--- Thread: Profile of a surface. (/thread-7.html)
Profile of a surface. - J Fair - 08-05-2011
Does anyone know a good way or how to check the profile of a surface?
Profile of a surface. - Schrocknroll - 08-08-2011
If you have a CAD model, you're suppose to be able to create a surface and check the profile of it, but I haven't had a lot of success with that repeating. My suggestion is to measure a series of points on the surface and use "profile point". The icon actually looks like a curve, but it is for a point. If you have a lot of points it can make for a long output, but it works.
You could use code to simplify the output, I have a sample below if it helps. With this I didn't do an output earlier, I just measured the points and then for the output used this. The points were labled F(PT_PRF_1), F(PT_PRF_2),...F(PT_PRF_25).
Code:
TEXT/OUTFIL, 'MAX AND MIN SIDE PROFILE'
DECL/REAL, RL_PROF, RL_PFP, RL_MAX, RL_MIN,RL1
DECL/CHAR,50,PT_PROF
DECL/CHAR,50,PFP_PROF
DECL/CHAR,10,CH_I
DECL/INTGR,I
RL_MIN = 1
$$number of points is 25 below, it will check the profile of each and sort the max and min
DO/I,1,25,1
CH_I = STR(I)
PT_PROF = CONCAT('PT_PRF_',CH_I)
PFP_PROF = CONCAT('PRP',CH_I)
T(PFP_PROF) = TOL/PROFP, -0.0100, 0.0100
EVAL/FA(PT_PROF), T(PFP_PROF)
RL_PROF = OBTAIN/TA(PFP_PROF), 2
IF/RL_PROF.GT.RL_MAX
RL_MAX = RL_PROF
ENDIF
IF/RL_PROF.LT.RL_MIN
RL_MIN = RL_PROF
ENDIF
ENDDO
$$origin is set at datum plane -A-(could be any feature)
D(PC1) = DATSET/FA(PL_A), -YDIR, YORIG
WKPLAN/ZXPLAN
$$the max and min profiles are created(by offsetting datum plane -A- by the max and min dev) and output
F(PL_PROF_MAX) = FEAT/PLANE, CART, -0.46946, 0.00000, 0.09000, -0.00000, $
-1.00000, 0.00000
CONST/PLANE, F(PL_PROF_MAX), MOVEPT, FA(PL_A), 0.0, RL_MAX, 0.0
F(PL_PROF_MIN) = FEAT/PLANE, CART, -0.46946, 0.00000, 0.09000, -0.00000, $
-1.00000, 0.00000
CONST/PLANE, F(PL_PROF_MIN), MOVEPT, FA(PL_A), 0.0, RL_MIN, 0.0
T(CRT4_Y) = TOL/CORTOL, YAXIS, -0.0100, 0.01000
OUTPUT/FA(PL_PROF_MAX), TA(CRT4_Y)
T(CRT5_Y) = TOL/CORTOL, YAXIS, -0.01000, 0.01000
OUTPUT/FA(PL_PROF_MIN), TA(CRT5_Y)Profile of a surface. - John Henson - 08-18-2011
I'm lost when it comes to this. I have never used VDMIS before and i got the programming down but i kont know how to get a proflie to work. Helpmeplease