请教这个网格板该用哪个命令编写？

请教这个网格板该用哪个GDL命令编写？prism可以实现，但很繁琐。
用了一下MESH网面命令，但达不到效果。
因此想知道还有没有更高效的命令。谢谢大侠们

{:soso_e179:}陈版，好方法！

感谢。。。

经过多次尝试，我用以下命令解决了问题

3d脚本：
!定义f/g的整数值
f=INT((l-d/2)/c)
g=INT((w-d/2)/c)

CUTPLANE l,0     
CUTPLANE 0,w     
BLOCK d/2,w+d/2,h  !补充左侧边长厚度的一半
BLOCK l+d/2,d/2,h  !补充下侧边长厚度的一半

ADDX d/2
ADDY d/2

FOR e=1 TO f+1 !通过循环命令做出X向的所有网格

FOR i=1 TO g+1 !通过循环命令做出Y向的所有网格

PRISM_ 10,h,
0,0,15,
c,0,15,
c,c,15,
0,c,15,
0,0,-1,
d/2,d/2,15,
c-d/2,d/2,15,
c-d/2,c-d/2,15,
d/2,c-d/2,15,
d/2,d/2,-1
!做出一个单元网格

ADDY c
NEXT i

DEL g+1

ADDX c
NEXT e

DEL f+1

CUTEND  !第二个剪切命令结束
CUTEND  !第一个剪切命令结束

DEL 2

参数栏设置：
c 网格边长  d网格壁厚  l/w/h 整个网格的长宽高

厉害呀，数字建筑来了

试了显示不出来

感謝無私分享程式

请教这个网格板该用哪个GDL命令编写？prism可以实现，但很繁琐。
用了一下MESH网面命令，但达不到效果。
因此想知道还有没有更高效的命令。谢谢大侠们

{:soso_e179:}陈版，好方法！

感谢。。。

经过多次尝试，我用以下命令解决了问题

3d脚本：
!定义f/g的整数值
f=INT((l-d/2)/c)
g=INT((w-d/2)/c)

CUTPLANE l,0     
CUTPLANE 0,w     
BLOCK d/2,w+d/2,h  !补充左侧边长厚度的一半
BLOCK l+d/2,d/2,h  !补充下侧边长厚度的一半

ADDX d/2
ADDY d/2

FOR e=1 TO f+1 !通过循环命令做出X向的所有网格

FOR i=1 TO g+1 !通过循环命令做出Y向的所有网格

PRISM_ 10,h,
0,0,15,
c,0,15,
c,c,15,
0,c,15,
0,0,-1,
d/2,d/2,15,
c-d/2,d/2,15,
c-d/2,c-d/2,15,
d/2,c-d/2,15,
d/2,d/2,-1
!做出一个单元网格

ADDY c
NEXT i

DEL g+1

ADDX c
NEXT e

DEL f+1

CUTEND  !第二个剪切命令结束
CUTEND  !第一个剪切命令结束

DEL 2

参数栏设置：
c 网格边长  d网格壁厚  l/w/h 整个网格的长宽高

厉害呀，数字建筑来了

试了显示不出来

感謝無私分享程式