;Rgpin.lsp
(defun C:Rgpin (/ ip p2 d dat)
(graphscr)
(if (null tm) (load "trod-m.lsp"))
(if (null finddat) (load "finddat.lsp"))
(if (and (setq ip (getpoint "\ninput insertion point"))
(setq p2 (getpoint ip "\ninput 2nd point center"))
(setq d (getreal "\ninput nominal diameter"))
(setq dat (finddat "gpin.dat" d))
)
(progn
(drawgpin ip p2 d dat)
)
)
(princ)
)
(defun drawgpin (ip p2 d dat / p1 p3 p4 r r2 r3 r4 h d2 d3 d4 h2 m th)
(setq th(angle ip p2)
d4(nth 1 dat)
h(nth 2 dat)
d2(nth 4 dat)
d3(nth 5 dat)
h2(nth 6 dat)
m(nth 7 dat)
r(/ d 2.0)
r2(/ d2 2.0)
r3(/ d3 2.0)
r4(/ d4 2.0)
p1(polar ip th h)
p3(polar p2 th h)
p4(polar p3 th m)
)
(pr ip p1 r4)
(pm p1 p2 r)
(tm p2 p3 r3 r2)
(tm p3 p4 r2 0.0)
(princ)
)
---
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.46.19