我看到有的二次开发的程序可以将两个物体帮到一起，这是怎么实现的啊？？

esri

我所知道的CAD线型是一种有规律的符号线，线上的符号不能准确的落到这条线的VERTEX上。我看到有一种方法是将符号和母线组合起来，无论是选择符号还是选择母线都能将这两个（或者更多）要素一同选中，选中的要素在特征栏里看是一组要素，而且每个要素都有自己的特征信息，请问各位高手这种方法是怎样实现的啊？？


除了这个方法外还有什么方法可以将线型里的符号定位到VERTEX上？



再此谢过！！

esri

没有人知道方法吗？

zeng29

这是组合的功能,在VBA中可以试试sendcommand的方法(-group).

esri

好的，让我试一试！

thankyou

把符号定义成属性放到顶点上再生成块就可以了。

leer

给个vba的函数，用了匿名group，好用 '将选定的对象组合
Sub ag()
On Error Resume Next
Dim SelObjects As AcadSelectionSet
Set SelObjects = GetSelSet
Dim UnNameGroup As AcadGroup
'On Error Resume Next
Set UnNameGroup = ThisDrawing.Groups.Add("*")
ReDim appendObjs(0 To SelObjects.count - 1) As AcadEntity
Dim i As Integer
For i = 0 To SelObjects.count - 1
Set appendObjs(i) = SelObjects.Item(i)
Next

UnNameGroup.AppendItems appendObjs
SelObjects.Delete
End Sub '将选定的组合分解开
'由于不能通过选定的对象来直接找到其组合名称，只能通过循环比较对象ID的方法
'来解决这个问题，运行时可能会慢点，但对象不多的情况下应该没问题
Sub Dg() Dim SelGroup As AcadGroup
Dim SelObjects As AcadSelectionSet
Set SelObjects = GetSelSet
Dim ObjInSelSet As AcadObject
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim ObjInGroup As AcadObject
On Error Resume Next
For i = 0 To SelObjects.count - 1
Set ObjInSelSet = SelObjects.Item(i)
For j = 0 To ThisDrawing.Groups.count - 1
For k = 0 To ThisDrawing.Groups.Item(j).count - 1
Set ObjInGroup = ThisDrawing.Groups.Item(j).Item(k)
If ObjInGroup.ObjectID = ObjInSelSet.ObjectID Then
ThisDrawing.Groups.Item(j).Delete
Exit For
End If
Next
Next
Next
SelObjects.Delete
End Sub '对象选择函数
Function GetSelSet() As AcadSelectionSet
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.PickfirstSelectionSet
On Error Resume Next
If ss.count = 0 Then
Dim ssName As String
ssName = "str1SSet"
On Error Resume Next
Set ss = ThisDrawing.SelectionSets(ssName)
If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)
ss.Clear
ss.SelectOnScreen
End If
Set GetSelSet = ss
End Function