【溫馨提示】====【1】設計包含CAD圖紙 和 DOC文檔，均可以在線預覽，所見即所得，，dwg后綴的文件為CAD圖，超高清，可編輯，無任何水印，，充值下載得到【資源目錄】里展示的所有文件======【2】若題目上備注三維，則表示文件里包含三維源文件，由于三維組成零件數(shù)量較多，為保證預覽的簡潔性，店家將三維文件夾進行了打包。三維預覽圖，均為店主電腦打開軟件進行截圖的，保證能夠打開，下載后解壓即可。======【3】特價促銷，，拼團購買，，均有不同程度的打折優(yōu)惠，，詳情可咨詢QQ：1304139763 或者 414951605======【4】 題目最后的備注【SJ系列】為店主整理分類的代號，與課題內容無關，請忽視
畢業(yè)設計(論文)外文資料翻譯
題 目: TGSS-50型水平刮板輸送機
-機頭段設計
院系名稱： 專業(yè)班級：
學生姓名： 學 號：
指導教師： 教師職稱：
起止日期： 地 點:
附 件： 1.外文資料翻譯譯文；2.外文原文。
指導教師評語：
簽名： 年 月 日
Endshortcut menu 事件
快捷菜單出現(xiàn)后被擊活。
用法：
Object.Activate()
Object: Document 對象
對象表達式，其結果為有效的容器對象，此處必須為文檔對象（document）。
說明：
當模式對話框顯示時不會觸發(fā)任何事件。
參見：
方法，屬性和事件：
BeginShortcutMenuDefault
BeginShortcutMenuEdit
BeginShortcutMenuGrip
BeginShortcutMenuOsnap
BeginRightClick
Activex和VBA開發(fā)指導：
“使用事件”
Using Programming Languages other than VBA
例程:
Private Sub AcadDocument_Activate()
’本例演示快捷菜單事件的圖形
’當用戶關閉快捷菜單圖形時,此事件被擊活
’激活示例程序:將鼠標放在快捷菜單活動的區(qū)域上,單擊右鍵
’等待快捷菜單被打開,然后再關閉
MsgBox "您剛才激活了一個圖形！"
End Sub
Layout Switched 事件
用戶轉換一個不同的排列之后被激活
用法:
object.LayoutSwitched (Layout Name)
object: Document 對象
對象表達式，其結果為有效的容器對象，此處必須為文檔對象（document）。
說明：
當模式對話框顯示時不會觸發(fā)任何事件。
參見：
方法，屬性和事件：
WindowChanged
WindowMovedOrResized
Activex和VBA開發(fā)指導：
“使用事件”
Using Programming Languages other than VBA
例程:
Private Sub AcadDocument_LayoutSwitched (By Val Layout Name as String)
’演示排列轉換事件的圖形
’當用戶用了不同的排列時被激活
’激活示例程序:打開圖形并改變排列
’例如:轉換一個圖形從模式到排列
’排列圖表的多樣性,我們可以選擇自己需要的
MsgBox "您剛才激活了一個圖形！"
End Sub
LISPCancelled 事件
當LISP 表達的評估被取消時被激活
用法:
object.LISPCancelled ()
object:
Application 對象, Document 對象
對象表達式，其結果為有效的容器對象，此處必須為應用程序對象（application）或文檔對象（document）。
說明：
當模式對話框顯示時不會觸發(fā)任何事件。
參見：
方法，屬性和事件：
BeginLISP
EndLISP
Activex和VBA開發(fā)指導：
“使用事件”
Using Programming Languages other than VBA
例程:
Private Sub AcadDocument_LispCancelled ()
’本例演示LISP取消的圖形
'LISP表達的評估取消時被激活
’激活示例程序:操作LISP表達和取消LISP的評估在它完成之前
MsgBox "您剛才激活了一個圖形！"
End Sub
Modified 事件
當對象和集合被修改時被激活。
用法：
object. Modified (Entity)
object:
All Drawing objects, Block, Blocks, Dictionary, Dictionaries, DimStyle, DimStyles, Group, Groups, Hyperlink, Hyperlinks, Layer, Layers, Layout, Layouts, Linetype, Linetypes, ModelSpace, PaperSpace, PlotConfiguration, PlotConfigurations, RegisteredApplication, RegisteredApplications, SelectionSet, SelectionSets, TextStyle, TextStyles, UCS, UCSs, View, Views, Viewport, Viewports, XRecord
對象表達式，其結果為有效的容器對象。
說明：
當模式對話框顯示時不會觸發(fā)任何事件。
參見：
方法，屬性和事件：
ObjectAdded
ObjectErased
Activex和VBA開發(fā)指導：
“使用事件”
Using Programming Languages other than VBA
例程:
Public with Events Plane as AcadLWPolyline ' Use with Modified Event Example
Sub Example Modified ()
’在模式狀態(tài)下本例創(chuàng)造了lightweight polyline 和涉及Polyline的使用在不同的場合建立相互的修改事件
’在修改事件中本例修改新的對象，激活代碼
’修改對象激活事件
’提示：本事件代碼將要被激活
’在們移動或重新修改背景之前，線不會變?yōu)樗{色當本例的信件箱被展現(xiàn)時
MsgBox "您剛才激活了一個圖形！"
End Sub
13
EndShortcutMenu event
Triggered after the shortcut menu appears.
See Also | Example
Signature
object.EndShortcutMenu (Shortcut Menu)
Object
Document object
an object expression that evaluates to a valid container object. In this case, the only valid container is a document.
Shortcut Menu
PopupMenu object; input/output from the handler
the shortcut menu that has been displayed.
Remarks
Use this event to perform any cleanup work on the shortcut menu.
No events will be fired while a modal dialog is being displayed.
?See Also
Methods, Properties, and Events:
BeginShortcutMenuDefault
BeginShortcutMenuEdit
BeginShortcutMenuGrip
BeginShortcutMenuOsnap
BeginRightClick
ActiveX and VBA Developer's Guide:
"Use Events"
Example
Private Sub AcadDocument_EndShortcutMenu (Shortcut Menu as AutoCAD.IAcadPopupMenu)
‘This example intercepts a drawing EndShortcutMenu event.
'
‘This event is triggered when the user closes a drawing shortcut menu.
'
‘To trigger this example event: Right click the mouse in the working area of a drawing,
‘Wait for the shortcut menu to be displayed and then dismiss the shortcut menu
MsgBox "A shortcut menu was just closed!"
End Sub
LayoutSwitched event
?Triggered after the user switches to a different layout.
See Also | Example
Signature
object.LayoutSwitched (Layout Name)
Object
Document object
an object expression that evaluates to a valid container object. In this case, the only valid container is a document.
Layout Name
String; input to the handler
the name of the layout the user has switched to.
Remarks
No events will be fired while a modal dialog is being displayed.
?See Also
Methods, Properties, and Events:
WindowChanged
WindowMovedOrResized
ActiveX and VBA Developer's Guide:
"Use Events"
Example
Private Sub AcadDocument_LayoutSwitched (By Val Layout Name as String)
‘This example intercepts a drawing Layout Switched event.
'
‘This event is triggered when the user switches to a different
‘Drawing layout view.
'
‘To trigger this example event: Open a drawing and change its layout view
'
‘For example: Switch the drawing from Model view to Layout1 view
‘Use the "Layout Name" variable to determine the which layout view we changed to
MsgBox "The drawing layout was just changed to: " & Layout Name
End Sub
LISPCancelled event
Triggered when the evaluation of a LISP expression is cancelled.
See Also | Example
Signature
object.LISPCancelled ()
Object
Application object, Document object
an object expression that evaluates to a valid container object. In this case, the only valid containers are the application and a document.
Remarks
No events will be fired while a modal dialog is being displayed.
?See Also
Methods, Properties, and Events:
BeginLISP
EndLISP
ActiveX and VBA Developer's Guide:
"Use Events
Example
Private Sub AcadDocument_LispCancelled ()
‘This example intercepts a drawing Lisp Cancelled event.
'
‘This event is triggered when the evaluation of a LISP expression is cancelled.
'
‘To trigger this example event: Run a LISP expression and
‘Cancel the LISP evaluation before it finishes
MsgBox "A LISP evaluation was just cancelled."
End Sub
Modified event
?Triggered when an object or collection in the drawing has been modified.
See Also | Example
Signature
Object. Modified (Entity)
Object
All Drawing objects, Block, Blocks, Dictionary, Dictionaries, DimStyle, DimStyles, Group, Groups, Hyperlink, Hyperlinks, Layer, Layers, Layout, Layouts, Linetype, Linetypes, ModelSpace, PaperSpace, PlotConfiguration, PlotConfigurations, RegisteredApplication, RegisteredApplications, SelectionSet, SelectionSets, TextStyle, TextStyles, UCS, UCSs, View, Views, Viewport, Viewports, XRecord
An object expression that evaluates to a valid container object.
Entity
A Drawing Object
The object in the drawing that is modified can be any one of the drawing objects.
Remarks
This event will be triggered whenever the object is modified. Modification includes whenever the value of a property is set, even if the new value is equal to the current value.
When coding in VBA, you must provide an event handler for all objects enabled for the Modified event. If you do not provide a handler, VBA may terminate unexpectedly.
No events will be fired while a modal dialog is being displayed.
?
See Also
Methods, Properties, and Events:
ObjectAdded
ObjectErased
ActiveX and VBA Developer's Guide:
"Use Events"
Example
Public with Events Plane as AcadLWPolyline ' Use with Modified Event Example
Sub Example Modified ()
‘This example creates a lightweight plotline in model space and
‘References the Plotline using the public variable (Plane) which
‘Is set up to intercept Modified events.
'
‘This example then modifies the new object, triggering the code
‘In the Modified event.
Dim points (0 To 9) As Double
‘Define the 2D plotline points
Points (0) = 1: points (1) = 1
Points (2) = 1: points (3) = 2
Points (4) = 2: points (5) = 2
Points (6) = 3: points (7) = 2
Points (8) = 4: points (9) = 4
‘Create a lightweight Plotline object in model space
'
‘* Note: We are returning the new Plotline object into a Module
‘Level variable. This allows us to intercept events associated
‘With that particular object.
Set Plane = ThisDrawing.ModelSpace.AddLightWeightPolyline (points)
ThisDrawing.Application.ZoomAll
‘Modify object to trigger event.
'
‘* Note: The event code for the Plotline modification will be triggered
‘Before we move forward and refresh the view, so the line will not
‘Appear blue when the event message box is displayed.
Dim color As AcadAcCmColor
Set color = AcadApplication.GetInterfaceObject ("AutoCAD.AcCmColor.16")
Call color.SetRGB (80, 100, and 244)
PLine.TrueColor = color
ThisDrawing.Regen acAllViewports
End Sub
Private Sub PLine_Modified (ByVal pObject As AutoCAD.IAcadObject)
‘This example intercepts an object's Modified event.
'
‘This event is triggered when an object supporting this event is modified.
'
‘To trigger this code: Modify an object connected to this event
‘* Note: By connected, we mean the object set up to intercept events using
‘The VBA with Events statement
‘Use the "object" variable to determine which object was modified
Skybox "You just modified an object with an ID of: " & pObject.ObjectID
End Sub