亚洲欧美日韩国产一区二区精品_亚洲国产精品一区二区动图_级婬片A片手机免费播放_亚洲国产成人Av毛片大全,男女爱爱好爽好疼视频免费,中文日韩AV在线,无码视频免费,欧美在线观看成人高清视频,在线播放免费人成毛片,成人网站在线视频A片 ,亚洲AV成人精品一区二区三区

機(jī)械社區(qū)

標(biāo)題: AUTOCAD VBA的宏 ,，求助高手 [打印本頁(yè)]

作者: 龍九禪師 時(shí)間: 2012-5-21 17:09
標(biāo)題: AUTOCAD VBA的宏 ,，求助高手
真心求這么段參數(shù)化繪圖程序感謝各位的幫助~！,！

作者: 20120804 時(shí)間: 2012-5-21 20:03
本帖最后由韋編三絕于 2012-5-21 20:05 編輯

這么簡(jiǎn)單的東西,，建議樓主用lisp即可搞定，無(wú)需用vba,。
但我已多年不碰,，早忘記光了。

作者: 藍(lán)兔子 時(shí)間: 2012-5-21 20:41
會(huì)用A utoCAD的話'這些應(yīng)該不難

作者: hzhfjpt 時(shí)間: 2012-5-21 20:56
我曾經(jīng)有那么一種想研究VBA和lisp的沖動(dòng)
一想,，輸入幾個(gè)數(shù)字,，圖形就出來(lái)了，多好
可是后來(lái)又一想
我需要自動(dòng)出圖的圖形不多,，標(biāo)準(zhǔn)件直接由畫(huà)圖軟件生產(chǎn)的
真到學(xué)有所成能自動(dòng)畫(huà)圖的時(shí)候,，要花多少時(shí)間,？能省多少時(shí)間？
來(lái)回一算,，得了,，在編程的門(mén)檻上往里一瞥，扭頭走了
想來(lái),，當(dāng)時(shí)能鉆研個(gè)入門(mén),，也許也是不錯(cuò)的，因?yàn)�,，沒(méi)鉆研,，時(shí)間也就這么過(guò)來(lái)了

作者: hzhfjpt 時(shí)間: 2012-5-21 21:01
扯淡完我班門(mén)弄斧一下，說(shuō)一下我的笨辦法
1.在EXCEL里填好公式,，把各個(gè)數(shù)據(jù)的關(guān)系搞好,。這樣，每次畫(huà)之前,，把已知數(shù)據(jù)一輸入,，繪圖尺寸自動(dòng)生成
2，照1中的數(shù)據(jù)畫(huà)一個(gè)齒（這個(gè)大家都會(huì)吧）,。,。。
3,，陣列一下（這個(gè)大家也都會(huì)吧）,。。,。,。。

呵呵,，就是這個(gè)笨辦法啊

作者: 龍九禪師 時(shí)間: 2012-5-21 21:29
愧疚愧疚~�,。�,！記得當(dāng)年畢業(yè)設(shè)計(jì)做的就是《VB程序開(kāi)發(fā)齒輪滾刀參數(shù)化繪制工具》,。。,。,。時(shí)光流逝轉(zhuǎn)眼而立之年一路走來(lái)都是在邊揀邊棄學(xué)習(xí)了解了新的知識(shí)同時(shí)也忘卻了一些最基本理論知識(shí)。,。,。。就好比CAD一般我們最早要自己畫(huà)圖框，畫(huà)螺栓畫(huà)螺母再到后來(lái)出現(xiàn)了塊再到后來(lái)出現(xiàn)了那么多標(biāo)準(zhǔn)化插件,。,。�,，F(xiàn)如今作為工程技術(shù)人員在不去翻書(shū)情況下又有幾個(gè)還能用圖板,，三角板，圓規(guī)去畫(huà)出個(gè)橢圓來(lái),。,。。還幾個(gè)記得空間投影幾何,。,。。,。,。無(wú)奈啊~！�,�,！

作者: 20120804 時(shí)間: 2012-5-21 22:11
別想那么難。真心編的話,，lisp應(yīng)該不超過(guò)50行,。
其實(shí)你只需要計(jì)算9個(gè)點(diǎn)的坐標(biāo)而已，鋸片圓心點(diǎn),、直線的兩端點(diǎn),、兩個(gè)圓弧的圓心及起點(diǎn)終點(diǎn)。
然后用三個(gè)繪圖命令,，再加一個(gè)陣列命令就搞定了,。
起步方法是編寫(xiě)一條直線命令，然后測(cè)試一下,，成功了，就以此為基礎(chǔ),，慢慢衍生開(kāi)來(lái),。
其實(shí)大型程序都是從一行最簡(jiǎn)單的代碼衍生出來(lái)的。
給個(gè)以前的例子,，樓主參考吧,。我是不想再研究這個(gè)了，太累了,。
解壓到e盤(pán),，然后在cad命令欄輸入第一個(gè)命令即可。
[attach]250291[/attach]

