【最新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