如题。有大神提示用 app.RunScript("-_Layer _Delete ""Layer 02"" _Enter") 这个尝试。我不懂用vb驱动rhino干活,求助!
以下是网上找到的代码:(我不知道怎么使用)
If( Not Open ) Then
ids_tree = m_ids_tree
Return
End If
If Open Then
app.RunScript("-_import " & sFileName & " _Enter")
app.RunScript("-_SelNone ")
app.RunScript("-_SelLayer " & ???????(select certain layers by name)??????????? & " _Enter")
app.RunScript("_delete")
End If
上面的代码中,这句 “app.RunScript("_delete")” 是有问题的,好像是要改为:app.RunScript("-_Layer _Delete ""Layer 02"" _Enter")
坐等求解! 盼望 Jessesn 版大帮助,万分感谢! |