Re: [八六] 借我放
(defun C:angle (/ ip )
(command "osnap" "none")
(command "ucs" "w")
(graphscr)
(if (setq ip (getpoint "\nInput IP :"))
(progn (drawit ip))
)
(princ)
)
(defun drawit (ip / p0 pi/2 p1 p2 p3 p4 p5 p6)
(command "ucs" "o" ip)
(setq p0 '(0 0 0)
pi/2 (/ pi 2.0)
p1 (polar p0 pi/2 90.0)
p2 (polar p1 0 53.66)
p4 (polar p0 0 63.66)
p3 (polar p4 pi/2 80.0)
p5 (polar p0 0 31.83)
p6 (polar p5 pi/2 45.0)
)
(command "pline" p0 p1 p2 "arc" p3 "line" p4 "c")
(command "extrude" (entlast) "" 10 "")
(setq e1 (entlast))
(command "circle" p6 10.0)
(command "extrude" (entlast) "" 10 "")
(setq e2 (entlast))
(command "subtract" e1 "" e2 "")
(command "ucs" "o" '(0 0 10))
(setq p0 '(0 0 0))
(command "ucs" "3p" p0 (rpoint3d p0 0 0 -100) (rpoint3d p0 0 100 0))
(setq p0 '(0 0 0)
p1 (polar p0 0 60.0)
p2 (polar p1 pi/2 90.0)
p3 (polar p2 pi 60.0)
p4 (polar p0 0 30.0)
p5 (polar p4 pi/2 45.0)
)
(command "pline" p0 p1 p2 p3 "c")
(command "extrude" (entlast) "" 10 "")
(setq e1 (entlast))
(command "circle" p5 10)
(command "extrude" (entlast) "" 10 "")
(setq e2 (entlast))
(command "subtract" e1 "" e2 "")
(command "ucs" "o" p1)
(setq p0 '(0 0 0))
(command "ucs" "y" "-30")
(setq p0 '(0 0 0)
p1 (polar p0 0 110.0)
p2 (polar p1 pi/2 32.0)
p3 (polar p2 pi 26.0)
p3/ (polar p2 pi 22.0)
p4 (polar p3 pi/2 58.0)
p4/ (polar p3/ pi/2 (* 22.0 (/ 58.0 26.0)))
p5 (polar p0 pi/2 90.0)
p6 (polar p5 0 75.0)
)
(command "line" p0 p1 p2 "")
(command "line" p2 p4/ "")
(setq e1 (entlast))
(command "line" p6 p5 "")
(setq e2 (entlast))
(command "line" p5 p0 "")
(command "fillet" "r" "10" p4/ p6)
; (command "extrude
(princ)
)
==
還沒畫完
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.46.19
討論串 (同標題文章)
完整討論串 (本文為第 8 之 8 篇):
八六