【最新MSCE VBA培训资料（含录像）】
链接：https://pan.baidu.com/s/1fjy4YTkGFPwhYvQACEmMBQ 提取码：yo6d
【老版MSV8XM VBA培训视频（含视频中涉及的例子源代码）】
链接： https://pan.baidu.com/s/15QThniAu8bFNdtDTFn__qg 提取码：50lr
MultiScaleCopy.mvba中需要修改一下代码如下：
For i = 1 To CInt(.txtCopies.Text) - 1
Set newEl = ActiveModelReference.CopyElement(el)
newEl.Move offsetPnt
newEl.Rewrite
orgPnt.X = (newEl.Range.High.X + newEl.Range.Low.X) / 2#
orgPnt.Y = (newEl.Range.High.Y + newEl.Range.Low.Y) / 2#
orgPnt.Z = (newEl.Range.High.Z + newEl.Range.Low.Z) / 2#
newEl.ScaleAll orgPnt, dScale, dScale, dScale
Set el = newEl.Clone
Next