作者sjgau (sjgau)
看板Cad_Cae
标题Re: [心得] AutoCAD LISP 自问自答
时间Sun Jul 19 16:38:43 2009
有网友提到 简洁的问题，
底下的 修正版本，应该 比较简洁 一点点。
: (defun c:arc-h( / )
: (setq e1 (entsel "\n Please pick a Line for test: "))
: (setq h (getreal "\n input H for test: "))
: (setq h (* -1 h))
: (setq p1 (cadr e1))
: (setq p2 (osnap p1 "endp")
: pm (osnap p1 "mid"))
: (setq a1 (angle p2 pm))
: (setq a2 (+ a1 (* (/ 90.0 180.0) pi)))
: (setq p3 (polar pm a2 h)
: p4 (polar pm a1 (distance p2 pm)))
: (command "arc" p2 p3 p4)
: (princ)
: ); end of c:arc-h
: (princ "\n do the command of ARC-H")
: (princ)
: : 已知 P1, P2
: : P1= X1, Y1
: : P2= X2, Y2
: : 是一个弧的两个端点
: : 弧的高度= H
: : H 有正负之分
: : H 又称为 弦高
: : 求作 这个弧
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.245.109.38