用VBA编程实现CAD的ALIGN同样的功能，不能用sendcommand方法

fjy602 · 发表于 2014-8-9 23:34

本帖最后由 fjy602 于 2014-8-9 23:34 编辑

如题，用VBA编程实现CAD的ALIGN同样的功能，不能用sendcommand方法,已知要对齐的前的3个点坐标和目标位置的3个点坐标

wxd20130610 · 发表于 2016-10-7 18:47

两个点坐标的
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

wxd20130610 · 发表于 2016-10-7 18:48

只能用移动，缩放和旋转命令组合了，这是两个点的，三个点同理

vladimirputin · 发表于 2016-10-19 16:27

不错的资料，谢谢楼主分享啊。

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