ainizm 发表于 2012-9-17 12:34:01

请教如何写，让生成的文件数据有如下规律?（已解决）

本帖最后由 ainizm 于 2012-9-17 23:25 编辑

请教如何写，让生成的文件数据有如下规律?
X0.000 Y0.000
X1310.000 Y0.000
X1310.000 Y0.100
X0.000 Y0.100
X0.000 Y0.200
X1310.000 Y0.200
X1310.000 Y0.300
X0.000 Y0.300
X0.000 Y0.400
X1310.000 Y0.400

lenlydia 发表于 2012-9-17 14:18:43

a=0.000b=1310.000   c=0.100


Func xy($x,$y,$z)

      $x=x(a)    $y=y(a)
      $z=$x&$y

      $x=x(a+b)$y=y(a)
      $z=$z
      $z=$x&$y

      $x=$x$y=y(a+c)
      $z=$z
      $z=$x&$y

      $x=$x-b$y=$y
      $z=$z
      $z=$x&$y

      $x=$x$y=$y+c

EndFunc

不知道这个对你有没有帮助。

veket_linux 发表于 2012-9-17 18:19:02

$buf = ""
$y = 0
For $i = 0 To 570
        $buf &= "N" & $i & " G1 X"
        If Mod($i, 4) = 0 Or Mod($i, 4) = 3 Then
                $buf &= StringFormat("%.3f", 0)
        Else
                $buf &= StringFormat("%.3f", 1310)
        EndIf
        $buf &= " Y"
        $buf &= StringFormat("%.3f", $y/10)
        If Mod($i, 2) Then $y += 1
        $buf &= " Z" &StringFormat("%.3f", 0) & @CRLF
Next
$filehandle = FileOpen(@DesktopCommonDir & "\test.txt", 10)
FileWrite($filehandle, $buf)
FileClose($filehandle)
MsgBox(48, "完成---请查看", @DesktopCommonDir & "\test.txt")

ainizm 发表于 2012-9-17 21:21:28

非常感谢你的帮助，不过这里 "%.3f" 是什么意思，没看懂，没用过，求指教

veket_linux 发表于 2012-9-17 21:40:21

类似 C语言里的printf 、scanf 及类似函数的 格式控制字符串

如果你学过C语言的话 浮点数输出 小数占3为 不满3位补零
页: [1]
查看完整版本: 请教如何写，让生成的文件数据有如下规律?（已解决）