求一个圆孤转圆的程序

wgij007

求一个，框选，选中没相交的圆弧，（也就是只选独立出来的圆弧），转为圆。 CAD2006.

迷失2004

;;;圆弧变圆
(defun c:test (/ i ss e1 e2 lay col ren rr)
  (command "_undo" "be")
  (prompt "\n选择要改成圆的圆弧")
  (setq i -1)
  (if (setq ss (ssget '((0 . "Arc"))))
    (while (< i (- (sslength ss) 1))
     (setq e1 (ssname ss (setq i (1+ i)))
           e2 (entget e1)
           lay (cdr (assoc 8 e2))
           col (cdr (assoc 62 e2))
           col (if col col 256)
           cen (cdr (assoc 10 e2))
           rr (cdr (assoc 40 e2))
           )
     (entdel e1)
     (entmake (list '(0 . "CIRCLE") (cons 8 lay) (cons 62 col) (cons 10 cen) (cons 40 rr)))
     )
    )
  (command "_undo" "e")
  (princ)
  )

guosheyang

join命令 l选项

wgij007

迷失2004 发表于 2021-4-19 01:01
;;;圆弧变圆
(defun c:test (/ i ss e1 e2 lay col ren rr)
  (command "_undo" "be")

可以了，感谢感谢

gowww

这个好像挺有用的

maiko

感谢楼主分享,收下了

78946299

感谢楼主分享

川雪

我一直用2楼的方法。