直角三角用autolisp语言怎么编写啊 还有矩形里面有内切圆的怎么编写啊 帮忙呀
展开全部
(defun c:MJL1 (/ pa pb pc kk ww hh ang_pa ang_pb ang_pc)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq #os (getvar "osmode"))
(setq pa (getpoint "请输入直角三角形左下角点:"))
(setq ww (getdist pa "\n请输入直角三角形底边长度"))
(setq kk (getdist pa "\n请输入直角三角形斜边的长度"))
(if (> kk ww)
(progn
(setq hh (sqrt (- (* kk kk) (* ww ww))))
(setq pc (polar pa (/ pi 2) hh))
(setq pb (polar pa 0 ww))
(setvar "osmode" 0)
(command "pline" pa pb pc "c")
(setvar "osmode" #os)
(setq ang_pa (atan hh ww))
(setq ang_pb (* ang_pa (/ 180 pi)))
(setq ang_pc (- 90 ang_pb))
(princ "\nPB的夹角=") (princ ang_pb) (princ "度")
(princ "\nPC的夹角=") (princ ang_pc) (princ "度")
)
)
(prin1)
)
(prompt "\n 《c:MJL1》画直角三角形")
(prin1)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
东莞大凡
2024-08-07 广告
作为东莞市大凡光学科技有限公司的一员，我们深知Matlab圆点标定板在相机标定中的重要性。该标定板通过均匀分布的圆点，帮助精确计算相机参数，优化成像效果。Matlab强大的编程功能，使得我们能够灵活设计标定板，调整圆点大小、数量和分布，以满...
点击进入详情页
本回答由东莞大凡提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
