求girp代码偏执面3MM并且改变偏置后面颜色为红色！

dhdfsjnsdnjsns · 发表于 2018-4-16 21:59

dhdfsjnsdnjsns · 发表于 2018-4-17 21:40

谢谢关注！！！！！！！！！！！！！！！！！！！！！！！

dhdfsjnsdnjsns · 发表于 2018-4-18 21:53

梅大大大作里面有  呵呵

entity/obj
number/poin(3)

$$ 输入参数
l10:
   param/'梅雷提示:请输入偏置距离...',$
         '偏置距离=',h,resp
   jump/l10:,end:,,,resp

$$ 选择对象面
l20:
   mask/71
   ident/'梅雷提示请选择目标面...',obj,resp
   jump/l10:,end:,,,resp

l30:
$$ 提取面的矢量方向
poin=snorf(obj,.5,.5)
&color(obj)=36

$$ 偏置面
if/h==0,jump/l10:
if/h>0,facmov/obj,trim,height,h,axis,poin(1..3),iferr,bn:
if/h<0,facmov/obj,trim,height,absf(h),axis,-poin(1..3),iferr,bn:
jump/l20:

end:
halt

bn:
print/'梅雷提示：由于参数不符...所以不能偏置此面...'
jump/end:

		自动登录	找回密码
密码			注册

[原创] 求girp代码 偏执面3MM并且改变偏置后面颜色为红色！

[原创] 求girp代码偏执面3MM并且改变偏置后面颜色为红色！