王老师：19139051760(微信同号)  13333709510
联大   青书学堂   文才   和学   现代兴业   安徽教育在线   超星   弘成   广东开放大学   国家开放大学   上海开放大学   含弘慕课 

教育服务
成人高校
成考录取分数线
我要提升学历
提升学历的理由：
升职加薪、积分落户、考研、公务员考试、子女入学、出国留学


成人高考报名入口

当前位置： 首页 > 其他系统 > 青岛理工大学> 青岛理工大学机械CAD
 

输入试题：
本题添加时间：2023/4/3 12:59:00
圆梦客服：王老师  19139051760(微信同号)  19139051760(微信同号)
如图输入 a、 b、 c、 d、 r 五个值，用AutoLISP编程自动绘制出该图（实线部分）。

答案是:程序如下所示：
(defun c:abcdr( )
(setq p0 (getpoint "\n base point："))
(setq a (getreal "\n dimension a: "))
(setq b (getreal "\n dimension b: "))
(setq c (getreal "\n dimension c: "))
(setq d (getreal "\n dimension d: "))
(setq r (getreal "\n dimension r: "))
(setq x0 (car p0 ))
(setq y0 (cadr p0 ))
(setq x1 (+ x0 a))
(setq y1 y0)
(setq x2 x1)
(setq y2 (- y1 d))
(setq x3(+ x0 b r))
(setq y3 y2)
(setq x4 x3)
(setq y4 (- y3 r))
(setq x40 (- x3 r))
(setq y40 y4)
(setq x5 x40)
(setq y5 (- y0 c))
(setq x6 x0)
(setq y6 y5)
(setq p1(list x1 y1))
(setq p2(list x2 y2))
(setq p3(list x3 y3))
(setq p4(list x4 y4))
(setq p40(list x40 y40))
(setq p5(list x5 y5))
(setq p6(list x6 y6))
(command "line" p0 p1 p2 p3 "")
(command "line" p0 p6 p5 p40 "")
(command "arc" "c" p4 p3 p40)
)

出自 青岛理工大学机械CAD  其他系统

青岛理工大学

更多试题>>>>
1、20、一个人又看书又听音乐，这是注意不集中的表现。
2、外国法院作出的发生法律效力的判决，需要中华人民共和国承认执行的，当事人可以 直接向中华人民共和国有管辖权的( )申请。 A．最高人民法院 B．高级人民法院 C．中级人民法院
3、sinx，sin2x，...，sinnx线性无关。（）
4、单选题) By referring to Sam’s broken bicycle, the author intends to _________.(本题2.0分) A、 illustrate the ways to repair
5、sinx，cosx线性无关。（）


提升学历-成人高考报名入口 提升学历-成人高考院校名单