Matt W最喜欢的OSMODE程序在哪里？

FengK · 发表于 2008-9-27 17:28:56

你好，
我记得Matt W前阵子贴了一个vba程序，用于设置用户最喜欢的osmode。到处都找不到。我可能没有使用正确的关键字进行搜索。有人知道吗？
谢谢。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

mjfarrell · 发表于 2008-9-28 08:08:10

会不会是这个题目:

FengK · 发表于 2008-9-29 01:29:03

我有一个启动宏，它查看登录名并基于登录名进行设置。我可以明天下班后发邮件

FengK · 发表于 2008-9-29 02:54:37

谢谢你，迈克尔。它是由Matt W编写的，是VBA语言。我下载并使用了它，但文件丢失了。马特一定知道我在说什么如果他看到这条线。

Matt__W · 发表于 2008-9-29 02:54:53

谢谢！

FengK · 发表于 2008-9-29 08:23:08

这个

Matt__W · 发表于 2008-9-29 10:32:46

还是这个

copy

Public Sub AcadStartup()
      Dim Preferences As AcadPreferences, intOsmode As Integer
      Set Preferences = ThisDrawing.Application.Preferences
      Dim strUser As String
      strUser = UCase(Environ("USERNAME"))
      Select Case strUser
      Case "UA02038"
            intOsmode = 71
            ThisDrawing.SetVariable "ORTHOMODE", 1
      Case "UA00648"
            intOsmode = 167
            ThisDrawing.SetVariable "ORTHOMODE", 1
      Case "UA03347"
            intOsmode = 19
      Case Else
            intOsmode = 7
      End Select
      If intOsmode = 0 Then
            ThisDrawing.SetVariable "osmode", 3
      Else
            ThisDrawing.SetVariable "osmode", intOsmode
      End If
      Application.Preferences.User.ADCInsertUnitsDefaultSource = acInsertUnitsInches
      Application.Preferences.User.ADCInsertUnitsDefaultTarget = acInsertUnitsInches
      ThisDrawing.SetVariable "OSNAPZ", 1
End Sub