说明书隧道开挖问题（新手请教）

loverccc

new
poly brick -10 10 -10 10 -10 10
def tunz
zza = -10.0
zzb = 10.0
txb1 = -4.0
tyb1 = -4.0
txb2 = 4.0
tyb2 = -4.0
txc = 0.0
tyc = 0.0
tr = 4.0
tx1 = txc + tr * cos(180*degrad)
ty1 = tyc + tr * sin(180*degrad)
tx2 = txc + tr * cos(135*degrad)
ty2 = tyc + tr * sin(135*degrad)
tx3 = txc + tr * cos(90*degrad)
ty3 = tyc + tr * sin(90*degrad)
tx4 = txc + tr * cos(45*degrad)
ty4 = tyc + tr * sin(45*degrad)
tx5 = txc + tr * cos(0*degrad)
ty5 = tyc + tr * sin(0*degrad)

th = 0.5
txb1i = -4.0 + th
tyb1i = -4.0 + th
txb2i = 4.0 - th
tyb2i = -4.0 + th
txc = 0.0
tyc = 0.0
tri = tr - th
tx1i = txc + tri * cos(180*degrad)

ty1i = tyc + tri * sin(180*degrad)
tx2i = txc + tri * cos(135*degrad)
ty2i = tyc + tri * sin(135*degrad)
tx3i = txc + tri * cos(90*degrad)
ty3i = tyc + tri * sin(90*degrad)
tx4i = txc + tri * cos(45*degrad)
ty4i = tyc + tri * sin(45*degrad)
tx5i = txc + tri * cos(0*degrad)
ty5i = tyc + tri * sin(0*degrad)
end
tunz
tunnel a txb1 tyb1 zza tx1 ty1 zza tx2 ty2 zza tx3 ty3 zza &
tx4 ty4 zza tx5 ty5 zza txb2 tyb2 zza &
b txb1 tyb1 zzb tx1 ty1 zzb tx2 ty2 zzb tx3 ty3 zzb &
tx4 ty4 zzb tx5 ty5 zzb txb2 tyb2 zzb &
reg 5

tunnel a txb1i tyb1i zza tx1i ty1i zza tx2i ty2i zza tx3i ty3i zza &
tx4i ty4i zza tx5i ty5i zza txb2i tyb2i zza b txb1i tyb1i zzb &
tx1i ty1i zzb tx2i ty2i zzb tx3i ty3i zzb tx4i ty4i zzb &
tx5i ty5i zzb txb2i tyb2i zzb &
reg 7

save tun_a.sav

jset dd 270 dip 70 or 0,5.7 0 id 10
jset dd 40 dip 65 or 0,5.7 0 id 10
jset dd 130 dip 60 or 0,5.7 0 id 10

save tun_b.sav

hide reg 5 7

gen ed 5

find reg 5
gen ed 2

find reg 7
gen ed 5

save tun_z.sav
pl hold dip 70 dd 210 color mat
ret



这是3dec说明书上的一个算例，但是在tunz（标红的地方）老是出错，能不能帮我解答一下是为什么？

icystone_2003

问题解决了吗？应该是你的3dec版本高于3.0，所以运行新函数需要在前面加@