摘要: Sub 测量曲线长度()Dim s As ShapeSet s = ActiveSelection.Shapes(1)If s.Type = cdrCurveShape Then MsgBox "该曲线长度为: " & vbCrLf & (s.Curve.Length * 25.4) & " " & 阅读全文
posted @ 2017-01-27 12:43 存心影子 阅读(3638) 评论(0) 推荐(0) 编辑