自动生成圆角

xiao88gang

这是一个实体外加外框的插件，我想把添加的外框变为R5的圆角，如何加一语句。哪位高手帮忙加一下。谢谢.
  (defun c:vv ()
   (xdrx_prompt "\n选取生成外框的实体<退出>:")
  (if (setq ss (ssget))
    (progn
(if (not (setq dis (getreal "\n输入板边30<0>:")))
    (setq dis 30)
  )
      (setq box (xdrx_entity_box ss))
      (if (> dis 0)
        (setq box (xdrx_points_offset (abs dis) (xd::pnts:close box)))
      )
      (xdrx_polyline_make box t)
    )
  )
  (princ)
)

xyp1964

xiao88gang

xyp1964 发表于 2017-12-17 15:12

谢谢院长程序，很好用，谢了。