优化穿线孔到孔边的距离，节省线割路径
(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)
) 直接出个画穿丝孔的不省事，这种圆的还是比较简单
整套模具图纸3D转出来的穿线孔位置比较乱，分使用环境吧 ma344578245 发表于 2024-11-19 14:06
整套模具图纸3D转出来的穿线孔位置比较乱，分使用环境吧
异型孔呢 建议可以优化成框选模式，两个圆大小不一样，程序内部直接分析，谁是大圆谁是小圆，效率又提高了 楼主 可以分享一下这个录屏GIF工具吗？ 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)
) 谢谢大师分享 感谢分享,学习学习用法
页:
[1]