(defun c:xgj2 (/ TCCAD-封闭箍筋选集  TCCAD-&II TCCAD-&SI
	      TCCAD-NEW-FILLETRAD TCCAD-OLD-FILLETRAD TCCAD-SSLENGTH)
  (cmdla0)
  (setq tccad-old-filletrad (getvar "FILLETRAD"))
  (setq tccad-new-filletrad 0)
  (setvar "FILLETRAD" tccad-new-filletrad)
  (prompt "\n请选择要导角的封闭箍筋:")
  (setq tccad-封闭箍筋选集 (ssget (list '(0 . "*line") (cons 8 "rein,link") '(-4 . "=") '(90 . 16.))))
  (setq tccad-&ii 0 tccad-sslength (sslength tccad-封闭箍筋选集))
  (while (< tccad-&ii tccad-sslength)
    (setq tccad-&si (ssname tccad-封闭箍筋选集 tccad-&ii))
    (command "fillet" "p"  tccad-&si)
    (setq tccad-&ii (1+ tccad-&ii))
    )
  (setvar "FILLETRAD" tccad-old-filletrad)
  (cmdla0)
  (princ)
)