TC官方合作论坛

标题: 【有源码】学习了一周，放出成果给大家看看【源码】 [打印本页]

作者: hqy576331411 时间: 2012-5-17 22:49
标题: 【有源码】学习了一周，放出成果给大家看看【源码】
难点在于 1 读取用户设置的路径和文件名，并创建文件，然后自动打开  这里有个关键就是要用字符串连接
            2  选项卡下面再放选项卡，这个很不简单，要用到控件创建
            3 自动写入记事本，要用到枚举部分代码如下
         功能按钮0_点击()如果 (字符串.长度(文本)==0)
辅助.消息框("请输入文件名！")
返回假
否则
创建路径=字符串.连接(路径,"\\")
创建路径=字符串.连接(创建路径,文本)
创建路径=字符串.连接(创建路径,".txt")
文件句柄=文件.创建(创建路径,"读写")
如果(文件句柄==0)
  辅助.消息框("文件创建失败")
  否则
  辅助.命令(创建路径,真)
如果结束
如果结束

返回真
功能结束

功能复制粘贴(内容)
辅助.写入剪切板(内容)
窗口句柄=系统.枚举(文本,0)
整型数据=窗口句柄

如果 (字符串.长度(窗口句柄)==0)
辅助.消息框("内容被复制到剪切板")
否则

窗口.激活(整型数据)
键盘.按下(17)
键盘.按键(86,1)
键盘.弹起(17)
辅助.等待(200)
键盘.按键(13,1)
如果结束
返回真
功能结束

功能选项卡0_选择改变()
控件.创建("选项卡","选项卡Preprocessor","Element|RealConstants|MaterialProps|Sections|Modeling|Meshing",1,1,602,366,"","",选项卡.获得分页句柄("选项卡0",4))
控件.创建("选项卡","选项卡Modeling","Create|Operate|Move/Modify|Copy|Reflect",1,1,591,331,"","",选项卡.获得分页句柄("选项卡Preprocessor",4))
控件.创建("选项卡","选项卡Create","Kyepoints|Lines|Areas|Volumes|Nodes|Elements",1,1,580,296,"","",选项卡.获得分页句柄("选项卡Modeling",0))
控件.创建("选项卡","选项卡Volumes","Arbitrary|Block|Cylinder|Prism|Sphere|Cone",1,1,569,261,"","",选项卡.获得分页句柄("选项卡Create",3))
控件.创建("按钮","按钮Block","复制/写入",470,190,80,28,"","点击:AnsysApdlHelper.BLOCK",选项卡.获得分页句柄("选项卡Volumes",1))
控件.创建("按钮","按钮BlockH","功能说明",380,190,80,28,"","点击:AnsysApdlHelper.BLOCKH",选项卡.获得分页句柄("选项卡Volumes",1))

功能 BLOCK()
Blockw
Blockw=编辑框.获得文本("编辑框Block")
AnsysApdlHelper.复制粘贴(Blockw)
返回真
功能结束
功能 BLOCKH()
辅助.消息框("[X1, X2]Working plane X coordinates of the block.[Y1, Y2]Working plane Y coordinates of the block.[Z1, Z2]Working plane Z coordinates of the block.")
返回真
功能结束

放出图片给大家看

[attach]3285[/attach]
[attach]3284[/attach]
[attach]3286[/attach][attach]3287[/attach]

[attach]6659[/attach]

作者: 泥巴路 时间: 2012-5-17 22:51
提示: 作者被禁止或删除内容自动屏蔽

作者: hqy576331411 时间: 2012-5-17 22:58
回复 2楼泥巴路的帖子

额。我一直把代码很长当做耻辱的，说明语言不够精炼
以前这个我要写200行的，现在只要60行就够了，多亏了论坛大家的帮助啊
刚学了一周，感觉学了很多，当然那还有很多要学

作者: hqy576331411 时间: 2012-5-17 22:59
抱歉这个软件是给我自己班级和老师用的，所以不能把生成的软件直接放上来了，不是楼主抠门

还有，在这里要特地感谢“小三”这位好心的师傅，对我帮助很大，每次发帖求助都有三姐的身影，谢谢啦

