los_su 发表于 2005-12-12 15:05:00

求助!!着急啊~~

dim a1 as acadline ,a2 as acadlin
a1.offset(100)也相当于acadline
如何让a2=a1.offset(100)??
就是如何让a1偏移出来的这条线覆值给a2??????
请教高手指导!!!!

MJTD_7777 发表于 2005-12-12 16:28:00

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 发表于 2005-12-12 17:10:00

也可:
DimLine1 , Line2 ,OFF
OFF=Line1.Offset (100)
SetLine2 = OFF(0)


tnt1095 发表于 2005-12-12 17:19:00

一条直线把平面分为2个部分，不同部分的点带入直线要么>0,要么

los_su 发表于 2005-12-12 19:40:00

谢谢大家,不过2楼的方法最简单,我也试验了,可以用~~可是我看不懂~~~off(0)是啥意思??
再次请教~
页: [1]
查看完整版本: 求助!!着急啊~~