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

---

$$ *** 在用的电极基准台功能源代码
$$完整功能代码示例，可直接编译使用
$$你也可以结合你的需求修改或增加功能，比如增加自动合并、自动透明底面等

entity/obj(1000),pla(6),box,sol,sol1,ent,ent1,pt(26),blk
number/nm,distan(7),mindis(6),p(6)
number/xmin,xmax,ymin,ymax,zmin,zmax,mat1(12),p11,p12
number/MAT2(12)
data/ofset,0.3,bl,2,ch,4,h,10
start:
mask/70
ident/'请选择需要建立基准台的实体',obj,cnt,nm,rsp
jump/start:,trm:,,,rsp
l10:
do/l20:,i,1,nm
p=solbox/obj(i)
ifthen/i==1
$$计算所选实体的大小
xmin=minf(p(1),p(4))
xmax=maxf(p(1),p(4))
ymin=minf(p(2),p(5))
ymax=maxf(p(2),p(5))
zmin=minf(p(3),p(6))
zmax=maxf(p(3),p(6))
else
xmin=minf(xmin,p(1),p(4))
xmax=maxf(xmax,p(1),p(4))
ymin=minf(ymin,p(2),p(5))
ymax=maxf(ymax,p(2),p(5))
zmin=minf(zmin,p(3),p(6))
zmax=maxf(zmax,p(3),p(6))
endif
x=absf(xmax-xmin)
y=absf(ymax-ymin)
z=absf(zmax-zmin)
if/x==0,x=1
if/y==0,y=1
if/z==0,z=1
l20:
draw/off
pla(1)=PLANE/YZPLAN,(xmin-10)
pla(2)=PLANE/YZPLAN,(xmax+10)
pla(3)=PLANE/XZPLAN,(ymin-10)
pla(4)=PLANE/XZPLAN,(ymax+10)
pla(5)=PLANE/XYPLAN,(zmin-10)
pla(6)=PLANE/XYPLAN,(zmax+10)
l01:

l40:
delete/pt(11..14)

param/'输入参数 ...','X 中心点',int,p11,'Y 中心点',int,p12,$
'Z 深度',int,zmin,'基准台长度',int,L,'基准台宽度',int,W,'基准台高度',int,H,$
'圆角大小',int,BL,'斜角大小',int,CH,RSP

p21=p11-l/2
p22=p12-w/2

delete/blk
blk=solblk/origin,p21,p22,zp1-h,size,l,w,h
draw/off
pt(11)=point/p21,p22,zp1-h/2
pt(12)=point/p21,p22+w,zp1-h/2
pt(13)=point/p21+l,p22+w,zp1-h/2
pt(14)=point/p21+l,p22,zp1-h/2
draw/on
blend/blk,radius,bl,pt(11..13)
blend/blk,chamfr,ch,pt(14)
ifthen/rsp==3
jump/l40:
elseif/rsp<>3
jump/l41:
l41:
delete/pt(11..14)
jump/end:
endif
l50:
delete/pt(11..14)
end:
trm:
halt

$$代码结束，编译后运行结果如下图所示