AUTOCAD VBA的宏 ，求助高手

龍九禪師

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

20120804

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

藍兔子

會用A utoCAD的話'這些應該不難

hzhfjpt

我曾經有那么一種想研究VBA和lisp的沖動
一想，輸入幾個數字，圖形就出來了，多好
可是后來又一想
7 y  e/ M5 R* z; z2 B0 u1 B我需要自動出圖的圖形不多，標準件直接由畫圖軟件生產的
真到學有所成能自動畫圖的時候，要花多少時間？能省多少時間？
來回一算，得了，在編程的門檻上往里一瞥，扭頭走了
想來，當時能鉆研個入門，也許也是不錯的，因為，沒鉆研，時間也就這么過來了

hzhfjpt

扯淡完我班門弄斧一下，說一下我的笨辦法
3 r9 [- w# i, E" T" H6 M( B1.在EXCEL里填好公式，把各個數據的關系搞好。這樣，每次畫之前，把已知數據一輸入，繪圖尺寸自動生成
% J0 T1 z& y3 \7 ?- ~2，照1中的數據畫一個齒（這個大家都會吧）。。。
8 b( Q: t  \. z0 j3，陣列一下（這個大家也都會吧）。。。。。
1 `2 k+ J1 V9 s7 o; X  |
9 G/ H' a" L7 Q2 l1 I3 B0 J呵呵，就是這個笨辦法啊

龍九禪師

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

20120804

別想那么難。真心編的話，lisp應該不超過50行。
2 g! u3 T' Y2 T8 @其實你只需要計算9個點的坐標而已，鋸片圓心點、直線的兩端點、兩個圓弧的圓心及起點終點。
, ~. t: `8 h5 }5 `6 H+ }然后用三個繪圖命令，再加一個陣列命令就搞定了。
起步方法是編寫一條直線命令，然后測試一下，成功了，就以此為基礎，慢慢衍生開來。
其實大型程序都是從一行最簡單的代碼衍生出來的。
給個以前的例子，樓主參考吧。我是不想再研究這個了，太累了。
解壓到e盤，然后在cad命令欄輸入第一個命令即可。

/ G* _" _1 l! V3 {/ z, G+ d4 O" i

alphazhan

不會的小白路過幫頂                             

20120804

鋸片lisp程序。
* n' x9 y" y% ?8 W9 M9 i在cad里面輸入 appload 加載此文件，再輸入 dejp，看提示一步步執行。
. Y- W/ t! H) P2 E推薦測試參數：
中心點：隨便點
/ Y) q/ V1 H" J6 j! S% y0 d5 i直徑：100
齒數：20
4 r; q3 {) G8 _( e7 A. Z& p前角：0.3
) o- B: K9 R' {3 M后角；0.3
; r1 L' [* e9 f( u; g1 d然后手動畫圓弧3，看提示，注意切點位置，點不好就畫不出來。
3 L% L/ \/ G2 ~! E+ M4 f$ O( t然后看提示，手動選擇圓弧2頂部一點，再手動選擇圓弧3底部一點以打斷。
自動陣列，完成。
丟了幾年，再揀起來挺費力，沒精力給您做成自動檔的了，湊合用吧，半自動也挺快的。
另外您給的數據，槽底半徑和槽深度重復了，我只以槽底半徑為準，忽略深度。

- G0 O( {$ F+ ]/ A: Z


9 }) V0 w, B9 U! T

玩彩518

論壇里的高手還真不少！cad我剛入門