琴心剑 发表于 2005-5-16 22:09:00

下载看看

虚心求教 发表于 2005-5-18 17:43:00

感谢你呀！

jackxh 发表于 2005-5-21 09:27:00

多谢版主的提供

august 发表于 2005-5-25 01:59:00

不错，向喜欢共享的同志致敬！

z43237 发表于 2005-5-25 13:17:00

ok!!!!

maji_1979 发表于 2005-5-25 13:51:00

谢谢

konglq 发表于 2005-5-25 16:03:00

非常感谢

WYP32123 发表于 2005-6-7 23:39:00

谢谢分享！！！

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

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>

lisir 发表于 2005-6-9 10:08:00

谢谢
页: 1 2 3 [4] 5 6 7 8 9 10 11 12 13
查看完整版本: [推荐]《机械工程CAD制图规则》PDF版