AUTOCAD VBA的宏 ，求助高手

龍九禪師

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

20120804

4 K; Y4 V0 B" J9 E- O
這么簡單的東西，建議樓主用lisp即可搞定，無需用vba。
但我已多年不碰，早忘記光了。

藍兔子

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

hzhfjpt

我曾經有那么一種想研究VBA和lisp的沖動
一想，輸入幾個數字，圖形就出來了，多好
可是后來又一想
- ?& U! [3 W4 Q, D2 ~$ a8 {我需要自動出圖的圖形不多，標準件直接由畫圖軟件生產的
# [& E+ }$ i- {5 ~真到學有所成能自動畫圖的時候，要花多少時間？能省多少時間？
, P3 B" d" o1 T* e) `來回一算，得了，在編程的門檻上往里一瞥，扭頭走了
想來，當時能鉆研個入門，也許也是不錯的，因為，沒鉆研，時間也就這么過來了

hzhfjpt

扯淡完我班門弄斧一下，說一下我的笨辦法
( Q% [0 q9 R4 P& V# X6 B7 L) L9 `1.在EXCEL里填好公式，把各個數據的關系搞好。這樣，每次畫之前，把已知數據一輸入，繪圖尺寸自動生成
; L$ G: E# z$ E: C, u' L2，照1中的數據畫一個齒（這個大家都會吧）。。。
3，陣列一下（這個大家也都會吧）。。。。。
1 |2 _+ j- [+ S
" B4 m2 U/ x8 D5 e% \呵呵，就是這個笨辦法啊

龍九禪師

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

20120804

別想那么難。真心編的話，lisp應該不超過50行。
其實你只需要計算9個點的坐標而已，鋸片圓心點、直線的兩端點、兩個圓弧的圓心及起點終點。
然后用三個繪圖命令，再加一個陣列命令就搞定了。
起步方法是編寫一條直線命令，然后測試一下，成功了，就以此為基礎，慢慢衍生開來。
其實大型程序都是從一行最簡單的代碼衍生出來的。
給個以前的例子，樓主參考吧。我是不想再研究這個了，太累了。
: Y6 B- t! T) w0 o解壓到e盤，然后在cad命令欄輸入第一個命令即可。
# _( s9 X0 _/ _  Q1 Z
# Q) V* o5 b# V6 j' m4 |

alphazhan

不會的小白路過幫頂                             

20120804

% ]- ], G' A. ]% V6 `3 I' }
鋸片lisp程序。
- F; T% h  G+ |. }& E! p在cad里面輸入 appload 加載此文件，再輸入 dejp，看提示一步步執行。
推薦測試參數：
4 ]& ~7 \' e$ v: w/ M中心點：隨便點
直徑：100
齒數：20
9 }8 `# H  J: h. Q* M3 s前角：0.3
后角；0.3
然后手動畫圓弧3，看提示，注意切點位置，點不好就畫不出來。
然后看提示，手動選擇圓弧2頂部一點，再手動選擇圓弧3底部一點以打斷。
: z) F' s. c3 q. b+ A6 I自動陣列，完成。
丟了幾年，再揀起來挺費力，沒精力給您做成自動檔的了，湊合用吧，半自動也挺快的。
1 \& `3 G( h8 S  c0 F另外您給的數據，槽底半徑和槽深度重復了，我只以槽底半徑為準，忽略深度。

, A5 f3 M0 R3 v# p5 M7 y% y, k

/ \# p. N3 ]/ Y7 g* @; v

玩彩518

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