批量圆形变螺孔

admin

1. ;圆变螺孔 明经 ZZXXQQ 2010.9.8
3. (defun c:lk ()
5. (defun mkline (p1 p2 ln)
7.   (entmake (list '(0 . "LINE") (cons 8 ln) (cons 10 p1) (cons 11 p2)))
9. )
11. (setvar "CMDECHO" 0)
13. (if (and (princ "\n选择要加螺纹的圆 :")
15.           (setq ss (ssget '((0 . "CIRCLE"))))) (progn
17.   (setq i 0)
19.   (repeat (sslength ss)
21.    (setq en (ssname ss i)
23.          ent (entget en)
25.          i (1+ i)
27.          pc (cdr(assoc 10 ent))
29.          r (cdr(assoc 40 ent))
31.          ri (* r 1.0)
33.          ro (* r 1.2)
35.          pc1 (polar pc 0 ro)
37.          pc2 (polar pc pi ro)
39.          pc3 (polar pc (/ pi 2) ro)
41.          pc4 (polar pc (/ pi -2) ro)
43.          an1 (/ pi 3)
45.          an2 (/ pi -6))
47.    (if (not (tblsearch "LAYER" "center"))
49.     (command ".LAYER" "N" "center" "C" 1 "center" "L" "CENTER" "CEN" "")
51.    )
53.    (mkline pc1 pc2 "center")
55.    (mkline pc3 pc4 "center")
57.    (entmake (list '(0 . "CIRCLE") (assoc 8 ent) (cons 10 pc) (cons 40 ri)))
59.    (entmake
61.     (list '(0 . "ARC") (cons 10 pc) (cons 40 ro) (cons 50 an1) (cons 51 an2) '(62 . 1))
63.    )
65.    (entdel en)
67.   )
69. ))
71. (setvar "CMDECHO" 1)
73. (princ)
74. )

复制代码