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

---

$$ UG二次开发教材 根据密度测量质量grip源代码
ENTITY/CYL(1000)
NUMBER/VAL(42),MIDU
STRING/stt(200),wjwz(200)

MIDU=1 $$ 密度
ioi=0
L10:
param/'梅雷提示:请输入密度...',$
'密度(克/每立方厘米)',MIDU,resp
JUMP/L10:,END:,,resp

L20:
MASK/70
IDENT/'梅雷提示:请选择实体...',CYL,cnt,nm,RESP
JUMP/L20:,END:,,resp
$$注意UG单位是（毫米/英寸） GCM 表示厘米/克
[hidden]ANLSIS/SOLID,CYL(1..nm),GCM,VAL
$$ 质量=密度*体积
ZL_g=MIDU*VAL(2) $$ 质量(克)
ZL_kg=ZL_g/1000 $$ 质量(千克)
ZL_t=ZL_g/1000000 $$ 质量(吨)
ioi=ioi+1
[/hidden]stt='============================================================'
print/ISTR(ioi) + ')'
print/'以下为你所选择的第组'+ISTR(ioi)+'对象[信息]'+' 该组有'+ISTR(nm)+'个对象'
print/'体积=' + FSTR(VAL(2))+ '(立方厘米)'
print/'密度=' + FSTR(MIDU) + '(克/每立方厘米)'
print/'质量=' + FSTR(ZL_g) + '(克)'
print/'质量=' + FSTR(ZL_kg) + '(千克)'
print/stt
jump/L10:
END:
HALT