懒猫窝窝

Option Explicit Function TotLen(oSset As AcadSelectionSet) As Double Dim oEnt As AcadEntity For Each oEnt In oSset     If TypeOf oEnt Is AcadPolyline Or _    &nbs...