作者camelot1123 (写不完的lisp..XD)
看板Cad_Cae
标题Re: [心得] AutoCAD LISP 自问自答
时间Thu Jul 16 20:15:47 2009
感觉题目强调已知座标
就用座标写写看
别种写法
(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