社区 › VB › Matt W最喜欢的OSMODE程序在哪里？

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

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

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

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

还是这个
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

bybyby 发表于 2008-9-29 13:04:05

是的！谢谢你，马特！

mjfarrell 发表于 2008-9-29 13:05:13

是的！谢谢马特！

：kewl：

Matt__W 发表于 2008-10-31 23:32:26

如何使用它？？当我加载FloatingOSnaps.dvb时，它告诉我有error.it说merroy覆盖！！！

查看完整版本: Matt W最喜欢的OSMODE程序在哪里？