社区应用 最新帖子 精华区 社区服务 会员列表 统计排行 搜索
主题 : UG二次开发教材 根据密度测量质量grip源代码
xx877178860 离线
级别: grip幼儿园
UID: 8524
精华: 0
发帖: 4
铜币: 4 枚
威望: 0 点
贡献: 0 点
银元¥: 10 元
技术: 0 点
在线时间: 2(时)
注册时间: 2018-08-06
最后登录: 2018-08-24
帖主  发表于: 08-12  

UG二次开发教材 根据密度测量质量grip源代码

$$ 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  表示厘米/克
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
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
描述
快速回复

验证问题:
1+2+3+4=? 正确答案:10
按"Ctrl+Enter"直接提交