VB.NET
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Interop
<CommandMethod("PrefsSetCursor")> _
Public Sub PrefsSetCursor()
'' This example sets the crosshairs of the AutoCAD drawing cursor
'' to full screen.
'' Access the Preferences object
Dim acPrefComObj As AcadPreferences = Application.Preferences
'' Use the CursorSize property to set the size of the crosshairs
acPrefComObj.Display.CursorSize = 100
End Sub
|
暂时没有评论
发表评论 - 不要忘了输入验证码哦! |