CAE学术网

?找回密码
?立即注册
搜索
查看: 981|回复: 2
打印 上一主题 下一主题

关于ANSYS TCL/TK开发问题?

[复制链接]

1

主题

0

好友

3

积分

学术新人

Rank: 1

该用户从未签到

UID
38390
学术币
17
帖子
2
阅读权限
10
激情
3
跳转到指定楼层
楼主
发表于 2016-4-29 14:35:32 |只看该作者 |倒序浏览
我写了一段TCL控件代码,cyl.tcl。用ANSYS自带wish.exe可以运行显示界面,但是启动ANSYS APDL后在命令行运行“~eui 'source e:/XXX/cyl.tcl',界面总是不弹出来?我把cyl.tcl放在和uifunc2.grn文件同一个路径下,也是这样,可以确定路径不包含汉字和“-‘字符。我也尝试过将cyl.tcl编码格式在ANSI和UTF-8之间来回转换,但是界面始终不弹出来。有哪位朋友做过这方面,请帮忙下。谢谢。
destroy .tplvl
toplevel .cyl
wm title .cyl "设置筒体尺寸(单位:mm)"
wm geometry .cyl 270x140
wm transient .cyl .
wm withdraw .cyl
update
#wm minsize . 200 260
#wm maxsize . 200 260
button .cyl.bok -text "确定" -command ".cyl.bokResp"
button .cyl.bcancel -text "取消" -command ".cyl.bcancelResp"
label .cyl.l -text "筒体长度:"
label .cyl.r -text "筒体中面半径:"
label .cyl.t -text "筒体壁厚:"
entry .cyl.edit_L
entry .cyl.edit_R
entry .cyl.edit_t
place .cyl.l -x 10 -y 10
place .cyl.r -x 10 -y 40
place .cyl.t -x 10 -y 70
place .cyl.edit_L -x 120 -y 10
place .cyl.edit_R -x 120 -y 40
place .cyl.edit_t -x 120 -y 70
place .cyl.bok -x 150 -y 100??
place .cyl.bcancel -x 200 -y 100
set x [expr {([winfo screenwidth .]-[winfo width .cyl])/2}]
set y [expr {([winfo screenheight .]-[winfo height .cyl])/2}]
wm geometry??.cyl +$x+$y
wm deiconify .cyl

proc .cyl.bokResp { } {
? ? ? ? set l [.cyl.edit_L get]
? ? ? ? set R [.cyl.edit_R get]
? ? ? ? set t [.cyl.edit_t get]
? ? ? ?
? ? ? ? # note : 参数判断
? ? ? ? if {![string is double $l] || \
? ? ? ? ![string is double $R] || \
? ? ? ? ![string is double $t] || \
? ? ? ? [string length $l] == 0 || \
? ? ? ? [string length $R] == 0 || \
? ? ? ? [string length $t] == 0} {
? ? ? ? ? ? ? ?? ?tk_messageBox -message "输入的信息不是浮点数!" -type ok
? ? ? ? ? ? ? ?? ?return
? ? }
? ? ? ?
? ? ? ? # note : ANSYS APDL 相关命令流
? ? ? ?
? ? ? ? destroy .cyl
}

proc .cyl.bcancelResp { } {
? ? ? ? destroy .cyl
}

1

主题

0

好友

4

积分

学术新人

Rank: 1

该用户从未签到

UID
45946
学术币
18
帖子
3
阅读权限
10
激情
5
沙发
发表于 2017-8-4 17:08:51 |只看该作者
调用是~tcl,'source D:\\AnsysPlugin\\Tcl\\ExportResult.tcl'你试试

1

主题

0

好友

4

积分

学术新人

Rank: 1

该用户从未签到

UID
45946
学术币
18
帖子
3
阅读权限
10
激情
5
板凳
发表于 2017-8-4 17:12:58 |只看该作者
我也是最近使用,没有人谈论,以后有问题我们可以多交流
您需要登录后才可以回帖 登录 | 立即注册
验证码 换一个


手机版|CAE学术网 ( 苏ICP备13006038号 )

GMT+8, 2019-10-15 04:48 , Processed in 0.151063 second(s), 20 queries .

Powered by Discuz! X2.5 Licensed

? 2001-2012 Comsenz Inc.

回顶部