批量圆形变螺孔

admin · 发表于 2024-7-5 18:12:08

;圆变螺孔明经 ZZXXQQ 2010.9.8
(defun c:lk ()
(defun mkline (p1 p2 ln)
(entmake (list '(0 . "LINE") (cons 8 ln) (cons 10 p1) (cons 11 p2)))
)
(setvar "CMDECHO" 0)
(if (and (princ "\n选择要加螺纹的圆 :")
(setq ss (ssget '((0 . "CIRCLE"))))) (progn
(setq i 0)
(repeat (sslength ss)
(setq en (ssname ss i)
ent (entget en)
i (1+ i)
pc (cdr(assoc 10 ent))
r (cdr(assoc 40 ent))
ri (* r 1.0)
ro (* r 1.2)
pc1 (polar pc 0 ro)
pc2 (polar pc pi ro)
pc3 (polar pc (/ pi 2) ro)
pc4 (polar pc (/ pi -2) ro)
an1 (/ pi 3)
an2 (/ pi -6))
(if (not (tblsearch "LAYER" "center"))
(command ".LAYER" "N" "center" "C" 1 "center" "L" "CENTER" "CEN" "")
)
(mkline pc1 pc2 "center")
(mkline pc3 pc4 "center")
(entmake (list '(0 . "CIRCLE") (assoc 8 ent) (cons 10 pc) (cons 40 ri)))
(entmake
(list '(0 . "ARC") (cons 10 pc) (cons 40 ro) (cons 50 an1) (cons 51 an2) '(62 . 1))
)
(entdel en)
)
))
(setvar "CMDECHO" 1)
(princ)
)

复制代码

		自动登录	找回密码
密码			立即注册