本帖最后由 xyp1964 于 2020-10-30 22:21 编辑
![](source/plugin/imc_colorcode/images/loading.gif) - (defun c:tt () ; tt(近似多段线圆转圆) (if (setq ss (ssget '((0 . "*polyLINE"))))
- (progn
- (setq i -1 ss1(ssadd))
- (while (setq s1 (ssname ss (setq i (1+ i))))
- (if (> (xyp-DXF 90 s1) 100)
- (setq p0 (xyp-9pt s1 5)
- p1 (xyp-9pt s1 4)
- s2 (command "Circle" "non" p0 "non" p1)
- ss1 (ssadd s1 ss1)
- )
- )
- )
- (command "Erase" ss1 "")
- )
- )
- (princ)
- )
|