tk求租。。

baojiewu · 发表于 2013-3-5 19:19:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

x

if {$x2>$xl && $x1<$x2}{
  set m [expr $xl+$sx]
  set n  [expr $yb+$sy]
  set x_count [expr [expr {abs($x2-$xl)}] / [expr {abs($cs)}]]
  set x_count [expr int($x_count)]
  leoCreateInstance -point($m,$n) -cell $cell_name -cols $x_count -rows $y_count -colSpace $cs -rowSpace $rs
  leoRedraw
  lakerDeleteObj
}

运行时会出现一个warning ：extra characters after close-brace
哪位大虾帮忙看下上述代码哪里有错

(所有变量均有赋值)

489315174 · 发表于 2013-3-5 21:47:27

保杰看看是不是这里if {$x2>$xl && $x1<$x2}{
} {这个地方需要空格

jackiexiuyi · 发表于 2013-3-6 09:19:24

应该是二楼说的问题，另外这句话是不是可以写的简单点：set x_count [expr [expr {abs($x2-$xl)}] / [expr {abs($cs)}]]
=>
set x_count [expr abs($x2-$xl)/abs($cs)]

baojiewu · 发表于 2013-3-6 09:48:35

回复 2# 489315174

谢谢啦果然是这个问题
你怎么知道我的名字的

baojiewu · 发表于 2013-3-6 09:52:24

回复 3# jackiexiuyi

哈哈，我还是菜鸟一个，刚学这个tk编写，以后有问题尽量帮帮忙哈

[求助] tk求租。。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

站长推荐 /2