AutoCAD LISP利用直角顶点斜边和一条直角边绘制直角三角形
2011-03-26 18:49 精诚所至 金石为开 阅读(552) 评论(0) 编辑 收藏 举报AutoCAD LISP利用直角顶点斜边和一条直角边绘制直角三角形,还可以显示变长和角度信息。
(defun c:test()
(setq pa (getpoint "直角定点:"))
(setq ww (getreal "\n底边长:"))
(setq kk (getreal "\n斜边长:"))
(setq pb (polar pa 0 ww))
(setq hh (sqrt (- (* kk kk) (* ww ww))))
(setq pc (polar pa (/ pi 2) hh))
(command "line" pa pb pc "c")
)
代码完。
![](https://img2024.cnblogs.com/blog/35695/202408/35695-20240826070647288-243310440.jpg)