am 2015-12-07 11:54 AM
for ii = 1 to 20
!x control Position des Elementes
HOTSPOT2 0, RTY[ii][2], unID,RTY[ii][1],1+128, displayParam,"Lage Senkrechte" :unID=unID+1 !BASE
HOTSPOT2 RTY[ii][1], RTY[ii][2], unID,RTY[ii][1],2, displayParam,"Lage Senkrechte" :unID=unID+1 !MOVE
HOTSPOT2 -1, RTY[ii][2], unID,RTY[ii][1],3, displayParam,"Lage Senkrechte" :unID=unID+1 !REF
!y control
HOTSPOT2 RTY[ii][1], 0, unID,RTY[ii][2],1+128, displayParam,"Lage Senkrechte" :unID=unID+1 !BASE
HOTSPOT2 RTY[ii][1], RTY[ii][2], unID,RTY[ii][2],2, displayParam,"Lage Senkrechte" :unID=unID+1 !MOVE
HOTSPOT2 RTY[ii][1], -1, unID,RTY[ii][2],3 , displayParam,"Lage Senkrechte" :unID=unID+1 !REF
if abs(RTY[ii][1])-0.01 > 0 then !!! Winkel des Elementes
add2 RTY[ii][1], RTY[ii][2]
rot2 90
HOTSPOT2 0, 0, unID, RTY[ii][6], 6, displayParam,"Winkel Senkrechte" :unID=unID+1 !BASE
HOTSPOT2 0.15, 0, unID, RTY[ii][6], 4, displayParam,"Winkel Senkrechte" :unID=unID+1 !MOVE
HOTSPOT2 0.15*COS(RTY[ii][6]), 0.15*SIN(RTY[ii][6]),unID, RTY[ii][6], 5, displayParam,"Winkel Senkrechte" :unID=unID+1 !REF
rot2 RTY[ii][6]
add2 deltay, 0
!Länge control
HOTSPOT2 0, 0, unID,RTY[ii][3],1+128, displayParam,"Länge Senkrechte" :unID=unID+1 !BASE
HOTSPOT2 RTY[ii][3],0, unID,RTY[ii][3],2, displayParam,"Länge Senkrechte" :unID=unID+1 !MOVE
HOTSPOT2 -1, 0, unID,RTY[ii][3],3, displayParam,"Länge Senkrechte" :unID=unID+1 !REF
del 2
del 2
else
endif
next ii
for ii = 1 to 20
!x control Position des Elementes
HOTSPOT 0, RTY[ii][2], 0, unID,RTY[ii][1],1+128, displayParam,"Lage Senkrechte" :unID=unID+1 !BASE
HOTSPOT RTY[ii][1], RTY[ii][2], 0, unID,RTY[ii][1],2, displayParam,"Lage Senkrechte" :unID=unID+1 !MOVE
HOTSPOT -1, RTY[ii][2], 0, unID,RTY[ii][1],3, displayParam,"Lage Senkrechte" :unID=unID+1 !REF
!y control
HOTSPOT RTY[ii][1], 0, 0, unID,RTY[ii][2],1+128, displayParam,"Lage Senkrechte" :unID=unID+1 !BASE
HOTSPOT RTY[ii][1], RTY[ii][2], 0, unID,RTY[ii][2],2, displayParam,"Lage Senkrechte" :unID=unID+1 !MOVE
HOTSPOT RTY[ii][1], -1, 0, unID,RTY[ii][2],3 , displayParam,"Lage Senkrechte" :unID=unID+1 !REF
if abs(RTY[ii][1])-0.01 > 0 then !!! Winkel des Elementes
addx RTY[ii][1]!-gs_frame_thk/2
addy RTY[ii][2]
rotz 90
HOTSPOT 0, 0, 0, unID, RTY[ii][6], 6+128, displayParam,"Drehwinkel" :unID=unID+1 !BASE
HOTSPOT 0.15, 0, 0, unID, RTY[ii][6], 4, displayParam,"Drehwinkel" :unID=unID+1 !MOVE
HOTSPOT 0.15*COS(RTY[ii][6]), 0.15*SIN(RTY[ii][6]), 0, unID, RTY[ii][6], 5, displayParam,"Drehwinkel" :unID=unID+1 !REF
del 1
rotz RTY[ii][6]+90 !!! Länge des Elementes
addx DeltaY
!Länge control
HOTSPOT 0, 0, 0, unID,RTY[ii][3],1+128, displayParam,"Länge Senkrechte" :unID=unID+1 !BASE
HOTSPOT RTY[ii][3], 0, 0, unID,RTY[ii][3],2, displayParam,"Länge Senkrechte" :unID=unID+1 !MOVE
HOTSPOT -1, 0, 0, unID,RTY[ii][3],3, displayParam,"Länge Senkrechte" :unID=unID+1 !REF
del 2
del 3
else
endif
am 2015-12-07 12:19 PM
am 2015-12-07 01:13 PM
HOTSPOT 0, 0, 0, unID, RTY[ii][6], 6+128, displayParam,"Drehwinkel" :unID=unID+1 !BASE
HOTSPOT 0.15, 0, 0, unID, RTY[ii][6], 4, displayParam,"Drehwinkel" :unID=unID+1 !MOVE
HOTSPOT 0, 0, 1, unID, RTY[ii][6], 7, displayParam,"Drehwinkel" :unID=unID+1 !NORMALVEKTOR
HOTSPOT 0.15*COS(RTY[ii][6]), 0.15*SIN(RTY[ii][6]), 0, unID, RTY[ii][6], 5, displayParam,"Drehwinkel" :unID=unID+1 !REF