AUTOCAD VBA的宏 ，求助高手

龍九禪師

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

20120804

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

藍兔子

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

hzhfjpt

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

hzhfjpt

扯淡完我班門弄斧一下，說一下我的笨辦法
1.在EXCEL里填好公式，把各個數(shù)據(jù)的關系搞好。這樣，每次畫之前，把已知數(shù)據(jù)一輸入，繪圖尺寸自動生成
) Q2 g! d$ _9 F* h* y' @" ~8 A2，照1中的數(shù)據(jù)畫一個齒（這個大家都會吧）。。。
( f, q- {" z! |6 }0 Z' Z5 I3，陣列一下（這個大家也都會吧）。。。。。
; Z2 l3 T4 F3 B" H3 Y% K2 B
: ^: o) u' n) w) j# O* J( K呵呵，就是這個笨辦法啊

龍九禪師

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

20120804

別想那么難。真心編的話，lisp應該不超過50行。
其實你只需要計算9個點的坐標而已，鋸片圓心點、直線的兩端點、兩個圓弧的圓心及起點終點。
4 l5 d% A1 r; Z* u然后用三個繪圖命令，再加一個陣列命令就搞定了。
起步方法是編寫一條直線命令，然后測試一下，成功了，就以此為基礎，慢慢衍生開來。
3 N: v6 j7 o5 g, T4 |& j其實大型程序都是從一行最簡單的代碼衍生出來的。
給個以前的例子，樓主參考吧。我是不想再研究這個了，太累了。
  a6 Y9 `, d) j  l7 n: B: T解壓到e盤，然后在cad命令欄輸入第一個命令即可。

1 ?5 g' L( }& X% o

alphazhan

不會的小白路過幫頂                             

20120804

* y+ X, T1 G1 S2 `9 A1 A
鋸片lisp程序。
在cad里面輸入 appload 加載此文件，再輸入 dejp，看提示一步步執(zhí)行。
  U7 L$ ^- `7 B' l推薦測試參數(shù)：
+ I$ }0 E' w& X/ h  R. @  I2 j- a9 Y中心點：隨便點
直徑：100
5 H) E+ ?( g/ B齒數(shù)：20
前角：0.3
后角；0.3
/ a# G: F; v! J8 r# y1 u" _然后手動畫圓弧3，看提示，注意切點位置，點不好就畫不出來。
然后看提示，手動選擇圓弧2頂部一點，再手動選擇圓弧3底部一點以打斷。
0 q) r$ _4 ~0 @* B! k( U& Q自動陣列，完成。
丟了幾年，再揀起來挺費力，沒精力給您做成自動檔的了，湊合用吧，半自動也挺快的。
另外您給的數(shù)據(jù)，槽底半徑和槽深度重復了，我只以槽底半徑為準，忽略深度。

; l% j! E7 X) G, u& @


: m- V/ @. C9 _0 N1 c7 b) D

玩彩518

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