[1125]物件移动程序问题?

xyz518mm

[1125]物件移动程序问题?
我想要运用这程序,
达到这样的结果,就是将选定的物件,
移动到规定的位置上.
但却都发生问题,请问出现问题该怎样解决呢?
另外是设定的座标该怎样表示
绝对座标 #x,y 及 相对座标 @x,y 呢?
烦请各位版主及高手们帮忙解答一下
谢谢~

(defun c:ts01 ()
(setq ss (ssget))
(setq pt1 (getpoint "\n Enter POINT:"))
(setq pt2 (LIST '0 '0))
(command "move" ss pt1 pt2)
)

xyp1964

2. [FONT=courier new](defun c:ts01 ()
   
3.   (setq        ss  (ssget)
   
4.         pt1 (getpoint "\n Enter POINT:")
   
5.         pt2 (LIST 0 0)
   
6.   )
   
7.   (command "move" ss "" pt1 pt2)
   
8. )[/FONT]

[FONT=courier new](defun c:ts01 ()<br />   (setq        ss  (ssget)<br />         pt1 (getpoint "\n Enter POINT:")<br />         pt2 (LIST 0 0)<br />   )<br />   (command "move" ss "" pt1 pt2)<br /> )[/FONT]