AUTOCAD VBA的宏 ,，求助高手

龍九禪師

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

20120804

這么簡單的東西，建議樓主用lisp即可搞定,，無需用vba,。
1 z4 p% @/ ]: A: X但我已多年不碰，早忘記光了,。

藍(lán)兔子

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

hzhfjpt

我曾經(jīng)有那么一種想研究VBA和lisp的沖動
一想,，輸入幾個數(shù)字，圖形就出來了,，多好
" H( \/ J9 |( f. F可是后來又一想
我需要自動出圖的圖形不多,，標(biāo)準(zhǔn)件直接由畫圖軟件生產(chǎn)的
真到學(xué)有所成能自動畫圖的時候，要花多少時間,？能省多少時間,？
來回一算，得了,，在編程的門檻上往里一瞥,，扭頭走了
想來，當(dāng)時能鉆研個入門,，也許也是不錯的,，因為，沒鉆研,，時間也就這么過來了

hzhfjpt

扯淡完我班門弄斧一下,，說一下我的笨辦法
* c3 l& f3 n# ~4 Q% D% @) `1.在EXCEL里填好公式，把各個數(shù)據(jù)的關(guān)系搞好,。這樣,，每次畫之前，把已知數(shù)據(jù)一輸入,，繪圖尺寸自動生成
% C8 y+ b5 c/ J6 \4 Z/ m0 x2,，照1中的數(shù)據(jù)畫一個齒（這個大家都會吧）。,。,。
9 k/ P& U" Z: [: ^% a3，陣列一下（這個大家也都會吧）。,。,。。,。
  F/ p& ^/ S) ~: l: M
呵呵,，就是這個笨辦法啊

龍九禪師

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

20120804

別想那么難,。真心編的話，lisp應(yīng)該不超過50行。
$ [5 E& K0 t# I/ h2 Q其實(shí)你只需要計算9個點(diǎn)的坐標(biāo)而已,，鋸片圓心點(diǎn),、直線的兩端點(diǎn)、兩個圓弧的圓心及起點(diǎn)終點(diǎn),。
+ N) Z6 E/ [/ |4 T然后用三個繪圖命令,，再加一個陣列命令就搞定了。
起步方法是編寫一條直線命令,，然后測試一下,，成功了，就以此為基礎(chǔ),，慢慢衍生開來,。
+ N% ]8 l- d8 }* o: p其實(shí)大型程序都是從一行最簡單的代碼衍生出來的。
. _+ y+ d3 Z- ]1 S給個以前的例子,，樓主參考吧,。我是不想再研究這個了，太累了,。
) D6 W) [1 J; G; J解壓到e盤,，然后在cad命令欄輸入第一個命令即可。

" @* u% J9 e$ t8 n/ @0 |

alphazhan

不會的小白路過幫頂                             

20120804

$ q- g0 C1 B) t% h1 }6 ^8 s1 v
鋸片lisp程序,。
在cad里面輸入 appload 加載此文件,，再輸入 dejp，看提示一步步執(zhí)行,。
推薦測試參數(shù)：
1 x/ T' f2 m4 R& q$ o' W! a中心點(diǎn)：隨便點(diǎn)
) X; `& D2 d6 {) |直徑：100
9 e0 p, W: h  |4 B2 A5 g7 h% p齒數(shù)：20
前角：0.3
# H# X. i1 _1 {& }9 H9 z8 {* |  }6 f# X后角,；0.3
. g: z' M5 s7 b" J$ U0 B然后手動畫圓弧3，看提示,，注意切點(diǎn)位置,，點(diǎn)不好就畫不出來。
0 n. n3 x) z& M然后看提示,，手動選擇圓弧2頂部一點(diǎn),，再手動選擇圓弧3底部一點(diǎn)以打斷。
自動陣列,，完成,。
丟了幾年,，再揀起來挺費(fèi)力，沒精力給您做成自動檔的了,，湊合用吧,，半自動也挺快的。
另外您給的數(shù)據(jù),，槽底半徑和槽深度重復(fù)了,，我只以槽底半徑為準(zhǔn)，忽略深度,。
  i) O% v$ H, C6 R1 L  ?2 e

  S8 e9 P* r% i- {' n/ o" E# u
- a. ~; C9 I! B8 z3 h
- V1 ?' A; F4 t; ]% y  c/ b

玩彩518

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