(defun C:t1()
(setq pa(getpoint "\n请输入三角形的直角坐标点:"))
(setq ww(getreal "\n请输入三角形底边长:"))
(setq hh(getreal "\n请输入三角形的高:"))
(setq pb(polar pa 0 ww))
(setq pc(polar pa (/ pi 2) hh))
(command "pline" pa pb pc "c")
(princ)
)
绘制三角形lisp源码分享如下
最新推荐文章于 2022-05-09 23:51:59 发布