直角三角用autolisp语言怎么编写啊 还有矩形里面有内切圆的怎么编写啊 帮忙呀
1个回答
展开全部
(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)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
武义菲亚伏电子有限公司
2023-06-12 广告
绝缘子控件是指：“一种能够在架空输电线路中起到重要作用的特殊绝缘控件，能够在架空输电线路中起到重要作用。”绝缘子的作用是支持和固定母线与带电导体，并使带电导体间或导体与大地之间有足够的距离和绝缘。绝缘子应具有足够的电气绝缘强度和耐潮湿性能。...
点击进入详情页
本回答由武义菲亚伏电子有限公司提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
