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

ma344578245

ymcui

(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

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

ma344578245

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

yu960312

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

异型孔呢

liuhe

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