帮忙改下源代码

874185423

绘两条线的中心线程序， 加载运行中出现（错误: 参数类型错误: 二维/三维点: nil），请高手给予指点。
(defun c:zxx()
   (setvar "cmdecho" 0)
   (setq en1 (entsel "外侧第一条线:"))
   (setq en2 (entsel "另一外侧第二条线:"))
   (setq p1a (cdr (assoc 10 (entget (car en1)))))
   (setq p1b (cdr (assoc 11 (entget (car en1)))))
   (setq p2a (cdr (assoc 10 (entget (car en2)))))
   (setq p2b (cdr (assoc 11 (entget (car en2)))))
   (if (inters p1a p2a p1b p2b)
  (command "line" (midpt p1a p2b) (midpt p1b p2a) "")
  (command "line" (midpt p1a p2a) (midpt p1b p2b) "")
   )
   (command "chprop" "L" "" "lt" "center" "c" 2 "")
   (prin1)
)
(defun midpt(1% 2%)
  (polar 1% (angle 1% 2%) (*(distance 1% 2%)0.5))
)

cabinsummer

源码没有问题。看看你的AutoCAD设置吧