EDA365电子工程师网

标题: mil mm互换原创分享（三级以前福利） [打印本页]

作者: skill_rc 时间: 2016-5-5 17:11
标题: mil mm互换原创分享（三级以前福利）

axlCmdRegister("cmm" `convert_mil_mm ?cmdType "general")
procedure(convert_mil_mm()
create_form()
mform=axlFormCreate( (gensym) form_file nil 'form_action t )
axlFormDisplay(mform)
)
procedure(form_action(temp_form)
case(temp_form->curField
      ("txt_mil"
         mil=atof(temp_form->curValue)
         axlFormSetField(temp_form,"txt_mm",mil/39.37)
      )
      ("txt_mm"
         mm=atof(temp_form->curValue)
         axlFormSetField(temp_form,"txt_mil",mm*39.37)
      )
)
)
procedure(create_form()
form_file = "temp.form"
temp_form = outfile(form_file "w")
fprintf(temp_form "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(temp_form "FORM\n")
fprintf(temp_form "FIXED\n")
fprintf(temp_form "PORT 38 5\n")
fprintf(temp_form "HEADER \"Convert mil<->mm\"\n")
fprintf(temp_form "TILE\n")

fprintf(temp_form "TEXT \"MIL\"\n")
fprintf(temp_form "TLOC 2 1\n")
fprintf(temp_form "ENDTEXT\n")

fprintf(temp_form "FIELD txt_mil\n")
fprintf(temp_form "FLOC 5 1\n")
fprintf(temp_form "STRFILLIN 10 20\n")
fprintf(temp_form "ENDFIELD\n")

fprintf(temp_form "TEXT \"<-->\"\n")
fprintf(temp_form "TLOC 17 1\n")
fprintf(temp_form "ENDTEXT\n")

fprintf(temp_form "FIELD txt_mm\n")
fprintf(temp_form "FLOC 20 1\n")
fprintf(temp_form "STRFILLIN 10 20\n")
fprintf(temp_form "ENDFIELD\n")

fprintf(temp_form "TEXT \"MM\"\n")
fprintf(temp_form "TLOC 32 1\n")
fprintf(temp_form "ENDTEXT\n")

fprintf(temp_form "ENDTILE\n")
fprintf(temp_form "ENDFORM\n")
close(temp_form)
)

作者: skill_rc 时间: 2016-5-5 17:12
为啥传了一个截图看不到呢？

作者: skill_rc 时间: 2016-5-6 08:32
分享学习

作者: skill_rc 时间: 2016-5-10 16:05
貌似没什么市场。。。。

作者: aloneweiwei 时间: 2016-5-22 20:31
感觉没什么卵用、、、

作者: cw883561 时间: 2016-5-23 09:19
good

作者: TobyTao_Zhang 时间: 2016-5-24 09:27
多谢，对我很有帮助，支持下。。。

作者: skill_rc 时间: 2016-5-24 10:07

TobyTao_Zhang 发表于 2016-5-24 09:27
多谢，对我很有帮助，支持下。。。

分享学习！

作者: MaxEnding 时间: 2016-5-25 09:11
谢谢分享！

作者: soswelcome 时间: 2016-5-26 13:46
谢谢分享,学习学习

作者: a253366589 时间: 2016-5-26 15:40
软件不是有这个功能吗

作者: skill_rc 时间: 2016-5-26 18:44

a253366589 发表于 2016-5-26 15:40
软件不是有这个功能吗

好像没有

作者: ecoren 时间: 2016-6-8 13:21
单位换算方便了

作者: grant30 时间: 2016-6-8 16:47
谢谢楼主~~~~~~~~~~~

欢迎光临 EDA365电子工程师网 (https://bbs.elecnest.cn/)