2457

應(yīng)助: 0 (幼兒園)
金幣: 88.6
紅花: 1
帖子: 60
在線: 23小時(shí)
蟲(chóng)號(hào): 2627123
注冊(cè): 2013-08-31
性別: MM
專業(yè): 機(jī)械動(dòng)力學(xué)

[求助] SolidWorks二次開(kāi)發(fā)編程出現(xiàn)問(wèn)題已有1人參與

剛剛接觸Solidworks的二次開(kāi)發(fā)，利用軟件的宏命令編寫(xiě)程序，應(yīng)該是一個(gè)圓柱矩陣的圖形，代碼如下：
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 "*上下二等角軸測(cè)", 8
Next k
End Sub
但是，執(zhí)行命令出現(xiàn)的圖形卻是錯(cuò)誤的，如圖所示。請(qǐng)各位大神幫忙看看我是哪里錯(cuò)了，謝謝

SolidWorks二次開(kāi)發(fā)編程出現(xiàn)問(wèn)題

自己編程.png

SolidWorks二次開(kāi)發(fā)編程出現(xiàn)問(wèn)題-1

理論結(jié)果.png

回復(fù)此樓

» 猜你喜歡

機(jī)械專碩322求調(diào)劑已經(jīng)有1人回復(fù)
石河子大學(xué)-機(jī)械-電子信息-機(jī)械專碩-農(nóng)業(yè)工程碩士已經(jīng)有2人回復(fù)
機(jī)械工程論文潤(rùn)色/翻譯怎么收費(fèi)? 已經(jīng)有136人回復(fù)
一志愿江南大學(xué)機(jī)器人工程388分求調(diào)劑已經(jīng)有0人回復(fù)
接收材料化工機(jī)械研究生調(diào)劑已經(jīng)有1人回復(fù)
沈陽(yáng)高校招收機(jī)械、控制類等相關(guān)專業(yè)研究生（調(diào)劑）已經(jīng)有0人回復(fù)
293控制學(xué)碩已經(jīng)有1人回復(fù)
新加坡國(guó)立大學(xué)孫猛猛課題組誠(chéng)招公派訪問(wèn)學(xué)生已經(jīng)有0人回復(fù)
新加坡國(guó)立大學(xué)孫猛猛課題組誠(chéng)招博士后、訪問(wèn)學(xué)者已經(jīng)有0人回復(fù)
沈陽(yáng)高校招收機(jī)械、控制類等相關(guān)專業(yè)研究生（調(diào)劑）已經(jīng)有0人回復(fù)
求調(diào)劑，孩子想讀書(shū) 已經(jīng)有0人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

SolidWorks二次開(kāi)發(fā)的一些教程已經(jīng)有133人回復(fù)
Proe4.0許可證書(shū)怎么改？已經(jīng)有14人回復(fù)
solidworks畫(huà)圖幫助已經(jīng)有8人回復(fù)
ANSYS 參數(shù)化編程與命令手冊(cè) 已經(jīng)有23人回復(fù)
Solidworks二次開(kāi)發(fā)方面的問(wèn)題已經(jīng)有5人回復(fù)
CAD2012 不能出現(xiàn)陣列對(duì)話框！已經(jīng)有4人回復(fù)
solidworks如何將兩個(gè)錐齒輪合并為一個(gè) 已經(jīng)有4人回復(fù)
proe工程圖技巧已經(jīng)有34人回復(fù)
約束條件含多元二次方程求解線性目標(biāo)函數(shù)的編程已經(jīng)有20人回復(fù)
請(qǐng)大家推薦一款機(jī)械繪圖UG、CAD/SOLIDWORKS運(yùn)行良好的筆記本唄？已經(jīng)有14人回復(fù)
機(jī)械“參數(shù)化”一鍵出圖，solidworks參數(shù)化二次開(kāi)發(fā)，autoCAD2012參數(shù)化尺寸驅(qū)動(dòng) 已經(jīng)有14人回復(fù)
我在做proe二次開(kāi)發(fā)！已經(jīng)有10人回復(fù)
VB與solidworks代碼問(wèn)題已經(jīng)有3人回復(fù)
用vb進(jìn)行二次開(kāi)發(fā)，具體如題已經(jīng)有6人回復(fù)
solidworks二次開(kāi)發(fā) 基準(zhǔn)面繪制草圖已經(jīng)有11人回復(fù)
【求助】求助有沒(méi)有做VC++ 對(duì)SolidWorks二次開(kāi)發(fā)的已經(jīng)有3人回復(fù)

1樓 2014-11-14 20:37:56

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

arsasus

銅蟲(chóng) (初入文壇)

