- A+
所属分类：CAD二次开发
其实我们想要知道相对坐标的值，首先要知道相对和绝对是什么意思，相对就是上一点作为原点，返回下一点的坐标值，绝对就是一个坐标，返回的值都是按一个坐标计算的。
已知相对坐标是计算下一点和上一点的关系，直接上一点减掉下一点的值就是当前相对的值，很简单，下面下了一个简单的函数，直接把坐标表，绝对坐标点转换成相对的值
(defun xdd( A1 /)
;数据格式 A1 '(553.571 625.059)(563.026 628.315));(x y)
(setq a2(car (nth 0 A1))
k 0
a5 nil)
(repeat (length A1)
(setq a3(car (nth k A1)))
(setq a4(list(-(car a2) (car a3))(-(cadr a2) (cadr a3)))
a5(cons a4 a5)
a2 a3
k(1+ k)
)
)
A5
)
复制
