绘制等腰三角形，以下代码执行不了，烦请大佬帮忙指正哪个地方出错了并给出正确代码，万分感谢
(defun c:sanjiaoxing ()  
  (setq p1 (getpoint "\n指定等腰三角形底边起点"))  
  (setq p2 (getpoint "\n指定等腰三角形底边终点"))  
  (setq p3 (getpoint "\n指定顶点方向"))  

  (if (/= (length p1) 2)  
    (progn  
      (princ "\n错误：每个点坐标应为 (x y) 形式。\n")  
      (princ)  
      (exit)  
    )  
    (if (/= (length p2) 2)  
      (progn  
        (princ "\n错误：每个点坐标应为 (x y) 形式。\n")  
        (princ)  
        (exit)  
      )  
    )  
  )  
  (setq midpoint (list (/ (+ (car p1) (car p2)) 2) (/ (+ (cadr p1) (cadr p2)) 2)))  
  (setq vector-to-p3 (list (- (car p3) (car midpoint)) (- (cadr p3) (cadr midpoint))))  
  (setq height-approx (cadr vector-to-p3))
  (setq vertex (polar midpoint 0 height-approx))
  (command "pline" p1 p2 vertex "c")  
    (princ "\n等腰三角形已绘制。\n")  
  (princ)  
)



网友答:


网友答:
完美，感谢感谢