优化穿线孔到孔边的距离，节省线割路径

ymcui · 发表于 2024-11-19 17:02:41

(defun c:qqq (/ ss n me en pt k)
  (setq ss (ssget '((0 . "CIRCLE"))))
  (repeat (setq n (sslength ss))
(setq me (ssname ss (setq n (1- n))))
(setq en (entget me))
(setq pt (cdr (assoc 10 en)))
(setq k (cdr (assoc 40 en)))
(command "_CIRCLE" "none" (polar pt (* pi 0.25) (- k 3)) 1)
  )
  (princ)
)
(defun c:qq (/ s1 s2 en1 en2 p1 p2 ang k)
  (while (and (setq s1 (entsel "\n选择第一个圆: "))
            (setq s2 (entsel "\n选择第二个圆: ")))
(setq en1 (entget (car s1)))
(setq en2 (entget (car s2)))
(setq p1 (cdr (assoc 10 en1)))
(setq p2 (cdr (assoc 10 en2)))
(setq ang (angle p2 p1))
(setq k (- (cdr (assoc 40 en2)) (cdr (assoc 40 en1)) 1))
(setq en1 (subst (cons 10 (polar p2 ang k)) (cons 10 p1) en1))
(entmod en1)
  )
  (princ)
)

ymcui · 发表于 2024-11-19 14:04:02

直接出个画穿丝孔的不省事，这种圆的还是比较简单

ma344578245 · 发表于 2024-11-19 14:06:39

整套模具图纸3D转出来的穿线孔位置比较乱，分使用环境吧

yu960312 · 发表于 2024-11-19 15:51:45

ma344578245 发表于 2024-11-19 14:06
整套模具图纸3D转出来的穿线孔位置比较乱，分使用环境吧

异型孔呢

liuhe · 发表于 2024-11-19 16:04:41

建议可以优化成框选模式，两个圆大小不一样，程序内部直接分析，谁是大圆谁是小圆，效率又提高了

ucuc2003 · 发表于 2024-11-26 23:29:55

楼主可以分享一下这个录屏GIF工具吗？

xyp1964 · 发表于 2024-11-27 10:02:37

liuhe 发表于 2024-11-19 16:04
建议可以优化成框选模式，两个圆大小不一样，程序内部直接分析，谁是大圆谁是小圆，效率又提高了

(defun c:tt ()
(defun dxf (code e) (cdr (assoc code (entget e))))
(defun subupd (e c v)
(entmod (subst (cons c v) (assoc c (entget e)) (entget e)))
(entupd e)
)
(while (and (setq ss (ssget '((0 . "circle"))))
(= (sslength ss) 2)
)
(setq s1 (ssname ss 0)
s2 (ssname ss 1)
p1 (dxf 10 s1)
r1 (dxf 40 s1)
p2 (dxf 10 s2)
r2 (dxf 40 s2)
)
(if (> r2 r1)
(setq pt (polar p2 (angle p2 p1) r2)
p1 (polar pt (angle p1 p2) (+ r1 2))
s1 (subupd s1 10 p1)
)
(setq pt (polar p1 (angle p1 p2) r1)
p2 (polar pt (angle p2 p1) (+ r2 2))
s2 (subupd s2 10 p2)
)
)
)
(princ)
)

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

[源码] 优化穿线孔到孔边的距离，节省线割路径

本帖子中包含更多资源

点评