FILLET(圆角)的用法

(defun c:rr()
    (setq ss1 (ssget ":s" '((0 . "line,Lwpolyline"))))
    (setq ss2 (ssget ":s" '((0 . "line,Lwpolyline"))))
    ;"FLATTEN" Select objects to convert to 2d
    (command "_.FILLET" "R" "200" "_.FILLET" ss1 ss2)
    (princ)
)