|
Set objLine = objAcadEntity
Ct = ThisDrawing.Utility.PolarPoint(objLine.StartPoint, objLine.Angle, objLine.Length / 2)
Set oline = ThisDrawing.ModelSpace.AddLine(objLine.StartPoint,objLine.EndPoint)
m=2
s=0.5
ofs = 20 - m + s
bb = oline.Offset(ofs)
在user点选一条直线,绘制相同线,取线段中点偏移一定距离...
但是为何偏移的线段会有时偏往线(oline)的上方,又有时偏向线(oline)的下方??
是什么原因呢??弧度吗??还是有一定的规则?? |
|