第一篇：工作中需要的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