刘炎华 发表于 2020-6-14 11:18:02

过滤牙圆弧的并删除

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

satan421 发表于 2020-6-14 13:02:00

关注一下50，51组码

刘炎华 发表于 2020-6-14 13:13:16

谢谢！我之前试过没弄好

start4444 发表于 2020-6-14 15:23:22

(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 51entdat))) (setq ang_en (- (cdr(assoc 51 entdat)) (cdr(assoc 50entdat)))) (setq ang_en (+ (- (cdr(assoc 51 entdat)) (cdr(assoc 50entdat))) (* 2 pi))))       
        (if (equal ang ang_en 0.001) (entdel en))              
        )
)

刘炎华 发表于 2020-6-14 16:01:09

感谢！希望这个只针对牙圆弧，不再输入总角度值270

本帖最后由 刘炎华 于 2020-6-14 16:05 编辑

非常感谢！

刘炎华 发表于 2020-6-14 17:21:39

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-15 12:18:14

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

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

start4444 发表于 2020-6-15 12:24:50

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

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

前生 发表于 2020-6-15 12:54:30

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

qinleilei 发表于 2020-6-20 19:00:52

右上角蓝色线条那不就是米思米的导柱嘛:lol
汽车模具全3D转2D拆图 可以试试我的外挂， 我专业搞这一块的
页: [1]
查看完整版本: 过滤牙圆弧的并删除