Re: [心得] AutoCAD LISP 自問自答
看板Cad_Cae (電腦輔助設計)作者camelot1123 (寫不完的lisp..XD)時間16年前 (2009/07/16 20:15)推噓0(0推 0噓 0→)留言0則, 0人參與討論串3/5 (看更多)
感覺題目強調已知座標
就用座標寫寫看
別種寫法
(defun c:arc-h( )
(setq p1 (getpoint "\n Please pick first point for test: ")
p2 (getpoint "\n Please pick second poimt for test: ")
h (getreal "\n input H for test: ")
)
(setq pm (list (/ (+ (car p1) (car p2)) 2) (/ (+ (cadr p1) (cadr p2)) 2))
a1 (angle p1 p2)
a2 (+ a1 (/ pi 2))
)
(setq p3 (polar pm a2 h)
)
(command "arc" p1 p3 p2)
(princ)
)
獻醜了 ^^"
※ 引述《sjgau (sjgau)》之銘言：
: 已知 P1, P2
: P1= X1, Y1
: P2= X2, Y2
: 是一個弧的兩個端點
: 弧的高度= H
: H 有正負之分
: H 又稱為 弦高
: 求作 這個弧
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.166.218.215
討論串 (同標題文章)
Cad_Cae 近期熱門文章
PTT數位生活區 即時熱門文章
