【200分】求能把一个45度倾斜的直角坐标系转换成水平的直角坐标系的VBS公式!

【200分】求能把一个45度倾斜的直角坐标系转换成水平的直角坐标系的VBS公式!
坐标系如下图
坐标系的黑点处,红色坐标系的X50,Y50等于蓝色坐标系的X0,Y50处
或者红色坐标系的X50,Y0等于蓝色坐标系的X25,Y25处
求VBS里的转换公式.
反向转换的公式也要.

我想要正确的VBS代码,或者按键精灵的代码.

zcbsydddcvm 1年前 已收到1个回答 举报
赞

yilawyn 幼苗

共回答了18个问题采纳率：83.3% 举报

红到蓝
x1=int(inputbox("x"))
y1=int(inputbox("y"))
x2=(x1-y1)/2
y2=(x1+y1)/2
msgbox(x2&","&y2)
蓝到红
x1=int(inputbox("x"))
y1=int(inputbox("y"))
x2=x1+y1
y2=y1-x1
msgbox(x2&","&y2)
以上是vbs代码
我说45°是特殊角有必要算得那么麻烦吗?

1年前

4
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.015 s. - webmaster@yulucn.com