请哪位给看看这个倒圆角的程序，在04以后版本中不好用的问题

humble

这个代码在04中可以使多段线倒圆角，而且不会使多段线与圆弧连成一体，这样的话作图比较方便。但是在04以后版本中使用，会把多段线（pline）变成直线（line），然后才会提示错误，再倒圆角。请哪位给看看，是什么原因，怎么修改。多谢！
(defun c:yj ()
  (SETQ EE1 T)
    (WHILE EE1
  (SETQ SSE (SSADD))
  (setq ee1 (entsel "\n选择第一线:"))
  (IF EE1 (PROGN
  (setq e1 (car ee1) P1 (LAST EE1))
  (setq ent (cdr (assoc 0 (entget e1))))
  (if (AND (/= ent "LINE") (/= ENT "LWPOLYLINE")) (*ERROR* "NOT LINE & PLINE"))
  (IF (= ENT "LINE") (SETQ T1 NIL) (SETQ T1 T))
  (SSADD E1 SSE)
  (setq ee2 (entsel "\n选择第二线:"))
  (setq e2 (car ee2) P2 (last EE2))
  (setq ent (cdr (assoc 0 (entget e2))))
  (if (AND (/= ent "LINE") (/= ENT "LWPOLYLINE")) (*ERROR* "NOT LINE & PLINE"))
  (IF (= ENT "LINE") (SETQ T2 NIL) (SETQ T2 T))
  (IF (AND (SSMEMB E2 SSE) (/= ENT "LWPOLYLINE")) (*ERROR* "ONE OBJECT"))
  (princ "\n圆角半径<")
  (princ (setq rd (getvar "filletrad")))
  (setq rR (getreal ">:"))
  (if rR (SETQ RD RR))
  (setvar "filletrad" rD)
  (IF (SSMEMB E2 SSE)
     (COMMAND "FILLET" "P" P1)
     (PROGN
      (SETQ AA (PW E1 P1) BB (PW E2 P2))
      (setq e1 (CAR AA) W1 (LAST AA))
      (setq e2 (CAR BB) W2 (LAST BB))
      (command "fillet" p1 p2)
      (if (> rd 0.001)
       (if (AND T1 T2)
         (command "pedit" "l" "y" "w" (* (+ w1 w2) 0.5) "")))
      (IF T1 (COMMAND "PEDIT" E1 "Y" "W" W1 ""))
      (IF T2 (COMMAND "PEDIT" E2 "Y" "W" W2 ""))
     ))

    ))
))