这几行代码为什么不行?

slsldu · 发表于 2006-3-14 15:57:00

提示: 作者被禁止或删除内容自动屏蔽

雪山飞狐_lzh · 发表于 2006-3-14 17:16:00

Sub test()
sp = "0,0": ep = "100,100"
ThisDrawing.SendCommand "(command ""move"" ""all"" """" """ & sp & """ """ & ep & """)" & vbcr
End Sub

slsldu · 发表于 2006-3-15 09:22:00

提示: 作者被禁止或删除内容自动屏蔽

xinghesnak · 发表于 2006-3-15 09:24:00

slsldu,你的代码没有问题啊.我运行的代码如下:

Sub main()

qs = "0,0"
hs = "100,100"

ThisDrawing.SendCommand ("move" & vbCr & "all" & vbCr & vbCr)
ThisDrawing.SendCommand (qs & vbCr & hs & vbCr)

End Sub

一切正常,你再检查传入的Zpoint值是不是正确......

rdhhb · 发表于 2006-3-15 13:20:00

vbCr是什么意思啊？

slsldu · 发表于 2006-3-16 09:12:00

提示: 作者被禁止或删除内容自动屏蔽

xinghesnak · 发表于 2006-3-16 14:23:00

slsldu,你的代码有问题,就是下面这里:

qx = Str(point1(0)): qy = Str(point1(1))
hx = Str(point2(0)): hy = Str(point2(1))

你监视一下就看到上面四个变量在双精度转字符的时候,产生了多余的空格,这样你在下面sendcommand时,相当于多敲了回车,所以总是出错,建议改成下面:

qx = Trim(Str(point1(0))): qy = Trim(Str(point1(1)))
hx = Trim(Str(point2(0))): hy = Trim(Str(point2(1)))

这个是str函数的说明:

Str(number)

必要的 number 参数为一 Long，其中可包含任何有效的数值表达式。

说明

当一数字转成字符串时，总会在前头保留一空位来表示正负。如果 number 为正，返回的字符串包含一前导空格暗示有一正号

这就没问题啦!

账号		自动登录	找回密码
密码			注册

slsldu slsldu 当前离线积分 1589 明经币个注册时间 2003-4-15 在线时间小时威望金钱个贡献激情	发表于 2006-3-14 15:57:00 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报置顶卡变色卡显身卡

slsldu slsldu 当前离线积分 1589 明经币个注册时间 2003-4-15 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2006-3-15 09:22:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

slsldu slsldu 当前离线积分 1589 明经币个注册时间 2003-4-15 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2006-3-16 09:12:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