我们在做最强大的免费标注插件，有人想加入吗

A-Ming

是更新了吗，这个比之前的界面好看很多

A-Ming

这个去那里下载，去之前帖子上面，还是这之前的没有更新的

landboy

A-Ming 发表于 2024-5-22 15:46
这个去那里下载，去之前帖子上面，还是这之前的没有更新的

这个是群友魔改的，当然我的版本 也加上了这个 玩具功能

A-Ming

landboy 发表于 2024-5-22 15:55
这个是群友魔改的，当然我的版本 也加上了这个 玩具功能

我的也改好了，哈哈

landboy

A-Ming 发表于 2024-5-22 16:01
我的也改好了，哈哈

我缩成3个按钮保留了完整功能



专业用法， 左右键 ctrl alt shift 配合
有这几个，大多数都可以标注了
中间 这个 shift 按住，选择标注线
alt 选文字
ctrl 是删除标注

A-Ming

大佬，删除标注这功能 我复制直接你网站上面的代码，不成功的   '// 标注线 选择文字 删除等
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

zryzry2

在哪里下载，谢谢！

landboy

A-Ming 发表于 2024-5-25 17:14
大佬，删除标注这功能 我复制直接你网站上面的代码，不成功的   '// 标注线 选择文字 删除等
Public Func ...

这个函数有 4-5 种功能，使用传入一个 数字判断
你查看这个代码，每个数字表示不同的功能

1. '// 选择标注线 选择文字 删除或者解绑标准线
   
2. Private Sub SelectText_Click()
   
3.   ModulePlus.Dimension_Select_or_Delete 4
   
4. End Sub
   
5. Private Sub SelectLine_Click()
   
6.   ModulePlus.Dimension_Select_or_Delete 1
   
7. End Sub
   
8. Private Sub Delete_Dimension_Click()
   
9.   ModulePlus.Dimension_Select_or_Delete 2
   
10. End Sub
    
11. Private Sub bt_Untie_MarkLines_Click()
    
12.   ModulePlus.Untie_MarkLines
    
13. End Sub

复制代码