AUTOCAD VBA的宏 ,，求助高手

龍九禪師

真心求這么段參數(shù)化繪圖程序   感謝各位的幫助~�,。�

20120804

" P1 p# M  e) u& B6 U" P3 o( D, H
; p9 W  e0 P. A7 h這么簡(jiǎn)單的東西,，建議樓主用lisp即可搞定,，無(wú)需用vba,。
) d4 u+ {: `# Y8 G但我已多年不碰,，早忘記光了,。

藍(lán)兔子

會(huì)用A utoCAD的話'這些應(yīng)該不難

hzhfjpt

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

hzhfjpt

扯淡完我班門弄斧一下，說(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è)笨辦法啊

龍九禪師

愧疚  愧疚~�,。,。∮浀卯�(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

別想那么難。真心編的話,，lisp應(yīng)該不超過(guò)50行,。
. b+ e7 F' l+ Y/ y1 s1 B, `其實(shí)你只需要計(jì)算9個(gè)點(diǎn)的坐標(biāo)而已，鋸片圓心點(diǎn)、直線的兩端點(diǎn),、兩個(gè)圓弧的圓心及起點(diǎn)終點(diǎn),。
然后用三個(gè)繪圖命令，再加一個(gè)陣列命令就搞定了,。
  Z6 o  J- n. Q" G3 G8 |起步方法是編寫(xiě)一條直線命令,，然后測(cè)試一下，成功了,，就以此為基礎(chǔ),，慢慢衍生開(kāi)來(lái)。
" x, S8 q2 Y5 ~0 X. @其實(shí)大型程序都是從一行最簡(jiǎn)單的代碼衍生出來(lái)的,。
給個(gè)以前的例子,，樓主參考吧。我是不想再研究這個(gè)了,，太累了,。
解壓到e盤(pán)，然后在cad命令欄輸入第一個(gè)命令即可,。

" V% }( l4 r( A

alphazhan

不會(huì)的小白路過(guò)幫頂                             

20120804

& F8 `5 [3 n+ \
鋸片lisp程序,。
: O  a/ C1 g" N& v5 c在cad里面輸入 appload 加載此文件，再輸入 dejp,，看提示一步步執(zhí)行,。
推薦測(cè)試參數(shù)：
中心點(diǎn)：隨便點(diǎn)
直徑：100
- V$ X, u7 k/ t+ L& f齒數(shù)：20
前角：0.3
3 d. |  G/ d# b$ q后角；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)也挺快的,。
2 N; ?# i4 f8 P! y& \. t' e& U$ a; R另外您給的數(shù)據(jù),，槽底半徑和槽深度重復(fù)了，我只以槽底半徑為準(zhǔn),，忽略深度,。

! g/ E1 e. z# R; Z" R' `
. ^  o& ~0 K2 i

玩彩518

論壇里的高手還真不少,！cad我剛?cè)腴T