wangyancai 发表于 2005-6-8 00:14:00

急求高手指点[VBA]

Sub lengthenline()<BR>Dim lineobj As AcadLine<BR>Dim p1(0 To 2) As Double<BR>Dim p2(0 To 2) As Double<BR>p1(0) = 50: p1(1) = 50: p1(2) = 0<BR>p2(0) = 60: p2(1) = 60: p2(2) = 0<BR>setlineobj1 = ThisDrawing.ModelSpace.AddLine(p1, p2)<BR>lineobj1.Update<BR>Dim p3(0 To 2) As Double<BR>Dim p4(0 To 2) As Double<BR>p3(0) = 40: p3(1) = 80: p3(2) = 0<BR>p4(0) = 100: p4(1) = 80: p4(2) = 0<BR>Set lineobj2 = ThisDrawing.ModelSpace.AddLine(p3, p4)<BR>lineobj1.EndPoint = lineobj2<BR>lineobj1.Update


End Sub<BR>

houlinbo 发表于 2005-6-15 11:10:00

你想要实现什么？
页: [1]
查看完整版本: 急求高手指点[VBA]