社区 › AutoLISP/Visual LISP 编程技术 › 求一个三角形的坐标点。

artken 发表于 2013-10-7 09:56:18

求一个三角形的坐标点。

请高手帮忙写个代码求一下P3的坐标点，要考虑UCS坐标系下

已知：P1坐标、P2坐标、角度A，P3和P2是水平的。

vectra 发表于 2013-10-7 09:56:19

本帖最后由 vectra 于 2013-10-7 10:44 编辑


(defun get-p3 (p1 p2 ang)
(list (+ (car p1) (/ (* (- (cadr p2) (cadr p1)) (cos ang)) (sin ang))) (cadr p2))
)

(defun c:test (/ ang p1 p2 p3)
(setq p1(getpoint)
      p2(getpoint)
      ang (getangle p1)
      p3(get-p3 p1 p2 ang)
)
(command ".line" p1 p2 p3 "C")
(princ)
)

artken 发表于 2013-10-7 11:42:46

谢谢啦。。。。

查看完整版本: 求一个三角形的坐标点。