自动生成圆角
这是一个实体外加外框的插件，我想把添加的外框变为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 发表于 2017-12-17 15:12
谢谢院长程序，很好用，谢了。
页:
[1]