;;圆,块---坐标调整
(defun c:fs_FixPosition (/ a cen jd ss)
  (princ "\n注意：本程序所调整的坐标精度为相对当前UCS坐标")
  (princ "\n选择要调整坐标为整数的(圆，弧，块)：")
  (setq ss (ssget '((0 . "circle,arc,ellipse,insert"))))
  (or ss (fsxm-silenceexit))
  (setq jd (getint "\n输入坐标精度：<1>"))
  (or jd (setq jd 1))
  (foreach en (fsxm-ss->enlist ss)
    (setq cen (trans (fsxm-getendxf en 10) 0 1))
    (setq cen (mapcar '(lambda (a) (fsxm-round a jd)) cen))
    (fsxm-setendxf en 10 (trans cen 1 0))
  )
  (princ)
)