摘要： Sub CreateMyVirtualCurve() '##利用虚拟图形创建形状 Dim s As Shape, crv As Curve Dim x As Double, y As Double Dim arrPoints(9, 1) As Double arrPoints(0, 0) = 162 阅读全文

摘要： Sub BreakApartNode() '##断开节点 随机填充颜色 Dim s As Shape, sr As ShapeRange, sp As SubPath, nr As NodeRange Set sr = ActivePage.Shapes.FindShapes() Dim srBro 阅读全文

摘要： Sub ZoomToNodes() '##缩放到选定节点 Dim nr As NodeRange Dim x As Double, y As Double, w As Double, h As Double Set nr = ActiveShape.Curve.Selection nr.GetBou 阅读全文