AUTOCAD VBA的宏 ，求助高手

龍九禪師

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

20120804

+ h2 ?, r6 S' B9 U0 w這么簡單的東西，建議樓主用lisp即可搞定，無需用vba。
7 F7 K4 Q9 x9 E* J" C' Y9 i但我已多年不碰，早忘記光了。

藍(lán)兔子

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

hzhfjpt

我曾經(jīng)有那么一種想研究VBA和lisp的沖動(dòng)
一想，輸入幾個(gè)數(shù)字，圖形就出來了，多好
可是后來又一想
我需要自動(dòng)出圖的圖形不多，標(biāo)準(zhǔn)件直接由畫圖軟件生產(chǎn)的
5 ~1 f* ^2 K9 L3 {2 t6 v7 j真到學(xué)有所成能自動(dòng)畫圖的時(shí)候，要花多少時(shí)間？能省多少時(shí)間？
來回一算，得了，在編程的門檻上往里一瞥，扭頭走了
, n  ^7 h8 V$ a; }3 e! K5 V# ~想來，當(dāng)時(shí)能鉆研個(gè)入門，也許也是不錯(cuò)的，因?yàn)椋瑳]鉆研，時(shí)間也就這么過來了

hzhfjpt

扯淡完我班門弄斧一下，說一下我的笨辦法
) n3 c0 x- f% `0 u  P# ]1.在EXCEL里填好公式，把各個(gè)數(shù)據(jù)的關(guān)系搞好。這樣，每次畫之前，把已知數(shù)據(jù)一輸入，繪圖尺寸自動(dòng)生成
0 S- Q4 }& c; Q1 m! @9 h2，照1中的數(shù)據(jù)畫一個(gè)齒（這個(gè)大家都會(huì)吧）。。。
& t" x, t% j+ G  L) {. }0 j" L3，陣列一下（這個(gè)大家也都會(huì)吧）。。。。。
/ o% l9 ~* B0 N/ z) M4 I. z3 N
" ]# v" U8 o" e: h. w$ z8 K呵呵，就是這個(gè)笨辦法啊

龍九禪師

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

20120804

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

alphazhan

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

20120804

, K/ A6 G  N( ^$ A+ W5 v
/ y4 \3 s' _* m4 _  k1 Y鋸片lisp程序。
在cad里面輸入 appload 加載此文件，再輸入 dejp，看提示一步步執(zhí)行。
1 n# u, ]# j# H4 c7 @2 X' b推薦測(cè)試參數(shù)：
中心點(diǎn)：隨便點(diǎn)
- L2 H" g+ `& B直徑：100
5 j+ W& l1 C- R  {; }齒數(shù)：20
前角：0.3
后角；0.3
然后手動(dòng)畫圓弧3，看提示，注意切點(diǎn)位置，點(diǎn)不好就畫不出來。
. n" g- P4 C; ?5 z" |然后看提示，手動(dòng)選擇圓弧2頂部一點(diǎn)，再手動(dòng)選擇圓弧3底部一點(diǎn)以打斷。
自動(dòng)陣列，完成。
丟了幾年，再揀起來挺費(fèi)力，沒精力給您做成自動(dòng)檔的了，湊合用吧，半自動(dòng)也挺快的。
& t' B$ ^2 C0 Q  V0 B: A另外您給的數(shù)據(jù)，槽底半徑和槽深度重復(fù)了，我只以槽底半徑為準(zhǔn)，忽略深度。

& v0 B* `7 `$ V; T
1 v" G( k: ?' Q8 K4 ?( \( M

玩彩518

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