lisp相对坐标转换绝对坐标计算公式

无论是编程还是实际加工中都会遇到相对坐标还是绝对坐标，特别是操作机床上都有这样的显示。

很多新手都搞不清相对坐标和绝对坐标是什么意思，简单的介绍一下

相对坐标就是上一点作为原点，也就是（0 ， 0）XY坐标都为零点作为开始点计算下一点。

绝对坐标就是，原点只有一个，通过这个原点来计算所有的坐标。

绝对到相对坐标计算，通过上一点减去下一点坐标就得到上一点对下一点的相对值。

相对坐标到绝对坐标计算，就是通过参考坐标原点，作为基础，加上下一点的坐标就得到绝对坐标，每一个参考坐标就是下一点的绝对坐标。很好理解吧

上一段相对坐标到绝对坐标计算公式吧 lisp代码程序

(defun jjj(Bglxx PTL / YSPT lis)

;Bglxx 相对坐标表((5 0 0) (-1 5 0)(10 -51 0))

;PTL参考坐标(0 0 0)

(while

(setq YSPT(car Bglxx)

Bglxx(cdr Bglxx))

(setq PTL(list(+(car YSPT)(car PTL))(+(cadr YSPT)(cadr PTL))));参考加上目标点就是绝对，现在点变为下一点的参考点

(setq lis(cons PTL lis))

)

lis

)复制