- 积分
- 2113
- 明经币
- 个
- 注册时间
- 2013-6-10
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2016-10-7 18:47:09
|
显示全部楼层
两个点坐标的
Factor = Sqr((Pt12(0) - Pt22(0)) ^ 2 + (Pt12(1) - Pt22(1)) ^ 2) / Sqr((Pt21(0) - Pt11(0)) ^ 2 + (Pt21(1) - Pt11(1)) ^ 2)
RO = ThisDrawing.Utility.AngleFromXAxis(Pt12, Pt22) - ThisDrawing.Utility.AngleFromXAxis(Pt11, Pt21)
Ent.Move Pt11, Pt12
Ent.ScaleEntity Pt12, Factor
Ent.Rotate Pt12, RO
|
|