五、编程题。
1．用autolisp语言编写一个名为“tuxing”的自定义函数。要求执行此函数时使用键盘输入一个水平线段两端点的坐标，然后自动绘出该线段，并绘出以该线段两端点为圆心的两个大小相等的圆（两圆外切）。
defun c:tuxing (/p1 p2 r)
(setq p1 (getpoint " 输入第一点坐标：")
(setq p2 (getpoint " 输入与第一点水平的第二点坐标：")
(command "line" p1 p2 ""
(setq r (/car p2) (car p1)) 2))
(command "circle" p1 r)
(command "circle" p2 r)
(princ)
2．用autolisp语言编写一个名为“tu”的自定义函数。要求执行此函数时使用键盘输入一个圆的圆心坐标和半径值，然后自动绘出该圆和与该圆同心的正方形（边长等于圆的直径。
defun c:tu (/p1 p2)
(setq p1 (getpoint " 输入圆心坐标：")
(setq p2 (getreal " 输入圆的半径：")
(command "circle" p1 p2)
(command "polygon" 4 p1 “c" p2)
(princ)
3．用autolisp语言编程定义一个名为“圆管断面”的自定义函数。
defun c:tu (/pc1 p1 p2 p3 p4 r1 r2 a1 a2 a3)
(setq pc1 (getpoint " 输入圆管断面中心坐标：")
(setq r1 (getreal " 输入圆管内孔半径r1: "
(setq r2 (getreal " 输入圆管外孔半径r2: "
(setq a1 (/pi 2))
(setq a2 (/pi 3) 2))
(setq a3 (+r2 3.0))
(setq p1 (polar pc1 0.0 a3))
(setq p2 (polar pc1 a1 a3))
(setq p3 (polar pc1 pi a3))
(setq p4 (polar pc1 a2 a3))
(command "circle" pc1 r1)
(command "circle" pc1 r2)
(command "hatch" "ansi31" 1.0 0.0 "all" "
(command "line" p1 p3 ""
(command "line" p2 p4 ""
(princ)
4．用autolisp语言编写一个名为“tu”的自定义函数。要求执行此函数时使用键盘输入一个边长为40的正方形左下角点的坐标，然后自动绘出该正方形和它的内切圆。
defun c:tu (/p1 p2 p3 p4 p5)
(setq p1 (getpoint " 输入正方形的左下角坐标：")
(setq p2 (list (car p1) (40 (cadr p1)))
(setq p3 (list (+40 (car p1)) cadr p2)))
(setq p4 (list (+40 (car p1)) cadr p1)))
(setq p5 (list (+20 (car p1)) 20 (cadr p1)))
(command "pline" p1 p2 p3 p4 "c")
(command "circle" p5 20)
(princ)
CADCAM作业与讲评 一
机械cad cam作业与讲评 一 一 填充题。1 20世纪90年代开始cad cam技术主要朝着集成化 智能化 标准化和网络化的方向发展。2 capp系统按其工作原理可分为三种类型 检索式 派生式和创成式。3 产品模型数据交换标准 的英文缩写为step，它是由iso制定的。4 在capp系统中，零件...
作业与讲评五
行政伦理对行政权力的影响表现在哪些方面？作业讲评 该题目虽然在教材的位置不显著，但是意义十分重要。从自律和。他律的角度对行政伦理的作用进行了分析，应该重点把握。答案要点 行政权力是一种公共权力，行政管理是公共权力的分配与行使。过程。为避免在行政管理领域出现以权谋私或权力的滥用，必须有一套行之有效的行...
作业与讲评
一 基本案情 2004年12月23日19时许，李某骑自行车在上班途中与一辆二轮摩托车发生交通事故。2005年1月31日李某与肇事者达成交通事故损害赔偿调解书，由肇事者一次性赔偿李某15000元。2005年9月1日南通市劳动鉴定委员会作出裁决书，要求李某所在单位南通某钢绳有限责任公司 以下简称钢绳公司...