MTC 发表于 2020-3-7 11:35:30

求救：关于选择集中AddItems加入已经绘制的图形错误

本帖最后由 MTC 于 2020-3-7 11:40 编辑

'创建临时的选择集用户保存显示范围的画叉和数字编号
      Dim SSetOfShow As Object
      Dim pandan As Boolean
      For Each SSetOfShow In objDoc.SelectionSets
            If SSetOfShow.Name = "SSetName" Then
                pandan = True
                Exit For
            End If
      Next
      '判断选择集是否存在
      If pandan Then
            SSetOfShow.Delete                                       '创建集合，如集存在，则删除，新建
      End If
      SSetOfShow = objDoc.SelectionSets.Add("SSetName")      '新建选择集
      errTest = True
      '下面的代码在模型空间的每个图
      Dim objEntity(0) As Object
      Dim pt1 As Object
      Dim pt2 As Object
      Dim pt3(2) As Double
      Dim pt4(2) As Double
      Dim ptCen(2) As Double
      Dim i As Integer
      Dim mx As Integer = 0

      For i = 0 To UBound(ptMin)
            pt1 = ptMin(i) : pt2 = ptMax(i)
            pt3(0) = pt1(0) : pt3(1) = pt2(1) : pt3(2) = 0
            pt4(0) = pt2(0) : pt4(1) = pt1(1) : pt4(2) = 0
            ptCen(0) = (pt1(0) + pt2(0)) / 2 : ptCen(1) = (pt1(1) + pt2(1)) / 2 : ptCen(2) = (pt1(2) + pt2(2)) / 2
            objEntity(0) = objDoc.ModelSpace.AddLine(pt1, pt2)
            objEntity(0).Color = 1
            objEntity(0).Update

<font color="#ff0000">            SSetOfShow.AddItems(objEntity)执行到这里时出错</font>
            objEntity(0) = objDoc.ModelSpace.AddLine(pt3, pt4)
            objEntity(0).Color = 1
            objEntity(0).Update
<font color="#ff0000">            ' SSetOfShow.AddItems(objEntity)</font>
            objEntity(0) = objDoc.ModelSpace.AddText(CStr(mx), ptCen, SSetOfShow.Item(SSetOfShow.Count - 1).Length / 5)
            objEntity(0).Color = 1
            objEntity(0).Update
<font color="#ff0000">            'SSetOfShow.AddItems(objEntity)</font>
            mx = mx + 1
      Next i每次直行到SSetOfShow.AddItems(objEntity)时候出错，错误信息是System.ArgumentException:“参数 pSelSet (位于 AddItems 中) 无效”
求指点一下，

MTC 发表于 2020-3-7 16:48:35

换了个思路，解决了

MTC 发表于 2022-7-28 22:07:19

    For i = 0 To UBound(ptMin)
      pt1 = ptMin(i): pt2 = ptMax(i)
      pt3(0) = pt1(0): pt3(1) = pt2(1): pt3(2) = 0
      pt4(0) = pt2(0): pt4(1) = pt1(1): pt4(2) = 0
      ptCen(0) = (pt1(0) + pt2(0)) / 2: ptCen(1) = (pt1(1) + pt2(1)) / 2: ptCen(2) = (pt1(2) + pt2(2)) / 2
      Set objEntity(0) = objDoc.modelspace.AddLine(pt1, pt2)
            objEntity(0).color = 1
            objEntity(0).Update
      SSetOfShow.AddItems objEntity
      Set objEntity(0) = objDoc.modelspace.AddLine(pt3, pt4)
            objEntity(0).color = 1
            objEntity(0).Update
      SSetOfShow.AddItems objEntity
      Set objEntity(0) = objDoc.modelspace.AddText(CStr(mx), ptCen, SSetOfShow.Item(SSetOfShow.Count - 1).Length / 5)
            objEntity(0).color = 1
            objEntity(0).styleName = "Standard" '设置标准字体样式
            objEntity(0).Update
      SSetOfShow.AddItems objEntity
      mx = mx + 1
    Next i
主要原因还是CAD没有用户管理权限

chixun99 发表于 2022-7-29 14:30:54

注意那个objEntity参数是需要一个数组。
页: [1]
查看完整版本: 求救：关于选择集中AddItems加入已经绘制的图形错误