分解Dims

Maverick® · 发表于 2007-6-7 13:05:09

大家好，我是新来的论坛，我已经涉足VBA，到目前为止，我不是专家
我想找出一种分解维度的方法&nbsp；如有任何建议，我们将不胜感激
谢谢，丹

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

Maverick® · 发表于 2007-6-7 13:20:14

来自AutoCAD Bible…&039
你永远不能破坏维度
&039
无论如何……我不&#039；我不相信它可以用VBA编程
说到爆炸尺寸。。。。。http://www.penwill.com/cadgall07.html

Maverick® · 发表于 2007-6-7 13:28:50

你可以用这个，但它&#039；这是一种黑客……

copy

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

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

可以使用过滤器选择所有维度对象，然后使用；sendcommand“；方法唐#039；我没有时间编码，只是一个想法。

Maverick® · 发表于 2007-6-7 15:49:57

是的，但在这种情况下，我只希望分解几个特定的DIM
我的研究确实发现了一条线索，但这个网站不见了：&gt；检查Randall Rath和#039；网站[www.vbdesign.net]并进行搜索。它是；可以通过编程方式分解它们，而不是作为维度
&gt；毕竟，尺寸只是未命名的块。Randall#039；的文章将；解释一下，但如果我没记错的话，一个维度#039；s手柄是一个数字；小于其块名称。无论如何，看看他的网站
谢谢，丹