试着去掉括号,这不是lisp<pre>- Dim layerfilters As AcadDictionary
- Set layerfilters = ThisDrawing.Layers.GetExtensionDictionary.Item("ACAD_LAYERFILTERS")
- For Each entry In layerfilters
- TreeView1.Nodes.Add new treenode, entry.name, entry.name, , ,
- Next
我很久没有做树视图了,也没有看这个,只是注意到了。括号的规则是,即使intellisense显示它们,也在等号的右边,是,否则为否。
因此,设置SomeThing=TreeView1.Nodes。添加(新treenode、entry.name、entry.name、、)
或
树视图1.Nodes。添加新的treenode,条目。名称,条目。名称,
不是
树视图1.Nodes。添加(新树节点,entry.name,entry.name,,)
hi-tee-hoe |