选择集

ningyong58

在VBA中，要将选中的一个实体，handle = "87"

Sub ls()
  ThisDrawing.SendCommand "CopyClip" & vbCr & "(handent " & Chr(34) & "87" & Chr(34) & ")" & vbCr
 
End Sub

请教LISP的各位大侠

handent 只能是一个实体，目标需求是将VBA中的选择集SSET在这个例子中，用什么函数代替handent

ningyong58

在网上找了一下，是将N个handent连接起来．

如果是这样哪就太麻烦了．

Public Function axSset2lspEnts(ByVal sSet As AcadSelectionSet) As String
  Dim enthandle As String
  Dim strEnts As String
  Dim i As Integer
  If sSet.count = 0 Then Exit Function
  enthandle = sSet.Item(0).Handle
  strEnts = "(handent" & Chr(34) & enthandle & Chr(34) & ")"
  If sSet.count > 1 Then
     For i = 1 To sSet.count - 1
         enthandle = sSet.Item(i).Handle
         strEnts = strEnts & vbCr & "(handent" & Chr(34) & enthandle & Chr(34) & ")"
     Next i
  End If
  axSset2lspEnts = strEnts
End Function