第一篇：工作中需要的CAD代码总结
1.遍历图层
Dim layer As AcadLayer For Each layer In ThisDrawing.Layers Next layer 2.获取指定图层
Dim CurrentLayer As AcadLayer Set CurrentLayer = ThisDrawing.Layers.Item(“层名(或序号)”)3.选择集构建(选择指定图层的文本对象)Dim acadApp As AcadApplication Dim acadDoc As AcadDocument
Private Sub Command1_Click()On Error Resume Next Set acadApp = GetObject(, “AutoCAD.Application”)If Err Then Err.Clear Set acadApp = CreateObject(“AutoCAD.Application”)End If
Set acadDoc = acadApp.ActiveDocument
Dim FType(0 To 1)As Integer Dim FData(0 To 1)As Variant
FType(0)= 0
FData(0)= “TEXT”
FType(1)= 8
FData(1)= “GCJZ”
Dim ssetobj As AcadSelectionSet Set ssetobj = acadDoc.SelectionSets.Add(“test2”)
ssetobj.Select acSelectionSetAll, , , FType, FData
For Each pickedobjs In ssetobj pickedobjs.Color = acGreen
'把选上的实体变成绿色 pickedobjs.Update Next ssetobj.Delete 4.遍历选择集
Dim ent As AcadEntity Dim color As New AcadAcCmColor color.ColorIndex = acRed For Each ent In ThisDrawing.ModelSpace If TypeOf ent Is AcadLine Then ent.TrueColor = color End If Next ent 5.动态创建多线段
Sub CreatePolylineBasic()On Error Resume Next Dim index As Integer index = 2
Dim pt1 As Variant pt1 = ThisDrawing.Utility.GetPoint(, “输入第一点：”)If Err Then Err.Clear Exit Sub End If
Dim ptPrevious As Variant, ptCurrent As Variant ptPrevious = pt1
NEXTPOINT: ptCurrent = ThisDrawing.Utility.GetPoint(ptPrevious, “输入下一点：”)If Err Then Err.Clear Exit Sub End If
Dim objPline As AcadLWPolyline If index = 2 Then Dim points(0 To 3)As Double points(0)= ptPrevious(0)points(1)= ptPrevious(1)points(2)= ptCurrent(0)points(3)= ptCurrent(1)Set objPline = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)ElseIf index > 2 Then Dim ptvert(0 To 1)As Double ptvert(0)= ptCurrent(0)ptvert(1)= ptCurrent(1)objPline.AddVertex index-1, ptvert End If index = index + 1 ptPrevious = ptCurrent GoTo NEXTPOINT End Sub 6.获取DXF组码 直接在命令行输入(entget(car(entsel))),或者在函数中ThisDrawing.SendCommand “(entget(car(entsel)))” 7.
第二篇：《CAD二次开发技术》试题参考代码
定义一个函数，把从指定图素之后所绘制的所有图素放入一个选择集中，并返回这个选择集。程序为：
(DEFUNSELSTUFF(E/SS);E:指定的图素名称
(SETQSS(SSADD))
(IF(NULLE)(SSADD(SETQE(ENTNEXT))SS))(WHILE(SETQ E(ENTNEXT E))(SSADDESS)))
产生新层的函数
(defunnewlayer(layernamecolorltype)
(command“layer”“n”layername“c”colorlayername“l”ltypelayername“"))
Color参数可取整数或颜色字符串，层名和线型自变量必须用字符串。AUTOCAD中常用的线型名称为：continuous，center，hidden，phantom
;水平对称函数(对称轴为水平):
;str: 点变量的符号字符串(比如,已知变量为p1,p2...pn,则str应为”p“;i: 点变量的起始下标,如上例应为1
;n: 连续的点变量数目,如上例应为n
;p0 : 对称轴上的任一点
(defun hsym(str i n p0 / xx yy)
(repeat n;此函数一共可同时求出n个对称点坐标值,故循环n次
(setq xx(read(strcat str(itoa i)”hsym"));构造对称点变量名(如:p1hsym)yy(read(strcat str(itoa i))));得到已知点变量名(如:p1)(set xx(list(car(eval yy));为对称点变量赋值(-(*(cadr p0)2)(cadr(eval yy)))))
(setq i(1+ i));求下一个对称点坐标))
第三篇：工作中需要反思
工作中需要反思
石阡县本庄初级中学 王延忠
在我县大力实施生本高效课堂改革的今天，反思是促进课堂改革取得成功的良好手段。曾子说“吾日三省吾身”就在教育我们工作、生活中要学会思考、学会反思。邓小平曾说过“问题是很多，但能进行反思就是一个最大的教育，比读什么书都重要。”工作做了没有反思，就是随大流；而学会反思，工作就有了思路，有了经验，人也就少走许多弯路、错路。
生本高效课堂就是让学生自主探究、分组学习、合作学习，从而使每个学生都能得到发展，这是高效课堂的核心概念。这种理念下的教学，对教学有了更高的要求。在传统教学中，经常有这样的困惑：一节课自己认为备课充分，知识讲解透彻，应有好的教学效果，而事实上呢？学生一个个无精打采，兴趣不浓，教学效果不佳。究其原因，主要有几方面：
1、学生的注意力不可能持续的高度集中，如果课堂乏味，很容易导致学生精力涣散。
2、学生没有机会参与，导致学生大多处于事不关己的淡漠心态之中。
3、老师没用多种有效教学方法调动学生的积极性。
因此，高效课堂教师既要点燃学生的激情，点亮学生的生命，又要把握教学中的导向作用，发现学生的思维闪光点，活跃课堂气氛，使每个学生都产生浓厚的学习情趣和学习自信心。因此，进行教学反思是十分必要的，是实施高效课堂、发展和提高教育教学能力的重要手段。
一、反思的必要性
只要你的心在跳，血在流，就有责任来反思。只有反思，在人生的道路上，才能做到未雨绸缪，至少也能让你亡羊补牢。也许，大家觉得：我们教育人，每天就是上课，教育学生，即使犯点错误也不会太大。这种想法是错的，把工作责任不大或者说就是上课没有什么其他问题就不反思的说法是错的。我们教育工作，说小点是教书育人，说大点就是培养祖国的栋梁、培养未来社会的建设者和接班人，如果我们的工作懈怠或者不够努力，祖国在未来社会就将失去一丁点儿竞争力，我们就对不起自己和国家。工作做了有什么成功经验，自己没有积淀；或是有什么不足，以后如果再犯同类毛病，这些情况都说明我们没有对平时的思想、工作、行为进行反思，俗语说“吃一堑长一智”，曾子说“吾日三省吾身”，更何况我们普通人。反思是一种习惯的力量，只有坚定反思的信念，做到时时反思、事事反思，在反思中学习，在反思中促进自身能力的全面提升。
我们教育人，反思就是以自己的教育教学活动为思考对象，对自己在职业中所做出的行为以及由此所产生的结果进行审视和分析的过程，它为教学工作提供了“再创造”的可能，是教学创新的基础，教师自我发展的过程。要想成为一名优秀教师，除了具备一定的教学经验外，还必须具备不断反思的意识，唯有如此，才能使自己与时俱进，才能对自己提出更高更远的目标，向教学艺术的殿堂迈进。
二、反思的内容
反思的内容有很多，反思的内容呈现多样性和变化性。反思的内容是多样性的，错误的要反思，正确的同样要反思；精神层面要反思，现实生 2 活要反思；个人的一切要反思，他人的如与本人相关的同要要反思。比如我们教师要反思：今天的这堂课有什么成功经验、有什么教训，在管理学生的时候有什么成功或是不足之处，今年在教育工作中有什么成功或是不足，等等内容都是我们反思的东西。反思不是一成不变的，昨天的反思不等于今天的反思，今天的反思无法代替明天的反思。
反思的过程，是一种享受，在此过程中，教师的能力一定会得到发展、提高。在生本高效改革中，教师既是探索者，也是思想者，要树立全面的反思观和发展的反思观，只有不断地反思，才有进一步的探索和成功。那么，反思什么呢？
1、反思课堂。在课堂教学中，随着教学内容的展开，学生积极参与交往，师生的思维发展及情感交流往往非常精彩，这些“智慧的火花”常常是不由自主、突然而至的，若不及时利用课后反思去捕捉、记录课堂上的灵动，便会因时过境迁而烟消云散，令人遗憾不已。如我在教《孔乙己》这篇文章时，要求学生预习，开始上课就有学生举手提问，说“鲁迅先生说‘孔乙己大概的确真的死了’，他写错了，用词错误，他是文豪，不应该出现这样的问题。是不是印刷的问题？”。我马上表扬了这个学生，按教学设计。这个问题应该是讲课文分析的时候让学生讨论，但学生在课文讲解开始时提出，于是我就组织学生谈这个问题，通过学生自行的讨论，在学生讨论时适时鼓励、表扬，有时再点一把火，通过学生的分析、讨论，这篇文章所要传授的知识点学生几乎掌握。通过这种适时的鼓励、煽动和肯定，学生不但能很好的理解透知识，而且有一种成就感，能够更好的激 3 发学生的潜能。
2、反思学生。学生是学习的主体，课堂教学中，由于每个学生的生活经验和个性气质不同，他们对学习内容的理解也会不同，教师应当充分肯定学生在课堂上的一些独特见解，这样不仅使学生的好方法、好思路得以推广，而且对他们也是一种赞赏和激励。同时，这些难能可贵的见解也是对课堂教学的补充与完善，可拓宽教师的教学思路，是改进教学的借鉴。在我2004年教《背影》一课时：因为我父亲在我读初二的时候就一个人抚养我读书，我对父爱看得很高、很重。在范读课文的时候读到父亲探下身子买橘子这段的时候，有学生当时笑，我问他问为什么笑，学生回答“有点假，不相信。”我当时就给了学生一耳光，让学生学生坐下。后来，与学生交流的时候了解到，这个学生的父亲在他很小的时候就在外出打工死去，从没见过父亲的样子。学生没有这样的经历，我却强加自己的感受在他的身上，我对自己当时的行为感到深深的后悔。学生的见解即使是错误的，但他却是独特的，有着学生自己的感受，唤醒和点燃学生的激情，让学生在参与的同时，主动去感知、发现、获得、升华，这才是教育的最大成功。
3、反思工作中的成功。生本高效课堂能给人一种自然、和谐的感受，教师要善于捕捉这样的感受，思考成功的原因。譬如，教学中激发学生的激情；突出重点、分散难点的方法；教学理念如何在课堂中得到渗透与应用；教育学、心理学原理在课堂中应用的感悟；学法指导的技巧等等。只有不断记录成功之处，才能在今后的教学中适当借鉴，并不断总结，推陈 4 出新，教学艺术才能日臻完美。《沁园春 雪》是1945年8月，抗战胜利后，毛泽东同志为了国家的前途和人民的利益，亲赴重庆与国民党谈判。他登上海拔千米、白雪覆盖的塬上视察地形，观赏风光。面对苍茫大地，胸中豪情激荡，过后写下了这首词。如何感受学生感知冰雪形象以及雪山、雪原的雄浑壮美，认识毛泽东的宏大气魄是这篇文章教学中的重点和难点。我在引导学生感知课文，深入理解当时的国家现状，以读为突破口，让学生在反复朗读中体会雪原的壮美和毛主席的宏大气魄。经过不断的读，学生几乎都掌握了这首词的大致内容，以此拓展了学生的思维，培养了学生语言分析、运用、赏析的能力。
4、反思工作中的失误。即使是老教师，在一节课的某个内容或某个环节上也难免出现疏漏失误，有这样或那样的不足，或教学内容安排不妥，或教学方法不适用，或导学案难易程度把握不准，或课堂中的生成处理不当，或未针对学生差异区别对待„„所有这些情况，课后要认真思考、分析，找出原因，再通过与学生交流，与同事交流，甚至向专家请教，寻求解决问题的方法策略。课后及时进行反思，写下了本课教学失败的原因，避免以后再出现这样的错误。
三、如何反思
反思必须克服形式主义，坚持理论联系实际的基本原则，说到底就是一种真实客观的反思。努力把自己的所学所知运用于实际工作、学习和生活中，尽信书不如无书，联系自己的实际进行反思，以反思来指导我们的现实工作和生活。要有反思的勇气，坚持理论联系实际的反思方法，在实 5 践中把反思的成果落实到实处。实事求是是党的思想路线，我们教育教学工作也要做到实事求是。对于每天、每周、每月乃至每年的工作任务，我们必须坚持反思原则，在努力工作基础上去反思。通过不断反思，来解决自己在教学中、在班级管理中、在生活中等等方面的难题，真正实现成长。
课堂教学对教师而言，不只是为学生成长所做出的付出，不只是别人交付任务的完成，它同时也是自己生命价值和自身发展的体现，这种教师自我情感体验的反思，更能带动教师对教学中体现的教学策略、教学机制、教学语言进行深入的研究和思考。借助其他教师对自身教学的评价进行反思，可以客观冷静地分析、审视自己的教学，也是我们教师成长的一条有效途径。
总之，对于反思，每个人都有自己的理解。但是，我坚信：“反思就是一个最大的教育”这句话的合理性、正确性。反思是必要的，每一个人都需要反思，一个人在反思中实现自我的价值，在反思中得到长足的发展，在反思中发展进步的人生。
第四篇：工作中需要反思
工作中需要反思
曾子说“吾日三省吾身”、孔子说“学而不思则罔”，都在教育自己工作、生活中要学会思考、学会反思。思考的内容有很多，思考的好处有不少。邓小平曾说过“问题是很多，但能进行反思就是一个最大的教育，比读什么书都重要。”的确，反思在工作中是必要的。工作做了没有反思，至多就是随大流、工作压力大、觉得过于劳累；而学会反思，工作就有了思路，有了经验，人也就少走许多弯路、错路。
一、谁来反思
只要你的心在跳，血在流，就有责任来反思。只有反思，在人生的道路上，才能做到未雨绸缪，至少也能让你亡羊补牢。也许，你会说我们每天就是上课，犯点错误也不会太大。这种想法是错的，把工作责任不大或者说就是上课没有什么其他问题就不反思的说法是错的。工作做了有什么成功经验或是有什么不足，以后如果再犯同类毛病，那就是我们自己没有对平时的思想、工作、行为进行反思，俗语说“吃一堑长一智”，曾子说“吾日三省吾身”，更何况我们普通人。反思是一种习惯的力量，只有坚定反思的信念，做到事事反思、时时反思，在反思中学习，在反思中促进自身能力的全面提升。
二、反思什么
反思的内容有很多，反思的内容呈现多样性和变化性。反思的内容是多样性的，正确的要反思，错误的同样要反思；精神层面要反思，现实生活要反思；个人的一切要反思，他人的如与本人相关的同要要反思。比如我们教师要反思：今天的这堂课有什么成功经验、有什么 教训，在管理学生的时候有什么成功或是不足之处，今年在教育工作中有什么成功或是不足，等等内容都是我们反思的东西。反思不是一成不变的，昨天的反思不等于今天的反思，今天的反思无法代替明天的反思。要树立全面的反思观和发展的反思观，把自身的反思工作做好，以此促进工作的进步和提高。
三、如何反思
反思必须克服形式主义，坚持理论联系实际的基本原则，说到底就是一种真实客观的反思。努力把自己的所学所知运用于实际工作、学习和生活中，尽信书不如无书，联系自己的实际进行反思，以反思来指导我们的现实工作和生活。要有反思的勇气，坚持理论联系实际的反思方法，在实践中把反思的成果落实到实处。
实事求是是党的思想路线，我们教育教学工作也要做到实事求是。对于每天、每周、每月乃至每年的工作任务，我们必须坚持反思原则，在努力工作基础上去反思。通过不断反思，来解决自己在教学中、在班级管理中、在生活中等等方面的难题，真正实现成长。
总之，对于反思，每个人都有自己的理解。但是，我坚信“反思就是一个最大的教育”有其合理性的意义，反思是必要的，每一个人都需要反思，一个人在反思中实现自我的价值，在反思中得到长足的发展，在反思中发展进步的人生。
第五篇：CAD总结
快捷键
斜线段标注：DAL锁定未被选择层：77 关闭图层对象：LAYOFF天正图层控制工具条：00 插入块：I天正工具条：Ctrl= 写块：W文档标签：Ctrl-等分：DIV
连续标注：DCO
角度标注：DAN
半径标注：DRA
设置线性：LT
设置线性比例：LTS
设置线宽：LW
对象选择过滤器：FI
修改特性：CH或Ctrl+1
多段线编辑：PE
属性标记：ATT
关闭选择图层：11
根据设定打开图层：22
打开全部层：33
锁定选择层：44
解锁选择层：55
打开选择层：66命令行：Ctrl+9 查找和替换：find 过滤选择：GLXZ 快速选择：QSELECT带基点复制：Ctrl+Shift+C 世界：UCS对齐：AL 编辑属性：ATE 创造边界：BO 图形单位：UN 修改特性：CH 输出其他格式文件：EXP 输入文件：IMP 自定义CAD设置：OP 设置捕捉模式：OS 设置极轴追踪：DS 捕捉栅格：SN
打印预览：PRE从图纸空间切到模型空间视口 ：MS 工具栏：TO从模型空间视口切换到图纸空间: PS 命名视图：V创建浮动视口：MV
距离:DI修改对象名:REN
显示图像数据信息：LI列出系统变量并修改变量值:SET 全显：Z+E/A创建二维填充多边形 :SO 返回上一视图：Z+P检查图形中文字的拼写 :SP 编辑标注：DED块编辑命令：BE
标注样式：D图形单位：UN
中心标注：DCE设置图形界限：Limits
半径标注：DRA
直径标注：DDI
角度标注：DAN
加载程序：AP
设置三维观察方向：VP
替代标注系统变量：DOV
打开“鸟瞰视图”窗口 ：AV
定义平行投影或透视视图 ：DV
图像管理：IM
插入连接或嵌入对象：IO
将点对象或块按指定的间距放置： ME
从上一个或选定标注的基线处创建线性、角度或坐标标注 :DBA
点击咨询 