[code]Private Sub-CheckPolylineWidth（）Dim pl1 As AcadPolylineDim pl2 As AcadPolylineDim pt1 As VariantDim pt2 As VariantDim Dist As Double'将“OSMODE”变量设置为PerpedicularThisDrawing。SerVariable“osmode，128”'选择2条多段线。此图纸。公用事业GetEntity pl1，pt1，“选择第一条线。”pl2=本图纸。公用事业GetEntity pl1，pt2，“拾取第二条多段线以检测道路宽度。”通过绘制一条直线来检查两点之间的距离，然后将lineDim ln的长度作为AcadLineDim wd作为DoubleSet ln=ThisDrawing。模型空间。AddLine（pt1，pt2）wd=ln。长度（wd 10和wd
快速尝试修复VBA代码：
私有子检查polylinewidth（）Dim pl1 As Object Dim pl2 As Object Dim pt1 As Variant Dim pt2 As Variant Dim Dist As Double Dim lyrs As AcadLayers’将“OSMODE”变量设置为每个图形。SetVariable“osmode”，128如果Err 0，则Err。清除MsgBox“程序已结束。”，如果“选择2条多段线”，则“缺少第一条多段线”退出子端。重试：此绘图。公用事业GetEntity pl1，pt1，“选择第一条线。”此图纸。公用事业GetEntity pl2，pt2，“拾取第二条多段线以检测道路宽度”层=阵列（“StreetRoad”、“SecondaryRoad”、“MinorRoad”、“MajorRoad”），用于此图形层中的每个项目。层。添加（Item）Next“通过绘制一条线来检查两点之间的距离，然后获得线的长度Dim ln作为AcadLine Dim wd作为Double Set ln=ThisDrawing。模型空间。AddLine（pt1，pt2）wd=ln。长度If（wd 10和wd
置顶卡
