lisp如何计算点旋转后的坐标

lsp知道一点，绕一点计算旋转后的坐标。其实很简单，原理先计算出当前中心点到需要旋转的点的距离，就是旋转半经R，在加上需要旋转的角度。在求这个角度半径上的点。就是我们需要旋转后点。

下面例子lisp代码，支持正负角度。在开发中想要软件速度快，只要计算才能加速。所以想得到旋转点，计算一下最快

一起来鲁代码把！

(defun c:xxx (/)

(setq DZ1(getpoint "\n旋转中心点P1:")

DZ2(getpoint "\n需要旋转的点huojibk.com-P2:")

)

(setq jd (getreal "\n请输入旋转角度 < 30 >" ))

(IF (= jd NIL)

(setq jd 30)

)

;(alert(vl-princ-to-string jd) )

;要是这个代码能帮到你，希望你也能帮到我。作者没有收益。广告也丰富，有效浏览广告就是支持作者

(setvar "osmode" 15359)

(setvar "cmdecho" 0)

(setq jd(angtof (vl-princ-to-string jd))

JAA1(angle DZ1 DZ2);角度

jd(+ JAA1 jd)

JAC(distance DZ1 DZ2)

JAA2(polar DZ1 jd JAC));旋转后的点

(command "CIRCLE" JAA2 1);验证

(setvar "osmode" 15359)

(princ"\n")

(princ JAA2)

(princ"\n")

(princ)

(alert"赶快连线测量一下把")

)复制