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

将点转换为当前UCS

你好
我想制作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做到了。
页: [1]
查看完整版本: 将点转换为当前UCS