社区 › AutoLISP/Visual LISP 编程技术 › 求一个圆孤转圆的程序

wgij007 发表于 2021-4-18 19:54:25

求一个圆孤转圆的程序

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

迷失2004 发表于 2021-4-18 19:54:26

本帖最后由 迷失2004 于 2021-4-19 01:09 编辑

;;;圆弧变圆
(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 发表于 2021-4-18 23:38:39

join命令 l选项

wgij007 发表于 2021-4-19 08:29:11

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


可以了，感谢感谢

gowww 发表于 2021-4-19 22:34:56

这个好像挺有用的

maiko 发表于 2021-4-21 11:11:37

感谢楼主分享,收下了

78946299 发表于 2022-4-16 09:52:35

感谢楼主分享

川雪 发表于 2022-5-8 20:53:22

我一直用2楼的方法。

查看完整版本: 求一个圆孤转圆的程序