两组线倒角的代码错在那里？

wholin

下面是两组线倒角的代码：我加载后输入XXX,但不能执行代码，没了反应，帮我看一上错在那里

(defun XXX(/ D DD DDD SS SS1 J S1 S2 D1 D2 D3 D4 DD1 DD2 DD3 DD4 ROS GET GETS)
  (setq GETS (getvar "OSMODE"))
  (setq GETSS (getvar "ORTHOMODE"))
  (setvar "OSMODE" 0)
  (setvar "ORTHOMODE" 0)
  (if
    (setq
      ROS (getdist
     (strcat "\\n请输入倒角<" (rtos (getvar "FILLETRAD")) ">: ")
   )
    )
     (setvar "FILLETRAD" ROS)
  )
  (setq DD1 (getpoint "\\n请选取倒角一边的线。"))
  (setq DD2 (getpoint DD1))
  (setq SS (ssget "f" (list DD1 DD2)))
  (setq DD3 (getpoint "\\n请选取倒角另一边的线。"))
  (setq DD4 (getpoint DD3))
  (setq SS1 (ssget "f" (list DD3 DD4)))
  (if (> (sslength SS) (sslength SS1))
    (setq J (sslength SS1))
    (setq J (sslength SS))
  )
  (while (> J 0)
    (setq S1 (entget (ssname SS (- J 1))))
    (setq S2 (entget (ssname SS1 (- J 1))))
    (setq D1 (cdr (assoc 10 S1)))
    (setq D2 (cdr (assoc 11 S1)))
    (setq D3 (cdr (assoc 10 S2)))
    (setq D4 (cdr (assoc 11 S2)))
    (setq D (inters D1 D2 D3 D4 NIL))
    (setq DD (inters D1 D2 DD1 DD2 NIL))
    (setq DDD (inters D3 D4 DD3 DD4 NIL))
    (command "_.fillet"
      (list (ssname SS (- J 1)) DD)
      (list (ssname SS1 (- J 1)) DDD)
    )
    (setq J (1- J))
  )
  (setvar "OSMODE" GETS)
  (setvar "ORTHOMODE" GETSS)
  (princ)
)

ZZXXQQ

如果是(DEFUN XXX () ......)，则运行指令为(XXX)

如果是(DEFUN C:XXX () ......)，则运行指令为XXX

czcxxx

ljpnb

程序中既然用到现成CAD倒角命令fillet，那么程序中就不用那么麻烦，直接选取两条直线，用entsel来选取物体，不需要这么长的程序了。。。。

bai2000

对多段线不能用，