杭州交通信息网退休人员暖气补贴标准:cad中lisp的问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/06 07:04:33
(setq pa (getpoint "请输入左下点"))
(setq a (getreal "请输入a边="))
(setq b (getreal "请输入b边="))
(setq c (getreal "请输入c边="))
(setq pb (polar pa 0 a))
(setq s (+(+a b) c)
(setq h (/ (* 2 s (-s a) (-s b) (-s c)) a)
(setq ang_pa (asin(/h c))
(setq pc (polar pa ang_pa c)
(command "pline" pa pb pc "c")
(prin1)
)
(prompt "\n<< c:sjxabc>> 作者 潘晓东"
怎么会出现输入有缺陷的问题
(setq a (getreal "请输入a边="))
(setq b (getreal "请输入b边="))
(setq c (getreal "请输入c边="))
(setq pb (polar pa 0 a))
(setq s (+(+a b) c)
(setq h (/ (* 2 s (-s a) (-s b) (-s c)) a)
(setq ang_pa (asin(/h c))
(setq pc (polar pa ang_pa c)
(command "pline" pa pb pc "c")
(prin1)
)
(prompt "\n<< c:sjxabc>> 作者 潘晓东"
怎么会出现输入有缺陷的问题