bluelover 发表于 2021-1-12 10:37:00

请教下如何实现倾斜效果

比如有一个矩形,底边固定不动,垂直边倾斜一个角度变成平行四边形,但各边的长度不变。
如果矩形里面有其它图形,也按照同样的规则倾斜。
好久没有用CAD了,不知道是不是有这样的命令,或者VBA可以怎么实现这样的效果?
烦请高手指教。感谢!

bluelover 发表于 2021-1-12 11:29:00

简单点说,有点像是将正交系统的图形变成非正交系统的效果,比如X轴与Y轴是75度,而不是90度,图形就相当于“倾斜”15度。
还请高手不吝赐教。

mikewolf2k 发表于 2021-1-13 09:58:00

如果三角形,如何保持同样规则倾斜?
如果只是纯粹的倾斜坐标系,创建一个倾斜的坐标系,然后矩阵变换。ACAD没坐过,MS做过。

bluelover 发表于 2021-1-13 15:15:00

我已经思考出一种方法了,有需要的可以一起探讨下。
这种变换主要用在【加工系统具有正交偏差且难以修正的情形】,通过修图进行“预补偿”,就可以得到满足要求的加工精度。

原地踏步 发表于 2021-1-18 16:45:00

说一个笨办法。
pt0:原点
pt1:待转换的点
pt2:转换后的点
alpha:增加角度
(setq ang1 (angle pt0 pt1))
(setq dst (distance pt0 pt1))
(setq pt2 (polar pt0 (+ ang1 alpha) dst))
对于圆或弧就得另想办法了,也许可以多点拟合。
页: [1]
查看完整版本: 请教下如何实现倾斜效果