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

<P><A name=2857><FONT color=#000066><B>slsldu</B></FONT></A>,你的代码没有问题啊.我运行的代码如下:</P>
<P>Sub main()</P>
<P>qs = "0,0"<BR>hs = "100,100"</P>
<P><BR>ThisDrawing.SendCommand ("move" &amp; vbCr &amp; "all" &amp; vbCr &amp; vbCr)<BR>ThisDrawing.SendCommand (qs &amp; vbCr &amp; hs &amp; vbCr)</P>
<P>End Sub</P>
<P>&nbsp;</P>
<P>一切正常,你再检查传入的Zpoint值是不是正确......</P>

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

vbCr是什么意思啊？

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

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


<P>slsldu,你的代码有问题,就是下面这里:</P>
<P>qx = Str(point1(0)): qy = Str(point1(1))<BR>hx = Str(point2(0)): hy = Str(point2(1))</P>
<P><BR>你监视一下就看到上面四个变量在双精度转字符的时候,产生了多余的空格,这样你在下面sendcommand时,相当于多敲了回车,所以总是出错,建议改成下面:</P>
<P>qx = Trim(Str(point1(0))): qy = Trim(Str(point1(1)))<BR>hx = Trim(Str(point2(0))): hy = Trim(Str(point2(1)))</P>
<P>这个是str函数的说明:</P>
<P><B>Str</B>(number)</P>
<P>必要的<FONT face=Verdana> number <A href="<b>javascript</b> :hhobj_4.Click()" target="_blank" >参数</A>为一 <A href="<b>javascript</b> :hhobj_5.Click()" target="_blank" >Long</A>，其中可包含任何有效的<A href="<b>javascript</b> :hhobj_6.Click()" target="_blank" >数值表达式</A>。</FONT></P>
<P class=label><B>说明</B></P>
<P><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp; 当一数字转成字符串时，总会在前头保留一空位来表示正负。如果 number 为正，返回的字符串包含一前导空格暗示有一正号 </FONT></P>
<P>这就没问题啦!</P>
页: [1]
查看完整版本: 这几行代码为什么不行?