【有源码】学习了一周，放出成果给大家看看【源码】

hqy576331411

难点在于 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.")
返回 真
功能结束



放出图片给大家看

hqy576331411

回复 2楼泥巴路的帖子

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

hqy576331411

抱歉这个软件是给我自己班级和老师用的，所以不能把生成的软件直接放上来了，不是楼主抠门

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

ltsi001

学习下

jrflsh

哈，不错

a841597117

很强

无语的拉

好强大

冷月无痕

灰常之强大!
不过 亲 TC的字符串连接直接可以用"+"号连接哦!
比如 :
创建路径=路径+"\\"+文本+".txt"

这样又能省两行哦!

huanyang

哈，不错