求助!!着急啊~~

los_su

dim a1 as acadline ,a2 as acadlin

a1.offset(100)也相当于acadline

如何让a2=a1.offset(100)??

就是如何让a1偏移出来的这条线覆值给a2??????

请教高手指导!!!!

MJTD_7777

Sub main()
Dim Line As AcadLine
Set Line = ThisDrawing.ModelSpace.Item(0)
Line.Offset 100
Dim Line2 As AcadLine
Set Line2 = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
End Sub

wyj7485

也可:

Dim  Line1 , Line2 ,OFF

OFF=Line1.Offset (100)

Set  Line2 = OFF(0)

 

tnt1095

一条直线把平面分为2个部分，不同部分的点带入直线要么>0,要么<0,直线上的点带如直线=0，这就可以判断出你向什么方向偏移了

los_su

谢谢大家,不过2楼的方法最简单,我也试验了,可以用~~可是我看不懂~~~off(0)是啥意思??

再次请教~