摘要： Sub CreateSign() '##创建圆角矩形轮廓 Dim s As Shape Dim sFirstContour As Shape, sSecondContour As Shape Dim srContours As New ShapeRange ActiveDocument.Unit = 阅读全文

摘要： Sub CreateContour() '##创建并提取轮廓 Dim rect As Shape Dim cSr As ShapeRange Set rect = ActiveShape ActiveDocument.Unit = 3 Set e = rect.CreateContour(cdrCo 阅读全文

摘要： Sub mCreateBSpline() '##创建B样条 ' Recorded 2021/8/21 星期六 Dim bs As BSpline Dim sh As Shape Dim Kg As Boolean Set sh = ActiveShape Set bs = ActiveDocumen 阅读全文