是更新了吗，这个比之前的界面好看很多
这个去那里下载，去之前帖子上面，还是这之前的没有更新的
A-Ming 发表于 2024-5-22 15:46
这个去那里下载，去之前帖子上面，还是这之前的没有更新的
这个是群友魔改的，当然我的版本 也加上了这个 玩具功能
landboy 发表于 2024-5-22 15:55
这个是群友魔改的，当然我的版本 也加上了这个 玩具功能
我的也改好了，哈哈:P
A-Ming 发表于 2024-5-22 16:01
我的也改好了，哈哈
我缩成3个按钮保留了完整功能
专业用法， 左右键 ctrl alt shift 配合
有这几个，大多数都可以标注了
中间 这个 shift 按住，选择标注线
alt 选文字
ctrl 是删除标注
本帖最后由 A-Ming 于 2024-5-25 17:18 编辑
大佬，删除标注这功能 我复制直接你网站上面的代码，不成功的:) '// 标注线 选择文字 删除等
Public Function Dimension_Select_or_Delete(Shift As Long)
On Error GoTo ErrorHandler: API.BeginOpt
Dim os As ShapeRange, sr As ShapeRange, s As Shape
Set doc = ActiveDocument
Set sr = ActiveSelectionRange
sr.RemoveAll
If Shift = 4 Then
Set os = ActiveSelectionRange
For Each s In os.Shapes
If s.Type = cdrTextShape Then sr.Add s
Next s
sr.CreateSelection
ElseIf Shift = 1 Then
Set os = ActiveSelectionRange
For Each s In os.Shapes
If s.Type = cdrLinearDimensionShape Then sr.Add s
Next s
sr.CreateSelection
ElseIf Shift = 2 Then
Set os = ActiveSelectionRange
For Each s In os.Shapes
If s.Type = cdrLinearDimensionShape Then sr.Add s
Next s
sr.Delete
If os.Count > 0 Then
os.Shapes.FindShapes(Query:="@name ='DMKLine'").CreateSelection
ActiveSelectionRange.Delete
End If
End If
在哪里下载，谢谢！
A-Ming 发表于 2024-5-25 17:14
大佬，删除标注这功能 我复制直接你网站上面的代码，不成功的 '// 标注线 选择文字 删除等
Public Func ...
这个函数有 4-5 种功能，使用传入一个 数字判断
你查看这个代码，每个数字表示不同的功能
'// 选择标注线 选择文字 删除或者解绑标准线
Private Sub SelectText_Click()
ModulePlus.Dimension_Select_or_Delete 4
End Sub
Private Sub SelectLine_Click()
ModulePlus.Dimension_Select_or_Delete 1
End Sub
Private Sub Delete_Dimension_Click()
ModulePlus.Dimension_Select_or_Delete 2
End Sub
Private Sub bt_Untie_MarkLines_Click()
ModulePlus.Untie_MarkLines
End Sub
你好，怎么获得呀
这个看起来很强大，需要什么样的技术才能加入