日志
圆到最近交点
|
- (defun c:tt(/ cirlist linelist p_xx p10 p10_2 pts ss sslst)
- (setq ss(ssget))
- (setq sslst(cx-ss2en ss))
- (setq cirlist(cx-get-ssistype sslst "CIRCLE"))
- (setq linelist(cx-get-ssistype sslst "LINE"))
- (setq pts(cx-get-intserss ss))
- (foreach x cirlist
- (setq p10(cx-dxf 10 x))
- (setq p_xx(vl-sort pts'(lambda(e1 e2)(<(distance e1 p10)(distance e2 p10)))))
- (setq p10_2(car p_xx))
- (cx-entmod x 10 p10_2)
- )
- )
全部作者的其他最新日志
- • .Net 实现Zoom
- • 无聊发个四舍五入的函数
- • 黑板
- • sleep
- • C#代码笔记.
- • 一个路径转换的代码.