delete geometry
wd=2400
sd=580
gd=2640
bj=18
ms=6 --门板数量
mbkd=(2400-bj-bj)/ms-2 --门板宽度
dib=box width:(wd-36) length:(sd-bj) height:bj --底板
move dib[0,-bj/2,60]
dib.wirecolor=[0,0,255]
cbL=box width:bj length:sd height:(gd-60) --左侧板
cbl.pos=[-(wd/2-bj/2),0,0]
move cbl[0,-18,0]
cbr=copy cbl --右侧板
move cbr[wd-18,0,0]
gtf=copy cbl --顶封板中
gtf.height=60
gtf.width=wd
gtf.length=bj
move gtf[0,(-sd/2)+9,0]
move gtf[wd/2-9,0,(cbl.height)]
gtfL=copy cbL --顶封板左
gtfL.height=60
gtfL.length=sd-18
move gtfL[0,9,cbl.height]
gtfR=copy gtfL --顶封板右
move gtfL[wd-bj,0,0]
tjb=copy dib --踢脚板
tjb.height=60
tjb.length=bj
tjb.wirecolor=[255,0,255]
move tjb[0,-(sd/2-24),-60]
zgb=copy dib --中隔板
zgb.height=bj
move zgb[0,0,(cbl.height-60-bj-550-bj)]
zgb.wirecolor=[255,255,0]
xgb=copy zgb --下隔板
move xgb[0,0,(-(cbl.height-bj*3-60-550)/2)]
dingb=copy zgb --顶板
dingb.pos=zgb.pos
dingb.length=sd
move dingb[0,-bj/2,550+bj]
dingb.wirecolor=[255,5,5]
zsb=copy cbL --中竖板
zsb.length=zgb.length
zsb.height=gd-60-bj-60-bj
if ms==6 then ( --六门
kd=((zgb.width)/3-bj/2)+15
move zsb[kd,9,(60+bj)]
zsb2=copy zsb
move zsb2[kd,0,0]
)
--四门
if ms==4 then (
move zsb[((wd-bj*2)/2-bj/2)+18,9,(60+bj)]
)
beib=box width:wd length:sd height:gd --背板
beib.width=wd-36
beib.height=gd-60
beib.length=5
move beib[0,(sd/2-15.5),0]
select #(dib,cbl,cbr,beib,tjb,zsb,dingb,zgb,zsb2,gtfl,gtfr,gtf,xgb) --选择集
$.wirecolor=[100,100,100]
Group selection
--------------------------------------------------
xmb0=box length:18 width:390 height:(gd-18-550-60-60-7) --下门板
xmb0.pos=[0,0,0]
move xmb0[(-wd/2+390/2)+18,-292,60]
a=xmb0.pos
xmb0.height
a.y;a.x
smb0=copy xmb0 --上门板
smb0.height=550+16
move smb0[0,0,xmb0.height+4]
selectmore xmb0
b=smb0.pos
b.y;b.x
select xmb0
selectmore smb0
for i=1 to (ms-1) do
(
a.x+=mbkd+2
b.x+=mbkd+2
xmb=instance xmb0
xmb.pos=[a.x,a.y,a.z]
selectmore xmb
smb="smb"+(i as string)
smb=instance smb0
smb.pos=[b.x,b.y,b.z]
selectmore smb
)
-- $.wirecolor=[200,100,200]
-- if $zmb then box()
-- Group selection name:"zmb"
Group selection
select $group001
aaa=box()
-- aaa.name="good"
--
-- select $good
--
-- try
-- (
-- $group008=undefined
-- print "没有"
-- )catch(
-- print "有"
--
-- )
-- if $group001==undefined then (print "没有")
-- if isValidNode aaa do print "对象存在" else print "对象不存在"
if $group002 == undefined then print "对象不存在"
else print "对象存在"
-- if $group001==ok then
-- ( messageBox("bbb"))
-- select geometry
-- select #($zmb,$guiti)
-- Group selection name:"yigui"
-- select $box*
-- convertToPoly $
-- addmodifier $ (Chamfer amount:2 segments:2 smooth:on smoothtype:1 smoothtoadjacent:on )
-- mybox.name = "BlueBox"
maxscript 自动衣柜代码
于 2024-05-24 23:01:08 首次发布