[求助]定义了新原点后，ssnamex得到的坐标值有问题（已解决）

jh1005

这个程序是先得到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”定义了原点到另一个地方时，再运行这个程序，画的那个矩形就不正确，我用的是CAD2004。

请问是什么原因，如何解决，谢谢大家！！！

Andyhon

...
(setq x (last (cadr xy)) y (last (cadddr xy)))     ;;提取刚才的窗选对角坐标。
(setq x (trans x 0 1)
      y (trans y 0 1)
)
(command "RECTANG" x y)   ;;通过对角坐标画一个矩形。
...

jh1005

感谢楼上的，问题解决了。

crazylsp

学习了，发现如果mapcar也用了x ,y结果就会不对，错误是 #<SUBR @03ef5dd4 X> 。要把x,y改个名字就好了。

陈伟

群主  ssnamex   获取多个矩形框的方法，能实现吗

陈伟

群主  ssnamex   获取多个矩形框的方法，能实现吗！！比如：这个选择3个选择框，只能绘制出第一个选择框！！！能不能实现选择了多少个选择框，就绘制出多少个选择框