将点转换为当前UCS

chavlji · 发表于 2022-7-6 15:05:03

你好
我想制作lisp，它将从点0,0,0到图形中的每个块绘制线。
我编写了以下例程，返回每个块的插入点。

(defun GetBasePoint( Entity )
 (setq Return (cdr (assoc 10 (entGet Entity))) )
 )

问题是，该点始终位于默认（世界）UCS坐标系中。
如果使用不同的UCS，则必须将该点转换为当前UCS。

但是怎么做？

chavlji · 发表于 2022-7-6 16:15:53

Trans function做到了。

[编程交流] 将点转换为当前UCS