微信小程序 > 微信公开课 > AUTO LISP小程序
微信小程序，微信公开课，AUTO LISP小程序

AUTO LISP小程序

2019-03-12 17:02:19

微信公开课小程序热门讨论「AUTO LISP小程序」最新回复-1.首先,同LZ说的,你OSMODE没弄成0,不过我觉得你出的错在于,你求的角度有问题,程序里你求的是角B,就是b对应着的角,而ATAN的范围是(PI/2PI/2),在没判别角的大小时,角B是有可能钝角的,所以就出错了,最好是把ABC按照大小排一下,按你程序里,把b弄成最小的角,就没问题了.2.在程序前面加个判别能否形成三角形的语句,就是最小+次小最大的那个.3.程序末尾最好加个(PROMPT)语句,标明怎么运行这个程序,不然加载了你这个程序不知道怎么打开.刚才又看了下,发现你setqp3(polarp1(*ang1(/180pi))c))这一句也有问题,ATAN返回的本来就是弧度值,而polar也是用弧度值的祝LZ早日学成~附程序,还有缺陷,*ERROR*参数没设置,嫌麻烦(defunc:sbx(/p1p2p3abcphdang1)(setqoldos(getvarosmode))(setvarosmode0)(setvarcmdecho0)(setvarblipmode0)(setqp1(getpoint请输入基点：))(setqa(getdist\n请输入a=：))(setqb(getdist\n请输入b=：))(setqc(getdist\n请输入c=：))(setqc1(maxabc)b1(minabc))(foreachtemp(listabc)(if(and(tempc1)(tempb1))(setqa1temp)))(if((+a1b1)c1)(princ出错,输入的三边不能组成三角形)(progn(setqp(/(+abc)2))(setqh(sqrt(/(*(*4p)(pa)(pb)(pc))(*a1a1))))(setqd(sqrt((*c1c1)(*hh))))(setqang1(atanhd))(setqp3(polarp1ang1c1))(setqp2(polarp10a1))(commandlinep1p2p3c)))(setvarosmodeoldos)(prin1))(prompt********************输入sbx以开始程序********************)(princ)
1,首先,你要把捕捉关闭,你没有关2,有的三条边,可能有两种三角形图,你有在程序里区分吗?3,有的三个长度是不可能构成三角形的,比如1,1,10,不能的 更多有关「AUTO LISP小程序」的疑问请扫码关注微信公开课+小程序！
标签：微信公开课,小程序
微信小程序，微信公开课，AUTO LISP小程序

「AUTO LISP小程序」热议话题订阅

方法1：微信扫描微信公开课小程序码即可订阅热议话题「AUTO LISP小程序」

方法2：微信搜索微信公开课小程序名称进入，即可订阅热议话题「AUTO LISP小程序」

方法3：微信网页访问即速商店，长按识别微信公开课小程序码即可订阅热议话题「AUTO LISP小程序」

微信公开课小程序热议话题「AUTO LISP小程序」由微信公开课原创摘录于微信小程序商店shop.jisuapp.cn，转载请注明出处。

微信公开课热议话题「AUTO LISP小程序」由微信公开课开发者向微信用户提供，并对本服务内容、数据资料及其运营行为等真实性、合法性及有效性承担全部责任。

微信公开课小程序

更新时间：2019-03-12 17:02:19

一键制作小程序 全国代理小程序 订阅微信公开课