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

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

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

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

不行。先赋给变量后再加。

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

能不能说详细一点呀

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

首先请不要重复发贴。
对象模型要看清楚，里面也有例子参考。
对于PickfirstSelectionSet它只是个属性，怎么能把它做为对象呢？

copy


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

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

发表回复

精选推荐