[推荐]《机械工程CAD制图规则》PDF版

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

下载看看

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

感谢你呀！

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

多谢版主的提供

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

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

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

ok!!!!

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

谢谢

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

非常感谢

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

谢谢分享！！！

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

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

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

谢谢

账号		自动登录	找回密码
密码			注册