zxfzxf 发表于 2005-9-9 09:29:00

求助：PickfirstSelectionSet.AddItems为什么无效？？

<P>求助：PickfirstSelectionSet.AddItems为什么无效？？</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 是不是只能通过鼠标才可以添加对象，而使用additems无效？？</P>

mccad 发表于 2005-9-9 21:55:00

<P>不行。先赋给变量后再加。</P>

zxfzxf 发表于 2005-9-10 07:39:00

能不能说详细一点呀

mccad 发表于 2005-9-10 20:35:00

首先请不要重复发贴。
对象模型要看清楚，里面也有例子参考。
对于PickfirstSelectionSet它只是个属性，怎么能把它做为对象呢？
Sub Example_PickfirstSelectionSet()
    ' 本示例列出了先选定的选择集中的所有对象。
    ' 在运行本示例前，请先在图形中创建一些对象，并选定这些对象。
            
    Dim pfSS As AcadSelectionSet
    Dim ssobject As AcadEntity
    Dim msg As String
    msg = vbCrLf
   
    Set pfSS = ThisDrawing.PickfirstSelectionSet
    For Each ssobject In pfSS
      msg = msg & vbCrLf & ssobject.ObjectName
    Next ssobject
    MsgBox "选定的对象包含有: " & msg
   
End Sub
页: [1]
查看完整版本: 求助：PickfirstSelectionSet.AddItems为什么无效？？