' 复制
    Function EntCopy(ByVal ent As Entity, ByVal sourcePt As Point3d, ByVal targetPt As Point3d) As ObjectId
        Dim mt As Matrix3d = Matrix3d.Displacement(targetPt - sourcePt)
        'Dim Copy As Entity = ent.GetTransformedCopy(mt)
        Dim Copy As Entity = ent.Clone
        Copy.TransformBy(mt)
        AddEnt(Copy)
        Return Copy.ObjectId
    End Function

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：1*4=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情