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.

 

第二篇：20xx年秋季CAD教学工作总结

20xx年秋季CAD教学工作总结

这一学期，本人担任11级航海与农机班CAD课程，初次从事教育行业，在工作上还存在一些欠缺，今后会多多向其他老师探讨学习。此学期里，在课堂上，（授课时）严格要求学生认真听课，尊重学生，发扬教学民主；（非授课时）逐一询问学生的听课效果以及要求学生提出不懂的问题。机房操作课上要求学生积极动手绘图，并亲自逐一检查学生的绘图效果。使学生学有所得，从而不断提高自己的教学水平，并顺利完成了本学期教学任务。

下面是本人的教学经验及体会：

一、提高教学质量

关键是课前备好课，课内上好课，课后疏理课。

1、备好课：认真钻研教材，对教材的基本思想、基本概念，弄清楚，了解教材的结构，重点与难点，掌握知识的逻辑，能运用自如，知道应补充哪些资料，怎样才能教好学生。

2、上好课：组织好课堂教学，关注全体学生，注意信息反馈，调动学生的积极性，使他们产生愉悦的心境，创造良好的课堂气氛，课堂提问面向全体学生，注意引发学生产生学习的兴趣.

3、疏理课：了解学生原有的知识技能的质量，他们的兴趣、需要、方法、习惯，学习新知识可能会有哪些困难，采取相应的预防措施。考虑教法，解决如何把已掌握的教材传授给学生，包括如何组织教材、如何安排每节课的活动。

二、提高（师生）自身素质

1、严格履行学校的规章制度。不迟到，不空堂。

2、公平对待每一个学生。学生爱动、好玩，缺乏自控能力，常在课堂上大吵大闹，睡觉，看小说等。针对这种问题，抓好学生的思想教育，坚持不懈，并使这一工作贯彻到对学生的学习指导中去。还要做好对学生学习的辅导和帮助工作，尤其在后进生的转化上，对后进生努力做到从友善开始，让每一个学生觉得自己是学校的一份子。从赞美着手，所有的人都渴望得到别人的理解和尊重，所以，和差生交谈时，对他的处境、想法表示深刻的理解和尊重。

3、积极参与听课。 虚心向其他老师学习教学方法，博采众长，提高教学水平。

4、培养多种兴趣爱好。不断扩宽知识面，为教学内容注入新鲜血液。

5、认真做好作业讲评。有些学生常常不能按时完成作业，甚至还有些学生抄袭作业。这一现象大有人在，屡劝不改。针对这一现象，应该采取相应的措施。作业布置在自习课上，要求学生在下课时上交给老师，老师亲自清点人数是否齐全。 社会对教师的素质要求高，在今后的教育教学工作中，我将更严格要求自己，努力工作，发扬优点，改正缺点，要有更高的思想境界、新的目标追求、新的精神面貌 。