对于
每个ACSSObject作为acSSet中的SelectedObject
如果不是IsDBNull(acSSObj),则
Dim acEnt As Entity=acTrans。GetObject(acSSObj.ObjectId,OpenMode.ForRead)
如果acEnt的类型是BlockReference,那么
Dim oBr As BlockReference=CType(acEnt,BlockReference)
“我需要列出块内多段线的所有顶点!!!
如果结束
如果结束
下一个
你能帮助我吗?
谢谢
马尔西奥