;;修改圓角
(defun c:ff ()
  (setq arc (car (entsel)))
  (or arc (fsxm-silenceexit))
  (while (progn	(princ "\n当前半径:")
		(princ (fsxm-getendxf arc 40))
		(setq newR (getreal " 输入新的圆弧半径:"))
	 )
    (setq spt (vlax-curve-getStartPoint arc))
    (setq ept (vlax-curve-getEndPoint arc))
    (entdel arc)
    (setq
      ent1 (car
	     (fsxm-ss->enlist (ssget "c" spt spt '((0 . "line,arc"))))
	   )
    )
    (setq
      ent2 (car
	     (fsxm-ss->enlist (ssget "c" ept ept '((0 . "line,arc"))))
	   )
    )
    (setvar "filletrad" newR)
    (setq e (entlast))
    (command ".fillet"
	     (list ent1 spt)
	     (list ent2 ept)
    )    
    (setq arc (entlast))
    (princ)
  )
)
