[求助]帮忙调试一下代码

mycad

;;代码如下，此段代码怎么没有实现把 pt1 pt2 赋给pts;即pts中只含有pt3 与pt4的表？

;;我想实现pts如样图的输出方式；见附件

(defun c:tt( / pts
     pt1
     pt2
     pt3
     pt4)
(setq pt1(getpoint"\\nInput first point:"))
(setq pt2(getpoint"\\nInput send point:"))
(setq pt3(getpoint"\\nInput thd point:"))
(setq pt4(getpoint"\\nInput foth point:"))
(setq pts (list pt1 pt2))
(setq pts (append pts(list pt3 pt4))))
    

 

ZZXXQQ

(defun c:tt( / pts pt1 pt2 pt3 pt4)
 (setq pt1 (getpoint"\nInput first point:"))
 (setq pt2 (getpoint"\nInput send point:"))
 (setq pt3 (getpoint"\nInput thd point:"))
 (setq pt4 (getpoint"\nInput foth point:"))
 (setq pts (list(list pt1 pt2)))
 (setq pts (append pts (list(list pt3 pt4))))
)

mycad

谢谢！可以的