社区 › VB › 爆炸迪姆斯

Dan 发表于 2007-6-7 13:05:09

爆炸迪姆斯

大家好，我是这个论坛的新手，我涉足过VBA，到目前为止我还不是专家
我正在尝试找出一种分解维度的方法。如有任何建议，我们将不胜感激。
谢谢，
丹
Sub ExplodeDim()
Dim sstext As AcadSelectionSet
Dim blk As AcadBlockReference
Dim oEnt As AcadEntity
Dim FilterType(1) As Integer
Dim FilterData(1) As Variant
    On Error Resume Next
    ThisDrawing.SelectionSets.Item("XDim").Delete
    Set sstext = ThisDrawing.SelectionSets.Add("XDim")
    FilterType(0) = 67
    FilterData(0) = 0
    FilterType(1) = 0
    FilterData(1) = "Dimension"
    sstext.Select acSelectionSetAll, , , FilterType, FilterData
   
    For Each oEnt In sstext
      If TypeOf oEnt Is AcadDimAligned Then
            If oEnt.TextColor = 5 And oEnt.TextOverride" " And oEnt.TextOverride"" Then
                  'Explode Dim here
            End If
      End If
    Next
End Sub
**** Hidden Message *****

deegeecees 发表于 2007-6-7 13:20:14

你可以用这个，但它有点像黑客...
Public Sub Main()
    Dim objDim As AcadDimension
    Dim varPickPoint As Variant
    Dim PickPoint As String
   
    ThisDrawing.Utility.GetEntity objDim, varPickPoint, "Pick a dimension to explode..."
    PickPoint = varPickPoint(0) & "," & varPickPoint(1) & "," & varPickPoint(2)
   
    ThisDrawing.SendCommand "EXPLODE " & PickPoint & vbCrLf
End Sub

Dan 发表于 2007-6-7 13:28:50

抱歉，丹。只是提到了RR。我们这里有些人和他有一点历史。他用松鼠作为他的化身。完全跑题了，我只是有一段时间没看到他的名字了。

Maverick® 发表于 2007-6-7 13:32:57

现在这是有道理的。谢谢！

Dan 发表于 2007-6-7 15:49:57

他让你骑过他的骆驼吗？??

deegeecees 发表于 2007-6-7 16:14:15

他有没有让你骑他的骆驼??!?

哇哇哇哇这有点...
的。。。
我想我现在就在路上

Maverick® 发表于 2007-6-7 16:19:30

他有没有让你骑他的骆驼
哇，哇，哇…这有点…
呃…
，我想我现在就要上路了。
他甚至给它起了个绰号叫……神奇骆驼拉尔夫。是啊！

Dan 发表于 2007-6-7 16:20:22

情况变得更糟。
拉尔夫是他的儿子。 如果他们要相信的话。

Maverick® 发表于 2007-6-7 16:31:20

哇，真是一个开场白。这是我来这里的第一天，我想我打开了一扇我完全没有意识到的门。
我想要的只是爆炸一个昏暗，哈哈...
感谢您的欢迎...

查看完整版本: 爆炸迪姆斯