Znn3bq.jpeg
²é¿´: 1446  |  »Ø¸´: 8

2457

Ìú³æ (СÓÐÃûÆø)

[ÇóÖú] SolidWorks¶þ´Î¿ª·¢±à³Ì³öÏÖÎÊÌâ ÒÑÓÐ1È˲ÎÓë

¸Õ¸Õ½Ó´¥SolidworksµÄ¶þ´Î¿ª·¢£¬ÀûÓÃÈí¼þµÄºêÃüÁî±àд³ÌÐò£¬Ó¦¸ÃÊÇÒ»¸öÔ²Öù¾ØÕóµÄͼÐΣ¬´úÂëÈçÏ£º
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Dim k As Single
Dim l As Single
Dim Dir1 As Single
Dim Dir2 As Single
    Set swApp = Application.SldWorks
    Set Part = swApp.NewPart
    Set Part = swApp.ActiveDoc
For k = 1 To 36
    l = k * 3.1416 / 18
If Sin(l) >= 0 Then
Dir1 = 0.1 * Sin(l)
Dir2 = 0.001
ElseIf Sin(l) < 0 Then
Dir1 = 0.001
Dir2 = -1 * Sin(l)
End If
Set skSegment = Part.SketchManager.CreateCircle(0.1 * Cos(1), 0.1 * Sin(l), 0#, 0.1 * Cos(l), 0.1 * Sin(l) + 0.005, 0#)
Set myFeature = Part.FeatureManager.FeatureExtrusion2(False, False, False, 0, 0, Dir1, Dir2, False, False, False, False, 1, 1, False, False, False, False, True, True, True, 0, 0, False)
Part.ShowNamedView2 "*ÉÏ϶þµÈ½ÇÖá²â", 8
Next k
End Sub
µ«ÊÇ£¬Ö´ÐÐÃüÁî³öÏÖµÄͼÐÎÈ´ÊÇ´íÎóµÄ£¬ÈçͼËùʾ¡£Çë¸÷λ´óÉñ°ïæ¿´¿´ÎÒÊÇÄÄÀï´íÁË£¬Ð»Ð»

SolidWorks¶þ´Î¿ª·¢±à³Ì³öÏÖÎÊÌâ
×Ô¼º±à³Ì.png


SolidWorks¶þ´Î¿ª·¢±à³Ì³öÏÖÎÊÌâ-1
ÀíÂÛ½á¹û.png
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

arsasus

Í­³æ (³õÈëÎÄ̳)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï ¡ï ¡ï ¡ï ¡ï
2457: ½ð±Ò+5, ¡ï¡ï¡ï¡ï¡ï×î¼Ñ´ð°¸ 2014-11-25 09:25:17
Set skSegment = Part.SketchManager.CreateCircle(0.1 * Cos(1), 0.1 * Sin(l), 0#, 0.1 * Cos(l), 0.1 * Sin(l) + 0.005, 0#)
Õâ¾äÔ²ÐÄ×ø±êÖеÄ0.1 * Cos(1)Ó¦¸Ã¸ÄΪ0.1*Cos(l)°É¶ø²»ÊÇ1
2Â¥2014-11-24 13:23:10
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

2457

Ìú³æ (СÓÐÃûÆø)

ÒýÓûØÌû:
2Â¥: Originally posted by arsasus at 2014-11-24 13:23:10
Set skSegment = Part.SketchManager.CreateCircle(0.1 * Cos(1), 0.1 * Sin(l), 0#, 0.1 * Cos(l), 0.1 * Sin(l) + 0.005, 0#)
Õâ¾äÔ²ÐÄ×ø±êÖеÄ0.1 * Cos(1)Ó¦¸Ã¸ÄΪ0.1*Cos(l)°É¶ø²»ÊÇ1

¹ûÈ»ÊÇÕâÑùµÄ£¬Ð»Ð»
3Â¥2014-11-25 09:25:20
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

2457

Ìú³æ (СÓÐÃûÆø)

ÒýÓûØÌû:
2Â¥: Originally posted by arsasus at 2014-11-24 13:23:10
Set skSegment = Part.SketchManager.CreateCircle(0.1 * Cos(1), 0.1 * Sin(l), 0#, 0.1 * Cos(l), 0.1 * Sin(l) + 0.005, 0#)
Õâ¾äÔ²ÐÄ×ø±êÖеÄ0.1 * Cos(1)Ó¦¸Ã¸ÄΪ0.1*Cos(l)°É¶ø²»ÊÇ1

µ«ÊǸÄÁËÖ®ºó³öÏÖÒ»²àµÄÔ²Öù¹ý³¤£¬ÊÇʲôԭÒòÄØ £¿
SolidWorks¶þ´Î¿ª·¢±à³Ì³öÏÖÎÊÌâ-2
1.png

4Â¥2014-11-25 09:32:59
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

arsasus

Í­³æ (³õÈëÎÄ̳)

ÒýÓûØÌû:
4Â¥: Originally posted by 2457 at 2014-11-25 09:32:59
µ«ÊǸÄÁËÖ®ºó³öÏÖÒ»²àµÄÔ²Öù¹ý³¤£¬ÊÇʲôԭÒòÄØ £¿

1.png
...

Õâ¾äDir2 = -1 * Sin(l)£¬°Ñ1¸Ä³É0.1£¬ÒòΪÄãÉÏÃæÊÇDir1 = 0.1 * Sin(l)

» ±¾ÌûÒÑ»ñµÃµÄºì»¨£¨×îÐÂ10¶ä£©

5Â¥2014-11-25 13:18:16
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

2457

Ìú³æ (СÓÐÃûÆø)

Ëͺ컨һ¶ä
ÒýÓûØÌû:
5Â¥: Originally posted by arsasus at 2014-11-25 13:18:16
Õâ¾äDir2 = -1 * Sin(l)£¬°Ñ1¸Ä³É0.1£¬ÒòΪÄãÉÏÃæÊÇDir1 = 0.1 * Sin(l)...

³É¹¦ÁË£¬Ð»Ð»£¡
6Â¥2014-11-26 09:15:36
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

2457

Ìú³æ (СÓÐÃûÆø)

ÒýÓûØÌû:
5Â¥: Originally posted by arsasus at 2014-11-25 13:18:16
Õâ¾äDir2 = -1 * Sin(l)£¬°Ñ1¸Ä³É0.1£¬ÒòΪÄãÉÏÃæÊÇDir1 = 0.1 * Sin(l)...

¿É²»¿ÉÒÔ¼ÓÒ»¸öÄúµÄQQÄØ£¿ÎÒ»¹ÓÐЩµØ·½²»Ì«¶®¡£
7Â¥2014-11-26 09:42:51
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

arsasus

Í­³æ (³õÈëÎÄ̳)

ÒýÓûØÌû:
7Â¥: Originally posted by 2457 at 2014-11-26 09:42:51
¿É²»¿ÉÒÔ¼ÓÒ»¸öÄúµÄQQÄØ£¿ÎÒ»¹ÓÐЩµØ·½²»Ì«¶®¡£...

Äã¿ÉÒÔ˵˵ÄÇЩ·½ÃæµÄÎÊÌ⣬ÎÒ¶Ô¶þ´Î¿ª·¢Ò²Ö»ÊÇÂÔÖªÒ»µãƤ룬֮ǰ±ÏÒµÉè¼Æ×ö¹ý£¬Èç¹û»áµÄÎÒ¿ÉÒÔ°ïÖúÄãÒ»ÏÂ
8Â¥2014-11-26 13:59:07
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

2457

Ìú³æ (СÓÐÃûÆø)

ÒýÓûØÌû:
8Â¥: Originally posted by arsasus at 2014-11-26 13:59:07
Äã¿ÉÒÔ˵˵ÄÇЩ·½ÃæµÄÎÊÌ⣬ÎÒ¶Ô¶þ´Î¿ª·¢Ò²Ö»ÊÇÂÔÖªÒ»µãƤ룬֮ǰ±ÏÒµÉè¼Æ×ö¹ý£¬Èç¹û»áµÄÎÒ¿ÉÒÔ°ïÖúÄãÒ»ÏÂ...

ÎÒÒ²ÊDZÏÒµÉè¼ÆÒªÓõ½£¬ÐýתҶƬµÄÓÅ»¯Éè¼Æ£¬ÐèÒª±à³Ì»­Ò¶Æ¬£¬È»ºóÓÅ»¯£¬Ö»²»¹ýÎÒÏÖÔÚ»¹Í£ÁôÔÚÎÄÏ×ÔĶÁµÄ½×¶Î¡£
9Â¥2014-11-28 15:28:01
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ 2457 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 266Çóµ÷¼Á£¬Ò»Ö¾Ô¸¹þ¹¤³Ìµç×ÓÐÅÏ¢£¬±¾¿Æ»ñ¶àÏî¹ú½±ºÍÊ¡½± +7 lumine1 2026-04-06 7/350 2026-04-11 15:31 by ѧzh
[¿¼ÑÐ] ҩѧ305Çóµ÷¼Á +5 Â꿨°Í¿¨boom 2026-04-10 5/250 2026-04-11 12:13 by yutian743
[¿¼ÑÐ] 300·ÖÇóµ÷¼Á £¨085501»úеר˶£¬±¾¿ÆÑï´ó£© +8 xu@841019 2026-04-11 8/400 2026-04-11 10:46 by qingpingzhu
[¿¼ÑÐ] Ò»Ö¾Ô¸Î÷±±¹¤Òµ´óѧ289 085602 +31 yangæÃ 2026-04-10 32/1600 2026-04-11 10:13 by onlyÖÜ
[¿¼ÑÐ] ÉúÎïѧ308Çóµ÷¼Á£¨Ò»Ö¾Ô¸»ª¶«Ê¦´ó£© +6 ÏàÐűػá¹ââÍòÕ 2026-04-10 6/300 2026-04-11 05:23 by zhuwenxu
[¿¼ÑÐ] ±¾¿ÆÎ÷¹¤´ó 324Çóµ÷¼Á +4 wysyjs25 2026-04-10 4/200 2026-04-10 20:00 by À´¿´Á÷ÐÇÓê10
[¿¼ÑÐ] 344Çóµ÷¼Á +7 ؼ·çѩҹ¹éÈËØ¼ 2026-04-09 7/350 2026-04-10 12:05 by pengliang8036
[¿¼ÑÐ] ²ÄÁÏר˶(0856) 339·ÖÇóµ÷¼Á +9 ¹þ¹þ¹þ¶ì¹þ¹þ¹þ 2026-04-09 10/500 2026-04-09 20:01 by Orcid
[¿¼ÑÐ] 086004 Çóµ÷¼Á 309 +7 Yin DY 2026-04-08 7/350 2026-04-09 13:59 by Delta2012
[¿¼ÑÐ] 288Çóµ÷¼Á +15 ûÓдð°¸_ 2026-04-05 15/750 2026-04-09 10:22 by 5268321
[¿¼ÑÐ] ÉúÎïѧ328·ÖÇóµ÷¼Á +9 ÉÁµçkkl 2026-04-08 10/500 2026-04-08 21:42 by liuhuiying09
[¿¼ÑÐ] 307·Ö²ÄÁÏרҵÇóµ÷¼Á +12 Hllºú 2026-04-05 12/600 2026-04-08 16:33 by luoyongfeng
[¿¼ÑÐ] ²ÄÁÏר˶(0856) 339·ÖÇóµ÷¼Á +16 ¹þ¹þ¹þ¶ì¹þ¹þ¹þ 2026-04-05 16/800 2026-04-08 16:02 by luoyongfeng
[¿¼ÑÐ] 281Çóµ÷¼Á +10 Ò¬×ÓÄ¢¹½ 2026-04-06 10/500 2026-04-08 11:43 by zzucheup
[¿¼ÑÐ] Çóµ÷¼Á +11 wwwwabcde 2026-04-07 11/550 2026-04-07 23:16 by JourneyLucky
[¿¼ÑÐ] ±¾¿ÆÉúÎïÐÅϢѧ£¬×Ü·Ö362 Çó07 08µ÷¼Á +6 qСٻ1210 2026-04-06 6/300 2026-04-07 19:40 by macy2011
[¿¼ÑÐ] 085500»úеר˶³õÊÔ288Çóµ÷¼Á +3 GZJguo666- 2026-04-05 3/150 2026-04-05 18:06 by jkddd
[¿¼ÑÐ] 313Çóµ÷¼Á +5 º£ÈÕº£ÈÕ 2026-04-04 5/250 2026-04-05 15:52 by jndximd
[¿¼ÑÐ] 341Çóµ÷¼Á +3 ѧÎÞÖ¹¾³£¬³å 2026-04-05 3/150 2026-04-05 09:40 by lbsjt
[¿¼ÑÐ] 325Çóµ÷¼Á +4 ´º·ç²»½èÒâ 2026-04-04 4/200 2026-04-04 22:08 by à£à£à£0119
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û