F倒角命令请教？

sbwdx

这是Z版的代码，这么多年，不支持多段线啊？能否修改出来，支持多段线啊？哪位大神出手一哈呀？
(defun c:ff()
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(graphscr)
(princ "倒角 Z轴归零:")
(setq s (entsel "\n选择第一条线"))
(setq s2 (entsel "\n选择第二条线"))
(command "_.MOVE" s s2 "" "0,0,0" "0,0,1e99")
(command "_.MOVE" s s2 "" "0,0,0" "0,0,-1e99")
(princ "二条线Z轴已归0\n倒角成功")
(command "FILLET" s s2)
(princ)
)

onemax01

直接用et工具里的flatten将线条Z坐标归零再倒角，比这个好用