mil mm互换原创分享（三级以前福利）

skill_rc · 发表于 2016-5-5 17:11

EDA365欢迎您登录！

您需要登录才可以下载或查看，没有帐号？注册

x

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-24 10:07

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

分享学习！

skill_rc · 发表于 2016-5-26 18:44

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

好像没有

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

多谢，对我很有帮助，支持下。。。

MaxEnding · 发表于 2016-5-25 09:11

谢谢分享！

soswelcome · 发表于 2016-5-26 13:46

谢谢分享,学习学习

a253366589 · 发表于 2016-5-26 15:40

软件不是有这个功能吗

ecoren · 发表于 2016-6-8 13:21

单位换算方便了

grant30 · 发表于 2016-6-8 16:47

谢谢楼主~~~~~~~~~~~

grant30 · 发表于 2016-6-8 16:47

谢谢楼主~~~~~~~~~~~

帐号		自动登录	找回密码
密码			注册

mil mm互换原创分享（三级以前福利）

EDA365欢迎您登录！

评分

点评

点评

推荐内容 /1