批量圆开洞源码

ludaweb · 发表于 2014-11-13 21:45:05

本帖最后由 ludaweb 于 2014-11-15 12:21 编辑

批量给圆开洞的源码。

;圆开洞
(defun c:tt (/ ss i en ent ptc rad an)
(if (and (princ "\n选择圆:") (setq ss (ssget '((0 . "CIRCLE")))))
(progn
(setq i 0)
(repeat (sslength ss)
(setq en (ssname ss i)
ent (entget en)
i (1+ i)
ptc (cdr(assoc 10 ent))
rad (cdr(assoc 40 ent))
an (/ pi -4))
(entmake
(list
'(0 . "ARC")
(cons 10 (polar ptc an (* 0.3 rad)))
(cons 40 rad)
(cons 50 (- (* pi 0.75) (atan (/ (sqrt 9775) 15))))
(cons 51 (+ (* pi 0.75) (atan (/ (sqrt 9775) 15))))
(cons 62 8)
)
)
)
)
)
(princ)
)

;圆开洞 
(defun c:tt (/ ss i en ent ptc rad an) 
        (if (and (princ "\n选择圆:") (setq ss (ssget '((0 . "CIRCLE"))))) 
                (progn 
                        (setq i 0) 
                        (repeat (sslength ss) 
                                (setq en (ssname ss i) 
                                ent (entget en) 
                                i (1+ i) 
                                ptc (cdr(assoc 10 ent)) 
                                rad (cdr(assoc 40 ent)) 
                                an (/ pi -4)) 
                                        (entmake 
                                                (list 
                                                '(0 . "ARC") 
                                                (cons 10 (polar ptc an (* 0.3 rad))) 
                                                (cons 40 rad) 
                                                (cons 50 (- (* pi 0.75) (atan (/ (sqrt 9775) 15)))) 
                                                (cons 51 (+ (* pi 0.75) (atan (/ (sqrt 9775) 15)))) 
                                                (cons 62 8) 
                                                ) 
                                        ) 
                        ) 
                ) 
        ) 
        (princ) 
)

Gu_xl · 发表于 2014-11-13 22:02:07

不太明白你的意思！请上图示来表述你的问题！

ludaweb · 发表于 2014-11-14 08:03:09

sicky111 · 发表于 2014-11-14 10:45:58

什么叫圆开洞

ludaweb · 发表于 2014-11-14 12:12:44

sicky111 发表于 2014-11-14 10:45
什么叫圆开洞

就是圆里面画个弧线，表示这个圆是个洞。

sicky111 · 发表于 2014-11-14 12:29:13

选择圆，向右下角45度方向十分之三半径的距离复制一个出来，修剪，完成。

ludaweb · 发表于 2014-11-14 12:52:27

查阅了一些基本函数，计算出来了。

(- (* pi 0.75) (atan (/ (sqrt 9775) 15)))
(+ (* pi 0.75) (atan (/ (sqrt 9775) 15)))

水仙的错 · 发表于 2016-2-20 20:08:37

看上去不错的

szx025 · 发表于 2016-2-21 10:24:13

如果能把给矩形开洞口的功能加入这个程序，那就更完美了

shcvip · 发表于 2022-2-15 12:04:17

szx025 发表于 2016-2-21 10:24
如果能把给矩形开洞口的功能加入这个程序，那就更完美了

支撑矩形开洞

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

[源码] 批量圆开洞源码

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源