Question

请问上述问题在哪里？三边画三角形。autolisp.画出来的图形不正确。

(defun c:mm()
(setq pa(getpoint"请输入左下角坐标:"))
(setq a(getreal"\n请输入底边边长："))
(setq b(getreal"\n请输入左边边长："))
(setq c(getreal"\n请输入右边边长："))
(setq p (/(+ a b c) 2))
(setq pb (polar pa 0 (sqrt (- (* c c) (/ (* 4 (* p (* (* (- p a) (- p b)) (- p c)))) (* a a))))))
(setq pc (polar pb (/ pi 2) (/ (* 2 (sqrt (* p (* (* (- p a) (- p b)) (- p c))))) a)))
(setq pd (polar pa 0 a))
(command "pline" pa pd pc "")
(prin1)
)

Answer 1

计算的过程就不看了，假定是正确的
(command "pline" pa pd pc "")应该是(command "pline" pa pd pc pa "")，要不只能画出个<,少一个边
另外，程序设计思路有问题，不是随便给3个数就能形成3角形的

追问

大神，你试下在电脑上运行下。画出来的图形跟想的不同。运行无误。思路问题，先不管它。

大神，你试下在电脑上运行下。画出来的图形跟想的不同。运行无误。思路问题，先不管它。