久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱
機(jī)械社區(qū)
標(biāo)題:
AUTOCAD VBA的宏 ，求助高手
[打印本頁]
作者:
龍九禪師
時間:
2012-5-21 17:09
標(biāo)題:
AUTOCAD VBA的宏 ，求助高手
真心求這么段參數(shù)化繪圖程序 感謝各位的幫助~！！
作者:
20120804
時間:
2012-5-21 20:03
本帖最后由 韋編三絕 于 2012-5-21 20:05 編輯
) J% l8 X% b2 B4 s
) d' Q( C9 b4 l/ u
這么簡單的東西，建議樓主用lisp即可搞定，無需用vba。
4 I) W& @, k+ x, I1 m6 b- l3 s
但我已多年不碰，早忘記光了。
作者:
藍(lán)兔子
時間:
2012-5-21 20:41
會用A utoCAD的話'這些應(yīng)該不難
作者:
hzhfjpt
時間:
2012-5-21 20:56
我曾經(jīng)有那么一種想研究VBA和lisp的沖動
2 Q4 m, E& f/ J9 v0 r
一想，輸入幾個數(shù)字，圖形就出來了，多好
( x$ b! R; P! F t# n
可是后來又一想
+ y* K% ^& G; c) m3 Y
我需要自動出圖的圖形不多，標(biāo)準(zhǔn)件直接由畫圖軟件生產(chǎn)的
# N& U, i: s+ Q! Q0 T6 e
真到學(xué)有所成能自動畫圖的時候，要花多少時間？能省多少時間？
7 b+ ?$ g, e! `7 g+ \1 S/ D8 p/ ^
來回一算，得了，在編程的門檻上往里一瞥，扭頭走了
' d a, \0 q) E
想來，當(dāng)時能鉆研個入門，也許也是不錯的，因?yàn)椋瑳]鉆研，時間也就這么過來了
作者:
hzhfjpt
時間:
2012-5-21 21:01
扯淡完我班門弄斧一下，說一下我的笨辦法
" ]1 ^' V* N4 e9 N4 d; A2 n) w
1.在EXCEL里填好公式，把各個數(shù)據(jù)的關(guān)系搞好。這樣，每次畫之前，把已知數(shù)據(jù)一輸入，繪圖尺寸自動生成
' D' P. B1 Y; n0 ]& J
2，照1中的數(shù)據(jù)畫一個齒（這個大家都會吧）。。。
& p" D: K8 \' k+ O H2 s5 C3 u# q
3，陣列一下（這個大家也都會吧）。。。。。
) Z# f! P* r0 ]3 L
! |3 f( S' A2 ~0 x
呵呵，就是這個笨辦法啊
作者:
龍九禪師
時間:
2012-5-21 21:29
愧疚 愧疚~！！！記得當(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
時間:
2012-5-21 22:11
別想那么難。真心編的話，lisp應(yīng)該不超過50行。
5 @7 g6 q1 Y. x: x
其實(shí)你只需要計算9個點(diǎn)的坐標(biāo)而已，鋸片圓心點(diǎn)、直線的兩端點(diǎn)、兩個圓弧的圓心及起點(diǎn)終點(diǎn)。
* c% H# l$ p" e
然后用三個繪圖命令，再加一個陣列命令就搞定了。
2 D% U% t! P# W) H, h
起步方法是編寫一條直線命令，然后測試一下，成功了，就以此為基礎(chǔ)，慢慢衍生開來。
9 _3 _2 q! j3 c0 I7 q
其實(shí)大型程序都是從一行最簡單的代碼衍生出來的。
0 D I2 L& U+ V3 ~
給個以前的例子，樓主參考吧。我是不想再研究這個了，太累了。
6 W, y1 ` p+ _; v
解壓到e盤，然后在cad命令欄輸入第一個命令即可。
" r f8 ^5 Z8 L) e) k. M; h% {
[attach]250291[/attach]
! k* B8 {4 P8 E
作者:
alphazhan
時間:
2012-5-22 09:58
不會的小白路過幫頂
作者:
20120804
時間:
2012-5-24 00:08
本帖最后由 韋編三絕 于 2012-5-24 00:12 編輯
6 r/ d) Z. h9 H/ n% ~8 c
# m5 I) N6 x: i" V+ P$ v) x
鋸片lisp程序。
6 i P4 Q8 j5 |+ l2 U2 w% i
在cad里面輸入 appload 加載此文件，再輸入 dejp，看提示一步步執(zhí)行。
# W: D) F: ^2 i0 }( s7 w
推薦測試參數(shù)：
- I: b1 ^3 o* g7 }; g& G- C
中心點(diǎn)：隨便點(diǎn)
& q+ O. x- q* q+ `. J, P3 {! e
直徑：100
# X$ B P& u* K3 b! C6 n: W
齒數(shù)：20
* N0 O5 }) Q7 _3 x
前角：0.3
" Z6 j6 \( @$ E
后角；0.3
/ g! [2 A9 E' _) G. \" E
然后手動畫圓弧3，看提示，注意切點(diǎn)位置，點(diǎn)不好就畫不出來。
5 S- U m$ b; p8 o# {
然后看提示，手動選擇圓弧2頂部一點(diǎn)，再手動選擇圓弧3底部一點(diǎn)以打斷。
9 a0 E' \. {, U8 Z, t
自動陣列，完成。
: n b0 a& M; m# F" r& H: S) k0 [
丟了幾年，再揀起來挺費(fèi)力，沒精力給您做成自動檔的了，湊合用吧，半自動也挺快的。
C3 U' m5 }" J3 Z. m* T
另外您給的數(shù)據(jù)，槽底半徑和槽深度重復(fù)了，我只以槽底半徑為準(zhǔn)，忽略深度。
; U/ A8 {9 C# p
# g' \) X) @1 n. i2 I, \0 r* H8 ~
[attach]250496[/attach]
/ a, Q0 m: y6 d7 A( T: d$ y( W
1 Y# `7 J2 ?# x; A$ X* {
[attach]250495[/attach]
; o2 q, X- |8 s, }
作者:
玩彩518
時間:
2012-5-24 00:31
論壇里的高手還真不少！cad我剛?cè)腴T
作者:
龍九禪師
時間:
2012-5-26 02:32
首先感謝韋編三絕 的積極幫忙 但也許是本人描述問題還不夠清晰 韋編三絕 幫忙弄的程序還存在略微錯誤
0 E0 [: Q4 `: y' s! R2 q; A) o l
命令提示行提示輸入的參數(shù)應(yīng)該是如下：
9 E3 D1 q7 }1 w% n. r7 N
1 鋸片圓心坐標(biāo)
+ y; m5 }! ]. k. k2 M* F; I
2 鋸片前角 （單位為度）
% l: M9 V3 V& R7 c7 x
3鋸片后角（單位為度）
" ]+ w; O2 v0 t: e( F
4 鋸片齒數(shù)
3 ~( M& ^4 z' U6 p+ K& A2 D! M% u
5鋸片半徑
" q5 k1 J$ V7 B) ~* @
懇請韋編三絕 再幫忙處理下 若有用到第一段斜直線方程及第二段圓弧方程和圓心坐標(biāo)方程以及第三段圓弧方程和圓心坐標(biāo)方程可回復(fù)索取！ 感謝~！！！！
作者:
20120804
時間:
2012-5-26 09:45
拿去，再休來聒噪。
) ~" m b# v$ p
3 Z' ^* \+ \4 _6 @
[attach]250681[/attach]
( H# u& n9 H+ D, G1 m) I
作者:
龍九禪師
時間:
2012-5-26 13:10
已基本修正完整，但下載后用此程序畫出圖形與單張所繪圖形存在差異（相同參數(shù)設(shè)置下程序繪制的圖形不能與單張繪制圖形實(shí)現(xiàn)完全重合）標(biāo)注后發(fā)現(xiàn)兩圖數(shù)值亦不一致。。。。。只能言其只有形似 且不達(dá)神似。 （初步判斷是程序內(nèi)設(shè)置的數(shù)值精度問題引起） 懇望韋編三絕 做最后一次修正！感謝！·！
作者:
龍九禪師
時間:
2012-5-26 13:25
建議其計算精度取小數(shù)點(diǎn)后6位試試，若還存在同樣問題 只能是說幾段弧的圓心坐標(biāo)存在問題了
作者:
龍九禪師
時間:
2012-5-26 18:47
附： 在輸入必要的參數(shù)后在所繪制的圖形下方也顯示出所輸入的參數(shù)。感謝！
作者:
20120804
時間:
2012-5-26 19:58
能把話說明白點(diǎn)不？能貼個圖不？
作者:
龍九禪師
時間:
2012-5-27 04:47
經(jīng)過反復(fù)驗(yàn)證 原來是自己錯了 ！ 慚愧！
; J6 K/ ~0 _. h& L% c$ n, b* ]
韋編三絕所運(yùn)用的各個坐標(biāo)點(diǎn)及圓和直線方程等均毫無錯誤~！！！ 程序代碼更是無一錯誤，由衷地佩服并感激！
' a/ J0 S+ X+ {% m' r8 W" G2 e
最后懇請韋編三絕做最后潤色 也即附加一項(xiàng)功能（在輸入各個參數(shù)后在所繪制的圖形下方也顯示出所輸入的參數(shù)（便于區(qū)分之用））
作者:
20120804
時間:
2012-5-27 11:05
[attach]250779[/attach]
作者:
20120804
時間:
2012-5-27 14:18
本帖最后由 韋編三絕 于 2012-5-27 14:20 編輯
4 A) v( a) j; h! X
4 k" O5 e& `: d- y. O1 Q
[attach]250788[/attach]
$ ]' r& s" j& R- L- A
% P& m% x- U; N7 p, b% E/ U
[attach]250786[/attach]
! |' k. k* ?, h! g9 u! n* _
& k. \+ d T7 w, Y( q
作者:
shudapeng
時間:
2012-10-13 09:12
看來俺的cad還是很爛的慚愧慚愧{:soso_e164:}，還要學(xué)學(xué)再學(xué)學(xué)。
歡迎光臨 機(jī)械社區(qū) (http://www.ytsybjq.com/)
Powered by Discuz! X3.5