AUTOCAD VBA的宏 ，求助高手

龍九禪師

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

20120804

1 S% S" `  c+ z( x
( H3 p4 A& i. e, _" l這么簡單的東西，建議樓主用lisp即可搞定，無需用vba。
但我已多年不碰，早忘記光了。

藍兔子

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

hzhfjpt

我曾經有那么一種想研究VBA和lisp的沖動
一想，輸入幾個數字，圖形就出來了，多好
+ y! _; A6 i, k! I4 i可是后來又一想
我需要自動出圖的圖形不多，標準件直接由畫圖軟件生產的
真到學有所成能自動畫圖的時候，要花多少時間？能省多少時間？
來回一算，得了，在編程的門檻上往里一瞥，扭頭走了
+ y- B3 ^8 E7 C$ K想來，當時能鉆研個入門，也許也是不錯的，因為，沒鉆研，時間也就這么過來了

hzhfjpt

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

9 p/ U7 [. P! M9 n5 E3 `呵呵，就是這個笨辦法啊

龍九禪師

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

20120804

別想那么難。真心編的話，lisp應該不超過50行。
) Y9 U/ C8 O& F其實你只需要計算9個點的坐標而已，鋸片圓心點、直線的兩端點、兩個圓弧的圓心及起點終點。
然后用三個繪圖命令，再加一個陣列命令就搞定了。
起步方法是編寫一條直線命令，然后測試一下，成功了，就以此為基礎，慢慢衍生開來。
其實大型程序都是從一行最簡單的代碼衍生出來的。
  ^% Z3 W9 d  W- f給個以前的例子，樓主參考吧。我是不想再研究這個了，太累了。
解壓到e盤，然后在cad命令欄輸入第一個命令即可。

7 r! s& S/ d9 U% h

alphazhan

不會的小白路過幫頂                             

20120804

1 Y: `) |! T- l6 o# j9 t4 H
鋸片lisp程序。
) }6 v9 J: Y! z4 ~在cad里面輸入 appload 加載此文件，再輸入 dejp，看提示一步步執行。
推薦測試參數：
中心點：隨便點
$ J+ J# ?. P# @1 a7 O- {9 h直徑：100
  v4 F2 i, U; Q$ p' I齒數：20
3 t' W/ J2 O- T) D前角：0.3
后角；0.3
然后手動畫圓弧3，看提示，注意切點位置，點不好就畫不出來。
然后看提示，手動選擇圓弧2頂部一點，再手動選擇圓弧3底部一點以打斷。
自動陣列，完成。
! W5 ~7 Q! S& C4 Z$ f8 S丟了幾年，再揀起來挺費力，沒精力給您做成自動檔的了，湊合用吧，半自動也挺快的。
另外您給的數據，槽底半徑和槽深度重復了，我只以槽底半徑為準，忽略深度。


6 P4 i, {- I3 {' j# y

! o5 C1 s4 U1 t+ }

玩彩518

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