用户登陆
站点日历
站点统计
最新评论
GetTransformedCopy 克隆复制PL线的时候，线宽变为0？ [ 日期：2015-08-18 ] [ 来自： ' 复制
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)'复制并移动PL线的时候，会出现线宽变为0的现象。
Dim Copy As Entity = ent.Clone
Copy.TransformBy(mt)
AddEnt(Copy)
Return Copy.ObjectId
End Function
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)'复制并移动PL线的时候，会出现线宽变为0的现象。
Dim Copy As Entity = ent.Clone
Copy.TransformBy(mt)
AddEnt(Copy)
Return Copy.ObjectId
End Function
[本日志由 tiancao1001 于 2015-08-23 03:28 PM 编辑]
|
|
暂时没有评论
| 发表评论 - 不要忘了输入验证码哦！ |