大师帮忙看看，交点有错误是什么原因

世井

选择对象: ; 错误: DXF 组不正确: (10 (336.443 54.0192))

(defun c:tt ( / a)
  (setq a (TwoEntsInters (car(entsel)) (car(entsel)) 0))
  (entmake (list '(0 . "CIRCLE") (cons 10 a) (cons 40 5)))
  (princ))

(defun TwoEntsInters (e1 e2 Flag / OBJ1 OBJ2 PTL PTS)
  (setq obj1 (vlax-ename->vla-object e1))
  (setq obj2 (vlax-ename->vla-object e2))
  (setq pts (vlax-invoke obj1 'Intersectwith obj2 Flag))
  (while pts
    (setq ptl (cons (list (car pts) (cadr pts)) ptl))
    (setq pts (cdddr pts))
  )
  ptl
)

yoyoho

(defun c:tt ( / a)
  (setq a (CAR (TwoEntsInters (car(entsel)) (car(entsel)) 0)))
  (entmake (list '(0 . "CIRCLE") (cons 10 a) (cons 40 5)))
  (princ))

(defun TwoEntsInters (e1 e2 Flag / OBJ1 OBJ2 PTL PTS)
  (setq obj1 (vlax-ename->vla-object e1))
  (setq obj2 (vlax-ename->vla-object e2))
  (setq pts (vlax-invoke obj1 'Intersectwith obj2 Flag))
  (while pts
    (setq ptl (cons (list (car pts) (cadr pts)) ptl))
    (setq pts (cdddr pts))
  )
  ptl
)