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

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

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

您好，我记得Matt W不久前发布了一个vba程序，用于设置用户&#039；s最喜欢的osmode。到处都找不到。我可能没有&#039；t使用正确的关键字进行搜索。有人知道吗
谢谢。

Matt__W 发表于 2008-9-28 08:08:10

可能是这个话题：

Matt__W 发表于 2008-9-29 01:29:03

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

Matt__W 发表于 2008-9-29 02:54:37

谢谢迈克尔。它是由马特W写的，在VBA中。我下载并使用了它，但文件丢了。马特一定知道我&#039；我说的是，如果他看到这条线。

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

谢谢！

Matt__W 发表于 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

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

是的！谢谢Matt！

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

是的！谢谢Matt
以下内容：kewl：

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

如何使用它？？当我加载浮动快照时。dvb，它告诉我有一个错误。上面说的是merroy叠加！！！

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