lsp坐标转换cad用户坐标相对坐标代码trans函数

由于批量读取坐标点，处里的点是绝对值的点的，但有的需要安照用户自定义UCS坐标来取数。由于网上lsp教程资料很少，想网上找个现成的就更难了，经过学习前辈的代码，得到一个函数，可以转换坐标，可以是绝对，转换后就是用户坐标了。trans 函数，

小例子：

(setq xyz (cdr (assoc 10 ept)));绝对坐标，
(setq pxx (trans xyz 0 1)); UCS用户坐标
(princ pxx);打印结果
复制