请问如何画三维弹簧？

Terrywinner · 发表于 2002-10-22 23:30:00

用MDT啦！

xh_ldh · 发表于 2002-10-23 01:04:00

leeyeafu
你好！
如何使Set sset = ThisDrawing.SelectionSets.Add("SS6")能重复使用
Sub Ch4_AddToASelectionSet()
Dim sset As AcadSelectionSet
Dim OffsetValue As Double
OffsetValue = ThisDrawing.Utility.GetReal("请输入偏移距离：")
Set sset = ThisDrawing.SelectionSets.Add("SS6")
' 提示用户选择对象并将它们添加到选择集中。
' 要完成选择，按回车。
sset.SelectOnScreen
' 在选择集中循环并将每一对象上下(左右）偏移。
Dim Obj As AcadEntity
For Each Obj In sset
Obj.Offset OffsetValue
Obj.Offset -OffsetValue
Next Obj
Set sset = Nothing
End Sub
谢谢回答！！

杜康醉酒 · 发表于 2002-10-27 18:05:00

你问我吧，e-mail:xhhcad@hotmail.com

wen2_79 · 发表于 2002-10-29 22:47:00

我很菜，所以请说详细点。

陈伯雄 · 发表于 2002-10-30 08:01:00

kiss_mouse · 发表于 2003-10-23 22:48:00

在AUTOCAD里面怎么画螺旋线

sibei · 发表于 2003-10-30 22:06:00

龙龙仔，有设计2维弹簧的程序吗？

love820710 · 发表于 2003-10-31 16:02:00

这样的弹簧我是望尘莫及！但是仅仅一个弹簧不用都说的那么复杂吧·！这些都要设计编程吗？？

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

请问如何画三维弹簧？

我能画出来!给我发邮件吧!LONGQPQP-0011@163.COM

回复

求助VBA

我也能画出来。你问我呀！！

能够讲一下怎样做的吗

这是在Inventor中完成的。