yang686526

[求助]定义了新原点后，ssnamex得到的坐标值有问题（已解决）
www.dimcax.com
[求助]定义了新原点后，ssnamex得到的坐标值有问题（已解决）
这个程序是先得到ssget选择图元时的两个对角点坐标，然后通过这两个点画一个矩形。
(defun c:gc (/ bz ss xy x y)
(setvar "cmdecho" 0)
(setq bz (getvar "osmode"))
(setvar "osmode" 0)
(setq xy (last (ssnamex (setq ss (ssget)) 0))) ;;获得ssget选择集的一个信息表。
(setq x (last (cadr xy)) y (last (cadddr xy))) ;;提取刚才的窗选对角坐标。
(command "rectang" x y) ;;通过对角坐标画一个矩形。
(setvar "osmode" bz)
(princ)
)
问题：当我用命令“ucs”定义了原点到另一个地方时，再运行这个程序，画的那个矩形就不正确，我用的是cad
d
...
(setq x (last (cadr xy)) y (last (cadddr xy))) ;;提取刚才的窗选对角坐标。
(setq x (trans x 0 1)
y (trans y 0 1)
)
(command "rectang" x y) ;;通过对角坐标画一个矩形。
...
d
感谢楼上的，问题解决了。
d