购买与咨询 NX 二次开发视频教程，请联系微信号：13890821008  QQ号：85585969  

entity/obj(1000),pla(6),box
number/nm,distan(7),mindis(6),p(6)
number/xmin,xmax,ymin,ymax,zmin,zmax
data/ofset,0.5
$$string/date1(132),date2(132),date3(132),date4(132)

$$程序加密代码，用时间限制使用权限，这里屏蔽掉，有需要加密的可以参考$$
$$N01:
$$date1=substr(date,1,2)
$$date2=substr(date,5,2)
$$date3=substr(date,9,2)
$$date4=date3+date1+date2
$$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
$$messg/date4
$$if/valf(date4)>061231,jump/messg1:

mask/71 $$过滤只选择面

start:
ident/'请请选择面',obj,cnt,nm,rsp
jump/start:,hal:,,,rsp

ifthen/nm>1000
messg/'选择的对象超过1000个...','请重新选择'
jump/start:
else
jump/l00:
endif
l00:
param/'输入偏置距离','偏置距离 = ',ofset,altact,'======info======',rsp
jump/l00:,hal:,,messg:,,,rsp

$$print/istr(nm)

do/l10:,i,1,nm
p=solbox/obj(i) $$获得对象的坐标极点

$$自动获取所选面的方位、大小并自动计算偏置数据处理

●●●请先 登陆 或 注册 后查看●●●

box=solblk/origin,xmin-ofset/2,ymin-ofset/2,zmin-ofset/2,$
size,x+ofset,y+ofset,z+ofset,iferr,err1:

&COLOR(box)=47 $$对偏置的实体设置颜色

jump/l80:

messg:
messg/'程序使用中有任何问题',$
'请联系www.UGapi.com'

jump/l00:

err0:
messg/'选择的对象超过1000个...','请重新选择'
jump/start:
err1:
messg/'请输入正确的block尺寸',$
'选择OK继续....'
jump/start:

l80:
choose/'option' ,'继续?',RSP
jump/start:,hal:,,,start:,hal:,RSP

hal:
halt

messg1:
print/'输出提示信息'

jump/hal:

$$代码结束