AUTOCAD VBA的宏 ，求助高手

龍九禪師

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

20120804

這么簡單的東西，建議樓主用lisp即可搞定，無需用vba。
: z; U8 b2 G0 ?, C$ _但我已多年不碰，早忘記光了。

藍(lán)兔子

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

hzhfjpt

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

hzhfjpt

扯淡完我班門弄斧一下，說一下我的笨辦法
1.在EXCEL里填好公式，把各個數(shù)據(jù)的關(guān)系搞好。這樣，每次畫之前，把已知數(shù)據(jù)一輸入，繪圖尺寸自動生成
2，照1中的數(shù)據(jù)畫一個齒（這個大家都會吧）。。。
3，陣列一下（這個大家也都會吧）。。。。。

% {2 g) l3 F2 j# j6 \* B* {& n  p, l呵呵，就是這個笨辦法啊

龍九禪師

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

20120804

別想那么難。真心編的話，lisp應(yīng)該不超過50行。
其實你只需要計算9個點的坐標(biāo)而已，鋸片圓心點、直線的兩端點、兩個圓弧的圓心及起點終點。
, A/ J) @$ S, {3 @8 c7 Z2 F/ W$ C然后用三個繪圖命令，再加一個陣列命令就搞定了。
起步方法是編寫一條直線命令，然后測試一下，成功了，就以此為基礎(chǔ)，慢慢衍生開來。
; _( U' G2 Q# ~6 q其實大型程序都是從一行最簡單的代碼衍生出來的。
給個以前的例子，樓主參考吧。我是不想再研究這個了，太累了。
+ H) Z% N; i" Y3 X, F/ W3 O解壓到e盤，然后在cad命令欄輸入第一個命令即可。
! ~' J1 t0 d' q3 _8 B# c

alphazhan

不會的小白路過幫頂                             

20120804

鋸片lisp程序。
在cad里面輸入 appload 加載此文件，再輸入 dejp，看提示一步步執(zhí)行。
推薦測試參數(shù)：
中心點：隨便點
; z8 ^: d# b" t' J0 U8 s直徑：100
* X& A8 x/ k2 d齒數(shù)：20
5 c7 y( t  g0 Z1 c, s前角：0.3
后角；0.3
% w- L: Q; A6 Y* J然后手動畫圓弧3，看提示，注意切點位置，點不好就畫不出來。
% G% j( v3 v* \6 a( U) c+ [然后看提示，手動選擇圓弧2頂部一點，再手動選擇圓弧3底部一點以打斷。
+ u" M  x2 e  Z) Y自動陣列，完成。
7 S1 X* n5 A" u: D- d) Y丟了幾年，再揀起來挺費力，沒精力給您做成自動檔的了，湊合用吧，半自動也挺快的。
/ F8 R/ m7 l# P& n- c另外您給的數(shù)據(jù)，槽底半徑和槽深度重復(fù)了，我只以槽底半徑為準(zhǔn)，忽略深度。
' U: i6 M+ P5 a1 \0 s


# I7 e% {( }% j; S& \
. y, I6 i! d. N7 h

玩彩518

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