多段线提取点坐标-CAD-vba

PrivateSubGetLWPOLYLINECoordinates()Dimss_dimAsAcadSelectionSet,entAsAcadLWPolylineDimdxf_code()AsInteger,dxf_value()AsVariantDimiAsLong,jAsLongDimdbCorAsVariant,xAsDouble,yAsDouble,zAsDoubleSetss_dim=ThisDrawing.SelectionSets.Add(ssLine1)ReDimdxf_code(0),dxf_value(0)dxf_code(0)=0:dxf_value(0)=LWPOLYLINEss_dim.SelectacSelectionSetAll,,,dxf_code,dxf_valueOpend:\¶à¶ÎÏßÌáÈ¡µã.txtForAppendAs#1ForEachentInss_dimForj=0ToUBound(ent.Coordinates)\2x=ent.Coordinates(j*2)y=ent.Coordinates(j*2+1)Print#1,X&x&,Y&yNextNextClose#1ss_dim.Clearss_dim.DeleteEndSub