lisp程序中的调用"复制"命令怎么就是复制不出来图形?

zcmzz0511

(defun c:lsp_02 ()
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq pt1 (getpoint "\n第一角点:"))
  (setq pt3 (getcorner pt1 "\n另一角点:"))
  (setq pt2 (list (car pt3) (cdr pt1)))
  (setq pt4 (list (car pt1) (cdr pt3)))
  (setq rr (getdist pt1 "\n圆的半径<5.0>:"))
  (if (null rr) (setq rr 5.0))
  (command "circle" pt1 rr)

  (setq en1 (entlast))
  (command "line" (polar pt1 pi (+ rr 3)) (polar pt1 0 (+ rr 3)) "")
  (setq en2 (entlast))
  (command "line" (polar pt1 (* pi 1.5) (+ rr 3)) (polar pt1 (/ pi 2) (+ rr 3)) "")
  (setq en3 (entlast))
  (command "copy" en1 en2 en3 "" pt1 pt2 pt3 pt4 "")
  (setvar "osmode" os)（prin1)
)
这是程序源码，不知哪里出错了，望高手解答，多谢！！！

zhuquanmao

(setq pt2 (list (car pt3) (cadr pt1)))
  (setq pt4 (list (car pt1) (cadr pt3)))

zcmzz0511

zhuquanmao 发表于 2012-10-26 17:33
(setq pt2 (list (car pt3) (cadr pt1)))
  (setq pt4 (list (car pt1) (cadr pt3)))

我看了好几遍都没看出来，谢谢。

ZZXXQQ

(command "copy" en1 en2 en3 "" "m" pt1 pt2 pt3 pt4 "")

zcmzz0511

ZZXXQQ 发表于 2012-10-27 13:10
(command "copy" en1 en2 en3 "" "m" pt1 pt2 pt3 pt4 "")

多谢提醒，这一点我知道原因 当时写错了，后来改过来了，谢谢！！