作者: ltsi001 时间: 2012-5-17 23:05
学习下

作者: jrflsh 时间: 2012-5-17 23:26
哈，不错

作者: a841597117 时间: 2012-5-18 00:05
很强

作者: 无语的拉 时间: 2012-5-18 01:03

好强大

作者: 冷月无痕 时间: 2012-5-18 06:23
灰常之强大!
不过亲 TC的字符串连接直接可以用"+"号连接哦!
比如 :
创建路径=路径+"\\"+文本+".txt"

这样又能省两行哦!

作者: huanyang 时间: 2012-5-18 07:29
哈，不错

作者: hqy576331411 时间: 2012-5-18 08:17
回复 9楼冷月无痕的帖子

啊，这样啊，谢啦，这就回去改！

作者: xuhekkll 时间: 2012-5-18 08:31
楼主一周，弄出这样的脚本，相当比力啊。顶，顺便问下，下载文件需要5金币，怎么弄的，谢谢

作者: tyuyan 时间: 2012-5-18 09:09
来看看。。不错。支持一下啊。

作者: 龍吟达人 时间: 2012-5-18 09:45

这代码还能减 10行

作者: 战斗之神 时间: 2012-5-18 09:50
犀利的说。来膜拜

作者: 花开花落 时间: 2012-5-18 10:11
看看。来学习下。

作者: 无情的冷风 时间: 2012-5-18 10:32
过来膜拜

作者: q405047127 时间: 2012-5-18 10:45
0 0 ,很强大阿

作者: 战地之王 时间: 2012-5-18 11:13
很给力的说。来支持支持。

作者: hqy576331411 时间: 2012-5-18 12:31
回复 13楼tyuyan的帖子

啊，你来啦

作者: hqy576331411 时间: 2012-5-18 12:31
回复 14楼龍吟达人的帖子

咋减，求指导啊大神

作者: asd19921026 时间: 2012-7-9 00:49
真心看不懂

作者: yhqll5115717 时间: 2012-8-16 13:54
小白飘过！表示看不懂！

作者: scj2zxy 时间: 2012-8-23 16:18
都是人才

作者: llxds 时间: 2012-9-4 20:04
.。。。。。。。。。。。。

作者: ldxhlx 时间: 2012-9-20 21:06
积极回帖，努力帮助新手，赚取TC币

作者: canyue514 时间: 2012-10-5 16:35
给力，很强大，学习学习

作者: ldxhlx 时间: 2012-10-5 17:23
？？？？？？？？？？

作者: 蛋炒饭 时间: 2012-10-11 23:32
刚开始学，看得很稀里糊涂

作者: icesun2012 时间: 2012-10-13 12:36
不能看么~~~~~~~~~~~~~~

作者: 夏伤丨 时间: 2012-10-22 06:48
学习中。。。。。。。。

作者: qfgstmkd 时间: 2012-10-22 10:02
学习一周就能写这样的代码，很强大，学习学习，我新手一个求热心师父，感激不尽

作者: 伪⊙装 时间: 2012-11-1 15:00
俺刚来求大神教

作者: lyyybz 时间: 2012-11-27 12:30
顶，很实用。haha

作者: 极风天下 时间: 2013-2-2 08:38
哈哈不错

作者: 819148041 时间: 2013-3-22 21:05
回复 1楼hqy576331411的帖子

房顶上飞无法额我

作者: 极风天下 时间: 2013-3-30 09:48

学习了

作者: zzltcno2 时间: 2013-4-2 22:37
顶一个，看看先呵呵

作者: lianglilimeng 时间: 2013-4-10 14:46
回复 1楼hqy576331411的帖子

什么游戏的

作者: qq462621349 时间: 2013-4-11 18:35
回复 1楼hqy576331411的帖子

受教了!!!!!!!!!!!!!!!!!!

作者: calvin0401 时间: 2013-4-16 23:33
刚学一下午，表示压力很大

作者: york17 时间: 2013-8-23 00:01
学习下。

作者: 菜鸟狙丶 时间: 2013-8-24 11:30
很强大！

作者: 184706356 时间: 2013-9-1 21:03
谢谢楼主分享!!

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)