-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathZUZSTXmac
60 lines (47 loc) · 1.89 KB
/
ZUZSTXmac
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
! macro na zuzenie stavca
! arg1-vyska stavca -miesny kanal - medzi bodmi 7201 a 9601
! arg2-vyska stavca -brusna dutina - medzi bodmi 7263 a 9663
! musi byt zadefinovane IZ-spodna uroven cislovania stavca 7200, 13200, 19200
! predpoklad 8 rezov stavca s rozdielom cislovania 300 pocinajuc IZ
!
nsel,s,NODE,,IZ,IZ+299 !vyselektujeme cisla podstavy stavca
POMDIM=POMDIM+1 !prvy krat treba dimenzovat pole POD
*if,POMDIM,LE,1,then
*dim,pod,,9999
*ENDIF
! zapis cisiel vyselektovanych uzlov do vektora pod()
*get,zac,node,,num,min ! zac = cislo prveho uzla
*get,kon,node,,num,max ! kon = cislo posledneho uzla
*get,pocet,node,,count ! pocet = pocet uzlov v urovni ZD2
cislo=zac
citac=0
*if,pocet,le,0,then
*else
*do,I,1,pocet
citac=citac+1
pod(citac)=cislo-IZ ! chceme len zakladne cisla, cisla bez cisla vrstvy, preto minus IZ
*get,cislo,node,cislo,nxth
*enddo
*endif
baseX=NX(IZ+63)-NX(IZ+1)
pdz=(arg2-arg1)/2
*DO,IIZ,IZ+1200,IZ+2400,300 !8400 az 9600 s krokom 300 ! uprava suradnic vyselektovanych uzlov (zuzenie stavca-horna polovicka)
*DO,II,1,POCET
NU=POD(II) ! Cislo noveho uzla
pdX=NX(IZ+1200+NU)-NX(IZ+1200+1)
pd=pdz*(pdx/baseX)
pdreal=pd*(IIZ -(IZ+1200))/1200 ! Chyba bola v tomto riadku !!!!!! povodne: pdreal=pd*(IIZ -IZ+1200)/1200
N,IIZ+NU,NX(IIZ+NU),NY(IIZ+NU),NZ(IIZ+NU)+ pdreal
*ENDDO
*ENDDO !koniec cyklu IIZ
*DO,IIZ,IZ,IZ+1200,300 !7200 az 8400 s krokom 300 ! uprava suradnic vyselektovanych uzlov (zuzenie stavca-spodna polovicka)
*DO,II,1,POCET
NU=POD(II) ! Cislo noveho uzla
pdX=NX(IZ+1200+NU)-NX(IZ+1200+1)
pd=pdz*(pdx/baseX)
pdreal=pd*(IZ+1200 - IIZ)/1200
N,IIZ+NU,NX(IIZ+NU),NY(IIZ+NU),NZ(IIZ+NU)-pdreal
*ENDDO
*ENDDO !koniec cyklu IIZ
!
!