Code:
/PREP7
ET,1,SOLID185
MP,EX,1,1.45E9
MP,PRXY,1,0.20
espacovertentreblocos = 0.01
espacoentreblocos1 = 0.015
espacoentreblocos2 = 0.01
compbloco = 0.39
alturadobloco = 0.19
espparede = 0.025
compfuro = 0.1575
compblocomeia = 0.39/2
compfuromeia = 0.145
*DO,J,0,2
inicioZ = 2*J*(alturadobloco+espacovertentreblocos)
fimZ = alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
inicioZfuro = espparede+2*J*(alturadobloco+espacovertentreblocos)
fimZfuro = alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
*DO,I,0,2
!mudança dos keypoints em X
inicioX = I*(compbloco+espacoentreblocos1)
fimX = compbloco+I*(compbloco+espacoentreblocos1)
inicioXfuro1 = espparede+I*(compbloco+espacoentreblocos1)
fimXfuro1 = espparede+compfuro+I*(compbloco+espacoentreblocos1)
inicioXfuro2 = 2*espparede+compfuro+I*(compbloco+espacoentreblocos1)
fimXfuro2 = 2*(espparede+compfuro)+I*(compbloco+espacoentreblocos1)
!base
K,,inicioX,0,inicioZ
K,,fimX,0,inicioZ
K,,fimX,0.14,inicioZ
K,,inicioX,0.14,inicioZ
!altura
K,,inicioX,0,fimZ
K,,fimX,0,fimZ
K,,fimX,0.14,fimZ
K,,inicioX,0.14,fimZ
!furo 1 - base
K,,inicioXfuro1,0.025,inicioZfuro
K,,fimXfuro1,0.025,inicioZfuro
K,,fimXfuro1,0.115,inicioZfuro
K,,inicioXfuro1,0.115,inicioZfuro
!furo 1 - topo
K,,inicioXfuro1,0.025,fimZfuro
K,,fimXfuro1,0.025,fimZfuro
K,,fimXfuro1,0.115,fimZfuro
K,,inicioXfuro1,0.115,fimZfuro
!furo 2 - base
K,,inicioXfuro2,0.025,inicioZfuro
K,,fimXfuro2,0.025,inicioZfuro
K,,fimXfuro2,0.115,inicioZfuro
K,,inicioXfuro2,0.115,inicioZfuro
K,,inicioXfuro2,0.025,fimZfuro
K,,fimXfuro2,0.025,fimZfuro
K,,fimXfuro2,0.115,fimZfuro
K,,inicioXfuro2,0.115,fimZfuro
V,(J*3+I)*24+1,(J*3+I)*24+2,(J*3+I)*24+3,(J*3+I)*24+4,(J*3+I)*24+5,(J*3+I)*24+6,(J*3+I)*24+7,(J*3+I)*24+8
V,(J*3+I)*24+9,(J*3+I)*24+10,(J*3+I)*24+11,(J*3+I)*24+12,(J*3+I)*24+13,(J*3+I)*24+14,(J*3+I)*24+15,(J*3+I)*24+16
V,(J*3+I)*24+17,(J*3+I)*24+18,(J*3+I)*24+19,(J*3+I)*24+20,(J*3+I)*24+21,(J*3+I)*24+22,(J*3+I)*24+23,(J*3+I)*24+24
VSBV,(J*3+I+1),(J*3+I+2)
VSBV,(J*3+I+4),(J*3+I+3)
*ENDDO
*ENDDO
ultimoKP = 216
ultimoV = 9
*DO,J,0,2
inicioZ = (1+2*J)*(alturadobloco+espacovertentreblocos)
fimZ = alturadobloco+(1+2*J)*(alturadobloco+espacovertentreblocos)
*IF,J,EQ,2,THEN
!fundo para baixo
inicioZfuro = (1+2*J)*(alturadobloco+espacovertentreblocos)
fimZfuro = alturadobloco-espparede+(1+2*J)*(alturadobloco+espacovertentreblocos)
*ELSE
!fundo para baixo
inicioZfuro = espparede+(1+2*J)*(alturadobloco+espacovertentreblocos)
fimZfuro = alturadobloco+(1+2*J)*(alturadobloco+espacovertentreblocos)
*ENDIF
*DO,I,0,1
!mudança dos keypoints em X dos blocos inteiros
inicioX = (compblocomeia+espacoentreblocos2)+I*(compbloco+espacoentreblocos2)
fimX = (compblocomeia+espacoentreblocos2)+compbloco+I*(compbloco+espacoentreblocos2)
inicioXfuro1 = (compblocomeia+espacoentreblocos2)+espparede+I*(compbloco+espacoentreblocos2)
fimXfuro1 = (compblocomeia+espacoentreblocos2)+espparede+compfuro+I*(compbloco+espacoentreblocos2)
inicioXfuro2 = (compblocomeia+espacoentreblocos2)+2*espparede+compfuro+I*(compbloco+espacoentreblocos2)
fimXfuro2 = (compblocomeia+espacoentreblocos2)+2*(espparede+compfuro)+I*(compbloco+espacoentreblocos2)
K,,inicioX,0,inicioZ
K,,fimX,0,inicioZ
K,,fimX,0.14,inicioZ
K,,inicioX,0.14,inicioZ
!altura
K,,inicioX,0,fimZ
K,,fimX,0,fimZ
K,,fimX,0.14,fimZ
K,,inicioX,0.14,fimZ
!furo 1 - base
K,,inicioXfuro1,0.025,inicioZfuro
K,,fimXfuro1,0.025,inicioZfuro
K,,fimXfuro1,0.115,inicioZfuro
K,,inicioXfuro1,0.115,inicioZfuro
!furo 1 - topo
K,,inicioXfuro1,0.025,fimZfuro
K,,fimXfuro1,0.025,fimZfuro
K,,fimXfuro1,0.115,fimZfuro
K,,inicioXfuro1,0.115,fimZfuro
!furo 2 - base
K,,inicioXfuro2,0.025,inicioZfuro
K,,fimXfuro2,0.025,inicioZfuro
K,,fimXfuro2,0.115,inicioZfuro
K,,inicioXfuro2,0.115,inicioZfuro
!furo 2 - topo
K,,inicioXfuro2,0.025,fimZfuro
K,,fimXfuro2,0.025,fimZfuro
K,,fimXfuro2,0.115,fimZfuro
K,,inicioXfuro2,0.115,fimZfuro
V,ultimoKP+(J*2+I)*24+1,ultimoKP+(J*2+I)*24+2,ultimoKP+(J*2+I)*24+3,ultimoKP+(J*2+I)*24+4,ultimoKP+(J*2+I)*24+5,ultimoKP+(J*2+I)*24+6,ultimoKP+(J*2+I)*24+7,ultimoKP+(J*2+I)*24+8
V,ultimoKP+(J*2+I)*24+9,ultimoKP+(J*2+I)*24+10,ultimoKP+(J*2+I)*24+11,ultimoKP+(J*2+I)*24+12,ultimoKP+(J*2+I)*24+13,ultimoKP+(J*2+I)*24+14,ultimoKP+(J*2+I)*24+15,ultimoKP+(J*2+I)*24+16
V,ultimoKP+(J*2+I)*24+17,ultimoKP+(J*2+I)*24+18,ultimoKP+(J*2+I)*24+19,ultimoKP+(J*2+I)*24+20,ultimoKP+(J*2+I)*24+21,ultimoKP+(J*2+I)*24+22,ultimoKP+(J*2+I)*24+23,ultimoKP+(J*2+I)*24+24
VSBV,ultimoV+(J*2+I+1),ultimoV+(J*2+I+2)
VSBV,ultimoV+(J*2+I+4),ultimoV+(J*2+I+3)
*ENDDO
*ENDDO
ultimoKP = 360
ultimoV = 15
*DO,J,0,2
inicioZ = (1+2*J)*(alturadobloco+espacovertentreblocos)
fimZ = alturadobloco+(1+2*J)*(alturadobloco+espacovertentreblocos)
*IF,J,EQ,2,THEN
inicioZfuro = (1+2*J)*(alturadobloco+espacovertentreblocos)
fimZfuro = alturadobloco-espparede+(1+2*J)*(alturadobloco+espacovertentreblocos)
*ELSE
inicioZfuro = espparede+(1+2*J)*(alturadobloco+espacovertentreblocos)
fimZfuro = alturadobloco+(1+2*J)*(alturadobloco+espacovertentreblocos)
*ENDIF
*DO,I,0,1
inicioX = I*(compblocomeia+3*espacoentreblocos2+2*compbloco)
fimX = compblocomeia+I*(compblocomeia+3*espacoentreblocos2+2*compbloco)
inicioXfuro1 = espparede+I*(compblocomeia+3*espacoentreblocos2+2*compbloco)
fimXfuro1 = espparede+compfuromeia+I*(compblocomeia+3*espacoentreblocos2+2*compbloco)
K,,inicioX,0,inicioZ
K,,fimX,0,inicioZ
K,,fimX,0.14,inicioZ
K,,inicioX,0.14,inicioZ
!altura
K,,inicioX,0,fimZ
K,,fimX,0,fimZ
K,,fimX,0.14,fimZ
K,,inicioX,0.14,fimZ
!furo 1 - base
K,,inicioXfuro1,0.025,inicioZfuro
K,,fimXfuro1,0.025,inicioZfuro
K,,fimXfuro1,0.115,inicioZfuro
K,,inicioXfuro1,0.115,inicioZfuro
!furo 1 - topo
K,,inicioXfuro1,0.025,fimZfuro
K,,fimXfuro1,0.025,fimZfuro
K,,fimXfuro1,0.115,fimZfuro
K,,inicioXfuro1,0.115,fimZfuro
V,ultimoKP+(J*2+I)*16+1,ultimoKP+(J*2+I)*16+2,ultimoKP+(J*2+I)*16+3,ultimoKP+(J*2+I)*16+4,ultimoKP+(J*2+I)*16+5,ultimoKP+(J*2+I)*16+6,ultimoKP+(J*2+I)*16+7,ultimoKP+(J*2+I)*16+8
V,ultimoKP+(J*2+I)*16+9,ultimoKP+(J*2+I)*16+10,ultimoKP+(J*2+I)*16+11,ultimoKP+(J*2+I)*16+12,ultimoKP+(J*2+I)*16+13,ultimoKP+(J*2+I)*16+14,ultimoKP+(J*2+I)*16+15,ultimoKP+(J*2+I)*16+16
VSBV,16,17
*ENDDO
*ENDDO
ultimoKP = 456
ultimoV = 23
*DO,I,0,6
K,,0,0,-espacovertentreblocos+I*(alturadobloco+espacovertentreblocos)
K,,1.2,0,-espacovertentreblocos+I*(alturadobloco+espacovertentreblocos)
K,,1.2,0.14,-espacovertentreblocos+I*(alturadobloco+espacovertentreblocos)
K,,0,0.14,-espacovertentreblocos+I*(alturadobloco+espacovertentreblocos)
K,,0,0,I*(alturadobloco+espacovertentreblocos)
K,,1.2,0,I*(alturadobloco+espacovertentreblocos)
K,,1.2,0.14,I*(alturadobloco+espacovertentreblocos)
K,,0,0.14,I*(alturadobloco+espacovertentreblocos)
V,ultimoKP+1+8*I,ultimoKP+2+8*I,ultimoKP+3+8*I,ultimoKP+4+8*I,ultimoKP+5+8*I,ultimoKP+6+8*I,ultimoKP+7+8*I,ultimoKP+8+8*I
*ENDDO
ultimoKP = 512
ultimoV = 28
!argamassa de assentamento vertical entre blocos da primeira fiada
*DO,J,0,2
*DO,I,0,1
!keypoints
K,,compbloco+I*(compbloco+espacoentreblocos1),0,2*J*(alturadobloco+espacovertentreblocos)
K,,compbloco+I*(compbloco+espacoentreblocos1),0.14,2*J*(alturadobloco+espacovertentreblocos)
K,,compbloco+I*(compbloco+espacoentreblocos1),0.14,alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
K,,compbloco+I*(compbloco+espacoentreblocos1),0,alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
K,,compbloco+espacoentreblocos1+I*(compbloco+espacoentreblocos1),0,2*J*(alturadobloco+espacovertentreblocos)
K,,compbloco+espacoentreblocos1+I*(compbloco+espacoentreblocos1),0.14,2*J*(alturadobloco+espacovertentreblocos)
K,,compbloco+espacoentreblocos1+I*(compbloco+espacoentreblocos1),0.14,alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
K,,compbloco+espacoentreblocos1+I*(compbloco+espacoentreblocos1),0,alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
!volume
V,ultimoKP+1+8*(J*2+I),ultimoKP+2+8*(J*2+I),ultimoKP+3+8*(J*2+I),ultimoKP+4+8*(J*2+I),ultimoKP+5+8*(J*2+I),ultimoKP+6+8*(J*2+I),ultimoKP+7+8*(J*2+I),ultimoKP+8+8*(J*2+I)
*ENDDO
*ENDDO
ultimoKP = 560
ultimoV = 34
!argamassa de assentamento vertical entre blocos da segunda fiada
*DO,J,0,2
*DO,I,0,2
!keypoints
K,,compblocomeia+I*(compbloco+espacoentreblocos2),0,alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,compblocomeia+I*(compbloco+espacoentreblocos2),0.14,alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,compblocomeia+I*(compbloco+espacoentreblocos2),0.14,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,compblocomeia+I*(compbloco+espacoentreblocos2),0,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,compblocomeia+espacoentreblocos2+I*(compbloco+espacoentreblocos2),0,alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,compblocomeia+espacoentreblocos2+I*(compbloco+espacoentreblocos2),0.14,alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,compblocomeia+espacoentreblocos2+I*(compbloco+espacoentreblocos2),0.14,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,compblocomeia+espacoentreblocos2+I*(compbloco+espacoentreblocos2),0,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
!volume
V,ultimoKP+1+8*(J*3+I),ultimoKP+2+8*(J*3+I),ultimoKP+3+8*(J*3+I),ultimoKP+4+8*(J*3+I),ultimoKP+5+8*(J*3+I),ultimoKP+6+8*(J*3+I),ultimoKP+7+8*(J*3+I),ultimoKP+8+8*(J*3+I)
*ENDDO
*ENDDO
ultimoKP = 632
ultimoV = 43
!furos da argamassa de assentamento horizontal, blocos da primeira fiada
*DO,J,0,2
!faz furos internos de cada bloco
*DO,I,0,2
!keypoints do furo 1
K,,I*(espacoentreblocos1+compbloco)+espparede,espparede,alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+espparede+compfuro,espparede,alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+espparede+compfuro,0.14-espparede,alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+espparede,0.14-espparede,alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+espparede,espparede,alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+espparede+compfuro,espparede,alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+espparede+compfuro,0.14-espparede,alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+espparede,0.14-espparede,alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
!volume interno furo 1
V,ultimoKP+1+16*(3*J+I),ultimoKP+2+16*(3*J+I),ultimoKP+3+16*(3*J+I),ultimoKP+4+16*(3*J+I),ultimoKP+5+16*(3*J+I),ultimoKP+6+16*(3*J+I),ultimoKP+7+16*(3*J+I),ultimoKP+8+16*(3*J+I)
!keypoints do furo 2
K,,I*(espacoentreblocos1+compbloco)+2*espparede+compfuro,espparede,alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+2*espparede+2*compfuro,espparede,alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+2*espparede+2*compfuro,0.14-espparede,alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+2*espparede+compfuro,0.14-espparede,alturadobloco+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+2*espparede+compfuro,espparede,alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+2*espparede+2*compfuro,espparede,alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+2*espparede+2*compfuro,0.14-espparede,alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos1+compbloco)+2*espparede+compfuro,0.14-espparede,alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
!volume interno furo 2
V,ultimoKP+9+16*(3*J+I),ultimoKP+10+16*(3*J+I),ultimoKP+11+16*(3*J+I),ultimoKP+12+16*(3*J+I),ultimoKP+13+16*(3*J+I),ultimoKP+14+16*(3*J+I),ultimoKP+15+16*(3*J+I),ultimoKP+16+16*(3*J+I)
*ENDDO
*ENDDO
ultimoKP = 776
ultimoV = 62
!furos da argamassa de assentamento horizontal, blocos da segunda fiada
*DO,J,0,1
!faz furos internos de cada bloco
*DO,I,0,1
!keypoints do furo 1 - bloco inteiro
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+espparede,espparede,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+espparede+compfuro,espparede,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+espparede+compfuro,0.14-espparede,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+espparede,0.14-espparede,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+espparede,espparede,2*alturadobloco+2*espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+espparede+compfuro,espparede,2*alturadobloco+2*espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+espparede+compfuro,0.14-espparede,2*alturadobloco+2*espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+espparede,0.14-espparede,2*alturadobloco+2*espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
!volume interno furo 1 - bloco inteiro
V,ultimoKP+1+24*(2*J+I),ultimoKP+2+24*(2*J+I),ultimoKP+3+24*(2*J+I),ultimoKP+4+24*(2*J+I),ultimoKP+5+24*(2*J+I),ultimoKP+6+24*(2*J+I),ultimoKP+7+24*(2*J+I),ultimoKP+8+24*(2*J+I)
!keypoints do furo 2 - bloco inteiro
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+2*espparede+compfuro,espparede,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+2*espparede+2*compfuro,espparede,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+2*espparede+2*compfuro,0.14-espparede,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+2*espparede+compfuro,0.14-espparede,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+2*espparede+compfuro,espparede,2*alturadobloco+2*espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+2*espparede+2*compfuro,espparede,2*alturadobloco+2*espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+2*espparede+2*compfuro,0.14-espparede,2*alturadobloco+2*espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2+compbloco)+espacoentreblocos2+compblocomeia+2*espparede+compfuro,0.14-espparede,2*alturadobloco+2*espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
!volume interno furo 2 - bloco inteiro
V,ultimoKP+9+24*(2*J+I),ultimoKP+10+24*(2*J+I),ultimoKP+11+24*(2*J+I),ultimoKP+12+24*(2*J+I),ultimoKP+13+24*(2*J+I),ultimoKP+14+24*(2*J+I),ultimoKP+15+24*(2*J+I),ultimoKP+16+24*(2*J+I)
!keypoints do furo bloco meia
K,,I*(espacoentreblocos2*3+compbloco*2+compblocomeia)+espparede,espparede,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2*3+compbloco*2+compblocomeia)+espparede+compfuromeia,espparede,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2*3+compbloco*2+compblocomeia)+espparede+compfuromeia,0.14-espparede,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2*3+compbloco*2+compblocomeia)+espparede,0.14-espparede,2*alturadobloco+espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2*3+compbloco*2+compblocomeia)+espparede,espparede,2*alturadobloco+2*espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2*3+compbloco*2+compblocomeia)+espparede+compfuromeia,espparede,2*alturadobloco+2*espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2*3+compbloco*2+compblocomeia)+espparede+compfuromeia,0.14-espparede,2*alturadobloco+2*espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
K,,I*(espacoentreblocos2*3+compbloco*2+compblocomeia)+espparede,0.14-espparede,2*alturadobloco+2*espacovertentreblocos+2*J*(alturadobloco+espacovertentreblocos)
!volume interno furo bloco meia
V,ultimoKP+17+24*(2*J+I),ultimoKP+18+24*(2*J+I),ultimoKP+19+24*(2*J+I),ultimoKP+20+24*(2*J+I),ultimoKP+21+24*(2*J+I),ultimoKP+22+24*(2*J+I),ultimoKP+23+24*(2*J+I),ultimoKP+24+24*(2*J+I)
*ENDDO
*ENDDO
ultimoKP = 872
ultimoV = 74
!retira os furos necessários da argamassa de assentamento
VSBV,24,67
VSBV,74,64
VSBV,24,62
VSBV,64,63
VSBV,24,65
VSBV,62,66
VSBV,25,50
VSBV,62,51
VSBV,25,52
VSBV,50,53
VSBV,25,54
VSBV,50,55
VSBV,26,70
VSBV,50,68
VSBV,26,69
VSBV,50,71
VSBV,26,72
VSBV,50,73
VSBV,27,56
VSBV,50,57
VSBV,27,58
VSBV,50,59
VSBV,27,60
VSBV,50,61
VSBV,17,44
VSBV,50,45
VSBV,17,46
VSBV,44,47
VSBV,17,48
VSBV,44,49
!cria um volume único de argamassa
VADD,16,29,30,17,35,36,37,24,31,32,25,38,39,40,26,33,34,27,41
VADD,44,42,43,28
LESIZE,ALL,,,5
MAT,1
VMESH,ALL
!junta os bloco à argamassa (apenas depois de gerar os elementos?)
!NUMMRG,ALL
!salva no banco de dados e retorna ao level superior
SAVE
FINISH
!Aplica os carregamentos e obtém a solução
/SOLU
!retorna ao level superior
FINISH
!Examina os resultados
/POST1