求半圆变整圆的程序，谁有施舍一个，谢谢！

xieling888 · 发表于 2012-5-6 08:24:32

linheyuanpcb · 发表于 2012-5-6 08:30:33

(defun c:arctocirl (/ qq qqq)
  (setq qq (entget (setq qqq (car (entsel)))))
  (setq qq (member (assoc 210 qq) (reverse qq)))
  (setq qq (reverse (subst '(0 . "circle") (assoc 0 qq) qq)))
  (entmake qq)
  (entdel qqq)
  (princ)
)
;搜索下就有

xieling888 · 发表于 2012-5-6 10:13:02

linheyuanpcb 发表于 2012-5-6 08:30
(defun c:arctocirl (/ qq qqq)
(setq qq (entget (setq qqq (car (entsel)))))
(setq qq (member (a ...

l老林，今天也上班啊！

xieling888 · 发表于 2012-5-6 10:16:02

xieling888 发表于 2012-5-6 10:13
l老林，今天也上班啊！

能否实现框选啊？

linheyuanpcb · 发表于 2012-5-6 11:54:05

(defun c:hby()
(princ "\n选择要变圆的圆弧:")
(setq ss(ssget '((0 . "ARC"))))
(setq len(sslength ss))
(setq i -1)
(repeat len
  (setq i (1+ i))
(setq en1(ssname ss i))
(setq e1 (entget en1))
(setq o (cdr (assoc 10 e1))
   r (cdr (assoc 40 e1))
   p0 (cdr (assoc 50 e1))
   pn (cdr (assoc 51 e1)))
(command "circle" o r ))
(command "erase" ss "")
(princ)
)
框选

缘份呐 · 发表于 2012-5-6 13:32:47

本帖最后由缘份呐于 2012-5-6 13:34 编辑

楼上的和我的一样呀！真巧。

缘份呐 · 发表于 2012-5-6 13:35:11

linheyuanpcb 发表于 2012-5-6 11:54
(defun c:hby()
(princ "\n选择要变圆的圆弧:")
(setq ss(ssget '((0 . "ARC"))))

和我的一样呀！真巧

巨人 · 发表于 2012-5-6 14:06:57

网上找，有很多！

缘份呐 · 发表于 2012-5-6 14:34:09

缘份呐发表于 2012-5-6 13:32
楼上的和我的一样呀！真巧。

我是在写另外一个小程序，顺带写的这个。

清风明月名字 · 发表于 2012-5-29 16:58:13

谢谢楼主，辛苦了

账号		自动登录	找回密码
密码			注册

求半圆变整圆的程序，谁有施舍一个，谢谢！

相关帖子

评分

点评

浏览过的版块