作者: alphazhan 時(shí)間: 2012-5-22 09:58
不會(huì)的小白路過(guò)幫頂

作者: 20120804 時(shí)間: 2012-5-24 00:08
本帖最后由韋編三絕于 2012-5-24 00:12 編輯

鋸片lisp程序。
在cad里面輸入 appload 加載此文件,，再輸入 dejp,，看提示一步步執(zhí)行。
推薦測(cè)試參數(shù)：
中心點(diǎn)：隨便點(diǎn)
直徑：100
齒數(shù)：20
前角：0.3
后角,；0.3
然后手動(dòng)畫(huà)圓弧3,，看提示，注意切點(diǎn)位置,，點(diǎn)不好就畫(huà)不出來(lái),。
然后看提示，手動(dòng)選擇圓弧2頂部一點(diǎn),，再手動(dòng)選擇圓弧3底部一點(diǎn)以打斷,。
自動(dòng)陣列，完成,。
丟了幾年,，再揀起來(lái)挺費(fèi)力，沒(méi)精力給您做成自動(dòng)檔的了,，湊合用吧,，半自動(dòng)也挺快的。
另外您給的數(shù)據(jù),，槽底半徑和槽深度重復(fù)了,，我只以槽底半徑為準(zhǔn)，忽略深度,。

[attach]250496[/attach]

[attach]250495[/attach]

作者: 玩彩518 時(shí)間: 2012-5-24 00:31
論壇里的高手還真不少,！cad我剛?cè)腴T(mén)

作者: 龍九禪師 時(shí)間: 2012-5-26 02:32
首先感謝韋編三絕的積極幫忙但也許是本人描述問(wèn)題還不夠清晰韋編三絕幫忙弄的程序還存在略微錯(cuò)誤
命令提示行提示輸入的參數(shù)應(yīng)該是如下：
1 鋸片圓心坐標(biāo)
2 鋸片前角（單位為度）
3鋸片后角（單位為度）
4 鋸片齒數(shù)
5鋸片半徑
懇請(qǐng)韋編三絕再幫忙處理下若有用到第一段斜直線方程及第二段圓弧方程和圓心坐標(biāo)方程以及第三段圓弧方程和圓心坐標(biāo)方程可回復(fù)索取,！感謝~�,。。,�,！

作者: 20120804 時(shí)間: 2012-5-26 09:45
拿去，再休來(lái)聒噪,。

[attach]250681[/attach]

作者: 龍九禪師 時(shí)間: 2012-5-26 13:10
已基本修正完整,，但下載后用此程序畫(huà)出圖形與單張所繪圖形存在差異（相同參數(shù)設(shè)置下程序繪制的圖形不能與單張繪制圖形實(shí)現(xiàn)完全重合）標(biāo)注后發(fā)現(xiàn)兩圖數(shù)值亦不一致。,。,。。,。只能言其只有形似且不達(dá)神似,。（初步判斷是程序內(nèi)設(shè)置的數(shù)值精度問(wèn)題引起）懇望韋編三絕做最后一次修正,！感謝！·,！

作者: 龍九禪師 時(shí)間: 2012-5-26 13:25
建議其計(jì)算精度取小數(shù)點(diǎn)后6位試試,，若還存在同樣問(wèn)題只能是說(shuō)幾段弧的圓心坐標(biāo)存在問(wèn)題了

作者: 龍九禪師 時(shí)間: 2012-5-26 18:47
附：在輸入必要的參數(shù)后在所繪制的圖形下方也顯示出所輸入的參數(shù)。感謝,！

作者: 20120804 時(shí)間: 2012-5-26 19:58
能把話說(shuō)明白點(diǎn)不,？能貼個(gè)圖不？

作者: 龍九禪師 時(shí)間: 2012-5-27 04:47
經(jīng)過(guò)反復(fù)驗(yàn)證原來(lái)是自己錯(cuò)了 ,！慚愧,！
韋編三絕所運(yùn)用的各個(gè)坐標(biāo)點(diǎn)及圓和直線方程等均毫無(wú)錯(cuò)誤~！�,�,！程序代碼更是無(wú)一錯(cuò)誤，由衷地佩服并感激,！
最后懇請(qǐng)韋編三絕做最后潤(rùn)色也即附加一項(xiàng)功能（在輸入各個(gè)參數(shù)后在所繪制的圖形下方也顯示出所輸入的參數(shù)（便于區(qū)分之用））

作者: 20120804 時(shí)間: 2012-5-27 11:05
[attach]250779[/attach]

作者: 20120804 時(shí)間: 2012-5-27 14:18
本帖最后由韋編三絕于 2012-5-27 14:20 編輯

[attach]250788[/attach]

[attach]250786[/attach]

作者: shudapeng 時(shí)間: 2012-10-13 09:12
看來(lái)俺的cad還是很爛的慚愧慚愧{:soso_e164:},，還要學(xué)學(xué)再學(xué)學(xué)。

歡迎光臨機(jī)械社區(qū) (http://giwivy.com.cn/)