那和TCl有什么区别吗.docx
- 文档编号:24925429
- 上传时间:2023-06-02
- 格式:DOCX
- 页数:19
- 大小:19.06KB
那和TCl有什么区别吗.docx
《那和TCl有什么区别吗.docx》由会员分享,可在线阅读,更多相关《那和TCl有什么区别吗.docx(19页珍藏版)》请在冰豆网上搜索。
那和TCl有什么区别吗
那和TCl有什么区别吗
你好,2009-06-0117:
30:
43
只是生成界面,里面的代码在ansys中不能用,要自己手动改
相信2009-06-0117:
30:
54
你能把这个界面的程序文件给我看一下吗
你好,2009-06-0117:
31:
01
一样的,相当与VB6.0开发环境
你好,2009-06-0117:
31:
06
可以拖拉
你好,2009-06-0117:
31:
21:
29:
59
用的Vtcl软件
Vtcl程序?
相信2009-06-0117:
31:
48
不是就是刚才你给我的界面编写时的文件
相信2009-06-0117:
31:
53
我想看看
你好,2009-06-0117:
32:
22
现在是不能用的
相信2009-06-0117:
32:
28
为啥
行者2009-06-0117:
32:
41
接收文件成功,保存于C:
\DocumentsandSettings\Administrator\桌面\main.tcl。
你好,2009-06-0117:
33:
05
里面一大半的程序是要删掉的
相信2009-06-0117:
34:
48
我先看看你的文件,我研究研究呵呵呵
你好,2009-06-0117:
35:
07
给你一个可以使用的吧
相信2009-06-0117:
35:
24
好啊
行者2009-06-0117:
35:
36
接收文件成功,保存于C:
\DocumentsandSettings\Administrator\桌面\tran23sel.tcl。
你好,2009-06-0117:
36:
14
里面需图片
相信2009-06-0117:
36:
44
你说刚才那个不能用,为啥
你好,2009-06-0117:
36:
44
各个控件的位置用VTCL生成的
你好,2009-06-0117:
36:
52
其余自己编的
相信2009-06-0117:
37:
00
到底什么是VTCL
相信2009-06-0117:
37:
01
呵呵
相信2009-06-0117:
37:
04
我不懂哦
你好,2009-06-0117:
37:
26
还有VTCL的代码,在ansys是没有对应的库
相信2009-06-0117:
37:
54
是啊,
相信2009-06-0117:
38:
09
我知道,ANSYS中有那个TCL的源代码库是吧
你好,2009-06-0117:
38:
13
恩
你好,2009-06-0117:
38:
41
传给你的第一个main。
tcl文件里面代码:
#!
/bin/sh
#thenextlinerestartsusingwish\
execwish"$0""$@"
if{!
[infoexistsvTcl(sourcing)]}{
packagerequireTk
switch$tcl_platform(platform){
windows{
optionadd*Button.padY0
}
default{
optionadd*Scrollbar.width10
optionadd*Scrollbar.highlightThickness0
optionadd*Scrollbar.elementBorderWidth2
optionadd*Scrollbar.borderWidth2
}
}
}
#############################################################################
#VisualTclv1.60Project
#
#############################################################################
##vTclCodetoLoadStockImages
if{!
[infoexistvTcl(sourcing)]}{
#############################################################################
##Procedure:
vTcl:
rename
proc:
:
vTcl:
rename{name}{
你好,2009-06-0117:
39:
14
这些乱七八糟的在ansys不能运行
你好,2009-06-0117:
39:
24
要全部删掉
相信2009-06-0117:
39:
32
这些是VTCL?
你好,2009-06-0117:
39:
57
你可以吧两个文件对比一下,就可以知道大概的代码样式
你好,2009-06-0117:
40:
05
也不全是
相信2009-06-0117:
40:
25
能语聊吗,我说话,你打字就行
你好,2009-06-0117:
42:
54
可以
你好,2009-06-0117:
43:
18
能听见
你好,2009-06-0117:
43:
39
对
你好,2009-06-0117:
43:
53
对
你好,2009-06-0117:
44:
08
把里面大部分代码删掉
你好,2009-06-0117:
44:
41
只留下控件定义和位置代码
你好,2009-06-0117:
45:
07
你打开main.tcl文件
你好,2009-06-0117:
45:
31
从第一行到525行的
你好,2009-06-0117:
45:
38
都可以删掉
你好,2009-06-0117:
45:
48
vTcl:
toplevel$top-classToplevel
你好,2009-06-0117:
46:
19
{31863002-06C9-40D3-A75C-0E7CA3FCB58A}_L_2DA999999_2DB999999
你好,2009-06-0117:
46:
25
看到没有
你好,2009-06-0117:
46:
53
对,wm是窗体属性
你好,2009-06-0117:
47:
10
等一会
你好,2009-06-0117:
47:
28
你说
你好,2009-06-0117:
48:
13
他是vtcl自己提供的一些函数
你好,2009-06-0117:
48:
15
对
你好,2009-06-0117:
48:
21
在ansys是没有的
你好,2009-06-0117:
48:
39
对
你好,2009-06-0117:
48:
45
在看下面
你好,2009-06-0117:
48:
54
labelframe$top.lab81\
-font{{TimesNewRoman}10{}}-text定义径向周向载荷-height140-width225
vTcl:
DefineAlias"$top.lab81""Labelframe1"vTcl:
WidgetProc"Toplevel1"1
你好,2009-06-0117:
49:
09
这就是一个labelframe控件
你好,2009-06-0117:
49:
23
名称是$top.lab81
你好,2009-06-0117:
49:
40
这个是tk的空间
你好,2009-06-0117:
49:
43
对
你好,2009-06-0117:
49:
54
在ansys和vtcl都适用
你好,2009-06-0117:
50:
04
这么控件是个框框
你好,2009-06-0117:
50:
13
{A679ECD2-6EB8-4B8E-8DF8-EB9882DC4E97}_L_2DA999999
你好,2009-06-0117:
50:
29
外面的框框
你好,2009-06-0117:
50:
54
对,位置是vtcl拖动实现的
你好,2009-06-0117:
51:
07
不用我们自己计算坐标了
你好,2009-06-0117:
51:
16
对
你好,2009-06-0117:
51:
20
对
你好,2009-06-0117:
51:
41
对
你好,2009-06-0117:
51:
49
对
你好,2009-06-0117:
51:
57
这样做界面就方便了
你好,2009-06-0117:
52:
28
只要拖动就可以了
你好,2009-06-0117:
52:
43
对
你好,2009-06-0117:
52:
45
{45461B15-E61D-4B3E-AFDA-6762FDB6E1C9}_L_2DA999999
你好,2009-06-0117:
53:
19
含有vtcl的都不能在ansys中运行
你好,2009-06-0117:
53:
50
还有最后的程序都要删掉
你好,2009-06-0117:
53:
52
可以的
你好,2009-06-0117:
54:
16
vTcl:
FireEvent$base<
}
#############################################################################
##Bindingtag:
_TopLevel
bind"_TopLevel"<
if{!
[infoexists_topcount]}{set_topcount0};incr_topcount
}
bind"_TopLevel"<
if{[set:
:
%W:
:
_modal]}{
vTcl:
Toplevel:
WidgetProc%Wendmodal
}else{
destroy%W;if{$_topcount==0}{exit}
}
}
bind"_TopLevel"
if{[winfotoplevel%W]=="%W"}{incr_topcount-1}
}
Windowshow.
Windowshow.top80
main$argc$argv
你好,2009-06-0117:
54:
27
最后哟这段代码
你好,2009-06-0117:
54:
33
都删了
你好,2009-06-0117:
54:
37
还有
你好,2009-06-0117:
54:
51
对
你好,2009-06-0117:
55:
06
自动生成的
你好,2009-06-0117:
55:
07
恩
你好,2009-06-0117:
55:
26
vTcl:
DefineAlias"$top.lab81""Labelframe1"vTcl:
WidgetProc"Toplevel1"1
每个控件及位置后也都删掉
你好,2009-06-0117:
55:
31
这样的没有
你好,2009-06-0117:
55:
43
自己用程序编写就好了
相信2009-06-0117:
56:
31
$w.texttagbindd0<1>{source[filejoin[pwd]userinteface1tcltcl250.tcl]}
你好,2009-06-0117:
56:
44
恩
你好,2009-06-0117:
56:
49
这个可以
你好,2009-06-0117:
57:
06
button$site_3_0.but85\
-font{{TimesNewRoman}10{}}-pady0-text选择1号齿轮受力柱面
你好,2009-06-0117:
57:
12
这是一个按钮控件
你好,2009-06-0117:
57:
28
在后面加上-command函数
你好,2009-06-0117:
57:
45
在最后定义函数
相信2009-06-0117:
58:
02
函数定义规则很重要
你好,2009-06-0117:
58:
07
在我给你发第二个可以使用的文件中可以看到
你好,2009-06-0117:
58:
17
第二个文件
你好,2009-06-0117:
58:
49
button$site_3_0.but85\
-font{{MSSansSerif}11{}}-pady0-text选择2号齿轮轴承中心-commandsel2
你好,2009-06-0117:
59:
12
点击按钮回执行sel2函数
你好,2009-06-0117:
59:
30
后面定义
你好,2009-06-0117:
59:
31
procsel2{}{
catch{ans_sendcommandFnc_NSEL_S}err
}
相信2009-06-0117:
59:
42
Fnc_NSEL_S
相信2009-06-0117:
59:
48
这个是什么呢
你好,2009-06-0117:
59:
54
这是ansys选择器函数
你好,2009-06-0118:
00:
12
你在ansys中输入
你好,2009-06-0118:
00:
16
看看就知道了
你好,2009-06-0118:
00:
21
Fnc_NSEL_S
你好,2009-06-0118:
00:
57
意思是找节点
你好,2009-06-0118:
01:
03
你改一下
你好,2009-06-0118:
01:
08
Fnc_ASEL_S
你好,2009-06-0118:
01:
22
这是ansys的函数
你好,2009-06-0118:
01:
24
对
你好,2009-06-0118:
02:
15
在ansys安装目录
D:
\ProgramFiles\AnsysInc\v110\ANSYS\gui\en-us\UIDL
你好,2009-06-0118:
02:
29
我的是这么
你好,2009-06-0118:
02:
50
注意复制一份出来
你好,2009-06-0118:
03:
19
给把ansys的文件弄坏了
你好,2009-06-0118:
03:
44
最好用ultraedit
你好,2009-06-0118:
03:
52
这是uidl命令,
你好,2009-06-0118:
04:
32
只要付值一份出来
你好,2009-06-0118:
04:
40
随便都可以
你好,2009-06-0118:
04:
54
就是不要把ansys自己的文件损坏;峩
相信2009-06-0118:
05:
54
点击按钮怎么样打开另外的一个用户的界面程序
你好,2009-06-0118:
05:
54
proctransolve{}{
catch{ans_sendcommand/INPUT,'one','mac','cseansys/703/trantone/',,0}err
}
你好,2009-06-0118:
06:
05
看最后一个函数
你好,2009-06-0118:
06:
26
对
你好,2009-06-0118:
06:
42
文件路劲
你好,2009-06-0118:
06:
43
ans_sendcommand
你好,2009-06-0118:
06:
50
只用apdl命令
相信2009-06-0118:
07:
05
cseansys/703/trantone/',,0
你好,2009-06-0118:
07:
13
所以运行其他的tcl文件也用apdl命令就可以了
你好,2009-06-0118:
07:
25
后面是参数
相信2009-06-0118:
07:
55
~eui
你好,2009-06-0118:
07:
54
~EUI
你好,2009-06-0118:
07:
55
对
你好,2009-06-0118:
08:
11
把。
input改成~EUI就好了
相信2009-06-0118:
08:
27
cseansys/703/trantone/',,0
你好,2009-06-0118:
08:
34
procCuMn{}{
destroy.dampdefine
ans_sendcommand/NOPR
catch{ans_sendcommand~eui,'sourcecseansys/703/dampdefine/cumn.tcl'}err
ans_sendcommand/GO
}
相信2009-06-0118:
08:
42
one.mac的相对路径是吗
你好,2009-06-0118:
09:
01
上面是给你调用其他tcl文件的例子
相信2009-06-0118:
09:
06
cseansys/703/trantone/',,0这个参数怎么解释呢
你好,2009-06-0118:
09:
33
就是cseansys\703\trantone\one.mac
你好,2009-06-0118:
10:
06
是、input参数
你好,2009-06-0118:
10:
22
/INPUT,Fname,Ext,--,LINE,LOG
你好,2009-06-0118:
10:
42
LINE
Avalueindicatingeitheralinenumberinthefileorauser-definedlabelinthefilefromwhichtobeginreadingtheinputfile.
(blank),0,or1—Beginsreadingfromthetopofthefile(default).
LINE_NUMBER—Beginsreadingfromthespecifiedlinenumberinthefile.
:
label—Beginsreadingfromthefirstlinebeginningwiththematchinguser-definedlabel:
label(beginningwithacolon(:
),8charactersmaximum).
你好,2009-06-0118:
10:
47
对
你好,2009-06-0118:
11:
09
这么在ansys帮助中有
你好,2009-06-0118:
11:
19
我给你总结一下啊
你好,2009-06-0118:
11:
49
使用Vtcl编写界面,就像VB一样容易
你好,2009-06-0118:
12:
02
但是代码在ansys中是不能使用的
你好,2009-06-0118:
12:
32
所以我就把里面所有涉及到VTCL的程序全部删掉
你好,2009-06-0118:
13:
02
自己编写在最前面加上一个头
你好,2009-06-0118:
13:
18
在可运行的tcl文件中可以看见
你好,2009-06-0118:
13:
30
destroy.trantsel
setbase[toplevel.trantsel]
variabletop
settop$base
你好,2009-06-0118:
13:
36
就是他
你好,2009-06-0118:
14:
11
然后留下空间定义的代码:
labelframe$top.lab81\
-font{{MSSansSerif}11{}}-text定义载荷-height210-width340
你好,2009-06-0118:
14:
28
留下控件位置
place$site_3_0.lab82\
-in$site_3_0-x5-y15-anchornw-bordermodeignore
你好,2009-06-0118:
14:
45
在给空间添加事件-command函数
你好,2009-06-0118:
14:
53
编写自己的函数
你好,2009-06-0118:
15:
03
procsel2{}{
catch{ans_sendcommandFnc_NSEL_S}err
}
你好,2009-06-0118:
15:
39
函数功能就是实现tcl发送apdl命令给ansys
你好,2009-06-0118:
16:
21
如/input就是读取mac文件
EUI就是打开另外窗体
你好,2009-06-0118:
16:
50
大概就是这么意思
你好,2009-06-0118:
17:
23
给你一个
你好,2009-06-0118:
17:
37
在网上也能下到
你好,2009-06-0118:
17:
48
叫visualtcl
你好,2009-06-0118:
18:
50
还有就是全部完成后在ansys运行时乱吗,修改编码格式为utf-8五伯母
你好,2009-06-0118:
18:
59
utf-8五bom
你好,2009-06-0118:
19:
14
utf-8无bom
你好,2009-06-0118:
19:
58
这是我打四花了好长时间弄出来的
你好,2009-06-0118:
20:
05
大四
你好,2009-06-0118:
20:
06
呵呵
行者2009-06-0118:
20:
09
接收文件成功,保存于C:
\DocumentsandSettings\Administrator\桌面\vtcl.exe.重命名。
你好,2009-06-0118:
20:
13
好了
你好,2009-06-0118:
20:
18
我吃饭了
你好,2009-06-0118:
20:
19
恩
你好,2009-06-0118:
20:
27
挂了
行者2009-06-0118:
20:
35
与您进行语音聊天,时长37分26秒。
你好,2009-06-0118:
20:
38
我去吃饭了
相信2009-06-0118:
20:
52
好的
相信2009-06-0118:
21:
02
受益匪浅啊
相信2009-06-0118:
21:
04
谢谢你啦
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- TCl 什么 区别