过滤牙圆弧的并删除

刘炎华

这样类型的经常要删,可以这样过滤牙圆弧的并删除吗?

satan421

关注一下50，51组码

刘炎华

谢谢！我之前试过没弄好

start4444

(defun c:tt5 (/ ang ang_en en entdat i ss)
(setq ang (getreal "\n输入总角度:") ang (* (/ ang 180) pi))
(setq ss (ssget '((0 . "arc"))))
        (setq i -1)
        (while (setq en (ssname ss (setq i (1+ i))))
        (if (< (cdr (assoc 50 (setq entdat (entget en)))) (cdr(assoc 51  entdat))) (setq ang_en (- (cdr(assoc 51 entdat)) (cdr(assoc 50  entdat)))) (setq ang_en (+ (- (cdr(assoc 51 entdat)) (cdr(assoc 50  entdat))) (* 2 pi))))       
        (if (equal ang ang_en 0.001) (entdel en))                
        )
)

刘炎华

非常感谢！

刘炎华

start4444 发表于 2020-6-14 15:23
(defun c:tt5 (/ ang ang_en en entdat i ss)
(setq ang (getreal "\n输入总角度:") ang (* (/ ang 180) p ...

非常感谢！这个只针对牙圆弧，希望默认总角度值270,不再需要输入值

刘炎华

刘炎华 发表于 2020-6-14 17:21
非常感谢！这个只针对牙圆弧，希望默认总角度值270,不再需要输入值

第一行修改后，不能删除对象了呢？
麻烦帮我再看下

start4444

刘炎华 发表于 2020-6-15 12:18
第一行修改后，不能删除对象了呢？
麻烦帮我再看下

(setq ang (* (/ 270. 180) pi)) 这样

前生

取弧长，是3/4园的长度就删，

qinleilei

右上角蓝色线条那不就是米思米的导柱嘛
汽车模具全3D转2D拆图 可以试试我的外挂， 我专业搞这一块的