應(yīng)助: 1 (幼兒園)
金幣: 183.5
紅花: 1
帖子: 16
在線: 57.6小時(shí)
蟲(chóng)號(hào): 3503684
注冊(cè): 2014-10-28
專業(yè): 傳動(dòng)機(jī)械學(xué)

【答案】應(yīng)助回帖

★ ★ ★ ★ ★
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#)
這句圓心坐標(biāo)中的0.1 * Cos(1)應(yīng)該改為0.1*Cos(l)吧而不是1

贊一下

回復(fù)此樓

2樓2014-11-24 13:23:10

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

2457

鐵蟲(chóng) (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 88.6
紅花: 1
帖子: 60
在線: 23小時(shí)
蟲(chóng)號(hào): 2627123
注冊(cè): 2013-08-31
性別: MM
專業(yè): 機(jī)械動(dòng)力學(xué)

引用回帖:

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#)
這句圓心坐標(biāo)中的0.1 * Cos(1)應(yīng)該改為0.1*Cos(l)吧而不是1

果然是這樣的，謝謝

贊一下

回復(fù)此樓

3樓2014-11-25 09:25:20

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

2457

鐵蟲(chóng) (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 88.6
紅花: 1
帖子: 60
在線: 23小時(shí)
蟲(chóng)號(hào): 2627123
注冊(cè): 2013-08-31
性別: MM
專業(yè): 機(jī)械動(dòng)力學(xué)

引用回帖:

但是改了之后出現(xiàn)一側(cè)的圓柱過(guò)長(zhǎng)，是什么原因呢？

SolidWorks二次開(kāi)發(fā)編程出現(xiàn)問(wèn)題-2

1.png

贊一下

回復(fù)此樓

4樓2014-11-25 09:32:59

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

arsasus

銅蟲(chóng) (初入文壇)

應(yīng)助: 1 (幼兒園)
金幣: 183.5
紅花: 1
帖子: 16
在線: 57.6小時(shí)
蟲(chóng)號(hào): 3503684
注冊(cè): 2014-10-28
專業(yè): 傳動(dòng)機(jī)械學(xué)

引用回帖:

4樓: Originally posted by 2457 at 2014-11-25 09:32:59
但是改了之后出現(xiàn)一側(cè)的圓柱過(guò)長(zhǎng)，是什么原因呢？

1.png
...

這句Dir2 = -1 * Sin(l)，把1改成0.1，因?yàn)槟闵厦媸荄ir1 = 0.1 * Sin(l)

贊一下

回復(fù)此樓

» 本帖已獲得的紅花（最新10朵）

2457

5樓2014-11-25 13:18:16

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

2457

鐵蟲(chóng) (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 88.6
紅花: 1
帖子: 60
在線: 23小時(shí)
蟲(chóng)號(hào): 2627123
注冊(cè): 2013-08-31
性別: MM
專業(yè): 機(jī)械動(dòng)力學(xué)

送紅花一朵

引用回帖:

5樓: Originally posted by arsasus at 2014-11-25 13:18:16
這句Dir2 = -1 * Sin(l)，把1改成0.1，因?yàn)槟闵厦媸荄ir1 = 0.1 * Sin(l)...

成功了，謝謝！

回復(fù)此樓

6樓2014-11-26 09:15:36

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

2457

鐵蟲(chóng) (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 88.6
紅花: 1
帖子: 60
在線: 23小時(shí)
蟲(chóng)號(hào): 2627123
注冊(cè): 2013-08-31
性別: MM
專業(yè): 機(jī)械動(dòng)力學(xué)

引用回帖:

5樓: Originally posted by arsasus at 2014-11-25 13:18:16
這句Dir2 = -1 * Sin(l)，把1改成0.1，因?yàn)槟闵厦媸荄ir1 = 0.1 * Sin(l)...

可不可以加一個(gè)您的QQ呢？我還有些地方不太懂。

贊一下

回復(fù)此樓

7樓2014-11-26 09:42:51

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

arsasus

銅蟲(chóng) (初入文壇)

應(yīng)助: 1 (幼兒園)
金幣: 183.5
紅花: 1
帖子: 16
在線: 57.6小時(shí)
蟲(chóng)號(hào): 3503684
注冊(cè): 2014-10-28
專業(yè): 傳動(dòng)機(jī)械學(xué)

引用回帖:

7樓: Originally posted by 2457 at 2014-11-26 09:42:51
可不可以加一個(gè)您的QQ呢？我還有些地方不太懂。...

你可以說(shuō)說(shuō)那些方面的問(wèn)題，我對(duì)二次開(kāi)發(fā)也只是略知一點(diǎn)皮毛，之前畢業(yè)設(shè)計(jì)做過(guò)，如果會(huì)的我可以幫助你一下

贊一下

回復(fù)此樓

8樓2014-11-26 13:59:07

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

2457

鐵蟲(chóng) (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 88.6
紅花: 1
帖子: 60
在線: 23小時(shí)
蟲(chóng)號(hào): 2627123
注冊(cè): 2013-08-31
性別: MM
專業(yè): 機(jī)械動(dòng)力學(xué)

引用回帖:

8樓: Originally posted by arsasus at 2014-11-26 13:59:07
你可以說(shuō)說(shuō)那些方面的問(wèn)題，我對(duì)二次開(kāi)發(fā)也只是略知一點(diǎn)皮毛，之前畢業(yè)設(shè)計(jì)做過(guò)，如果會(huì)的我可以幫助你一下...

我也是畢業(yè)設(shè)計(jì)要用到，旋轉(zhuǎn)葉片的優(yōu)化設(shè)計(jì)，需要編程畫(huà)葉片，然后優(yōu)化，只不過(guò)我現(xiàn)在還停留在文獻(xiàn)閱讀的階段。

贊一下

回復(fù)此樓

9樓2014-11-28 15:28:01

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

最具人氣熱帖推薦 [查看全部]	作者	回/看	最后發(fā)表

[考研] 一志愿北京化工大學(xué)材料與化工（085600）296求調(diào)劑 +21	稻妻小編 2026-03-26	21/1050	2026-03-30 15:19 by michael2011
[考研] 346求調(diào)劑一志愿070303有機(jī)化學(xué) +5	蘿卜燉青菜 2026-03-28	6/300	2026-03-30 14:32 by limeifeng
[基金申請(qǐng)] 面上5B能上會(huì)嗎？ +7	redcom 2026-03-29	7/350	2026-03-30 12:44 by 愛(ài)搞研究的小孩
[考研] 0703本科鄭州大學(xué)求調(diào)劑 +7	nhj_ 2026-03-25	7/350	2026-03-30 12:44 by fangnagu
[考研] 環(huán)境科學(xué)與工程334分求調(diào)劑 +6	王一一依依 2026-03-30	8/400	2026-03-30 11:52 by yjolah
[考研] 279求調(diào)劑 +6	j的立方 2026-03-29	6/300	2026-03-30 11:46 by 松花缸1201
[考研] 材料與化工272求調(diào)劑 +21	阿斯蒂芬2004 2026-03-28	21/1050	2026-03-30 10:52 by 晴空210210
[考研] 一志愿河北工業(yè)大學(xué)0817化工278分求調(diào)劑 +14	jhybd 2026-03-23	19/950	2026-03-30 10:34 by vgtyfty
[考研] 0856求調(diào)劑 +8	楒桉 2026-03-28	8/400	2026-03-30 10:00 by wzy-lxz
[考研] 一志愿南航 335分 \| 0856 \| GPA 4.07 \| 有科研經(jīng)歷 +8	cccchenso 2026-03-29	8/400	2026-03-29 23:53 by 我是小康
[考研] 281求調(diào)劑 +4	亞克西good 2026-03-26	6/300	2026-03-29 21:06 by 啊李999
[考研] 環(huán)境工程 085701，267求調(diào)劑 +6	minht 2026-03-29	6/300	2026-03-29 16:21 by 學(xué)員8dgXkO
[考研] 340求調(diào)劑 +5	jhx777 2026-03-27	5/250	2026-03-28 04:18 by fmesaito
[考研] 一志愿211院校 344分東北農(nóng)業(yè)大學(xué)生物學(xué)學(xué)碩，求調(diào)劑 +5	丶風(fēng)雪夜歸人丶 2026-03-26	8/400	2026-03-27 19:22 by 丶風(fēng)雪夜歸人丶
[考研] 求調(diào)劑 +4	零八# 2026-03-27	4/200	2026-03-27 18:07 by yu221
[考研] 305求調(diào)劑 +5	哇盧卡庫(kù) 2026-03-26	5/250	2026-03-27 14:01 by laoshidan
[考研] 化工專碩求調(diào)劑 +3	question挽風(fēng) 2026-03-24	3/150	2026-03-24 18:48 by jhhcooi
[考研] 277分求調(diào)劑，跨調(diào)材料 +3	考研調(diào)劑lxh 2026-03-24	3/150	2026-03-24 13:52 by JourneyLucky
[考研] 085404電子信息284分求調(diào)劑 +4	13659058978 2026-03-24	4/200	2026-03-24 12:15 by syl20081243
[考研] 一志愿山東大學(xué)藥學(xué)學(xué)碩求調(diào)劑 +3	開(kāi)開(kāi)心心沒(méi)煩惱 2026-03-23	4/200	2026-03-24 00:06 by 開(kāi)開(kāi)心心沒(méi)煩惱