国产精品乱码一区-性开放网站-少妇又紧又爽视频-西西大胆午夜人体视频-国产极品一区-欧美成人tv-四虎av在线-国产无遮挡无码视频免费软件-中文字幕亚洲乱码熟女一区二区-日产精品一区二区三区在线观看-亚洲国产亚综合在线区-五月婷婷综合色-亚洲日本视频在线观看-97精品人人妻人人-久久久久久一区二区三区四区别墅-www.免费av-波多野结衣绝顶大高潮-日本在线a一区视频高清视频-强美女免费网站在线视频-亚洲永久免费

機械社區

標題: AUTOCAD VBA的宏 ，求助高手 [打印本頁]
作者: 龍九禪師    時間: 2012-5-21 17:09
標題: AUTOCAD VBA的宏 ，求助高手
真心求這么段參數化繪圖程序   感謝各位的幫助~！！
作者: 20120804    時間: 2012-5-21 20:03
本帖最后由 韋編三絕 于 2012-5-21 20:05 編輯
, W  Q; e* A5 y3 z; n. l% x% H. V, U# m1 X  X1 G
這么簡單的東西，建議樓主用lisp即可搞定，無需用vba。
& U; ~7 t1 n9 y但我已多年不碰，早忘記光了。
作者: 藍兔子    時間: 2012-5-21 20:41
會用A utoCAD的話'這些應該不難
作者: hzhfjpt    時間: 2012-5-21 20:56
我曾經有那么一種想研究VBA和lisp的沖動
: C9 U  y1 [0 t: ]! l) ^+ w一想，輸入幾個數字，圖形就出來了，多好$ l! k# z+ ~  N/ d
可是后來又一想
/ V& P/ @. ?2 t: Z) H我需要自動出圖的圖形不多，標準件直接由畫圖軟件生產的
' K! p: |. ]$ P2 V& E) T. o真到學有所成能自動畫圖的時候，要花多少時間？能省多少時間？
' E$ t9 h! S1 q+ Z" I4 H; n, f來回一算，得了，在編程的門檻上往里一瞥，扭頭走了. K; c2 C8 y. y2 i' K5 B9 p, D
想來，當時能鉆研個入門，也許也是不錯的，因為，沒鉆研，時間也就這么過來了
作者: hzhfjpt    時間: 2012-5-21 21:01
扯淡完我班門弄斧一下，說一下我的笨辦法
3 @# u/ B- y" y# J1.在EXCEL里填好公式，把各個數據的關系搞好。這樣，每次畫之前，把已知數據一輸入，繪圖尺寸自動生成
3 a' R) z% E% w0 _# K( w+ ~$ B* r$ w; {2，照1中的數據畫一個齒（這個大家都會吧）。。。
0 V; ]) h0 v# R3，陣列一下（這個大家也都會吧）。。。。。0 t  ~# B; G! U2 h: r/ P
+ R" G8 m! Y2 T- s( Q: g/ ^2 s4 V' W
呵呵，就是這個笨辦法啊
作者: 龍九禪師    時間: 2012-5-21 21:29
愧疚  愧疚~！！！記得當年畢業設計做的就是  《VB程序開發齒輪滾刀參數化繪制工具》。。。。時光流逝  轉眼而立之年  一路走來都是在邊揀邊棄 學習了解了新的知識同時也忘卻了一些最基本理論知識。。。。就好比CAD一般  我們最早要自己畫圖框，畫螺栓 畫螺母再到后來出現了塊  再到后來出現了那么多標準化插件。。。現如今 作為工程技術人員 在不去翻書情況下又有幾個還能用圖板，三角板，圓規去畫出個橢圓來。。。還幾個記得空間投影幾何。。。。。   無奈啊~！！！
作者: 20120804    時間: 2012-5-21 22:11
別想那么難。真心編的話，lisp應該不超過50行。
0 E% P  y! j' _6 G4 }% ]其實你只需要計算9個點的坐標而已，鋸片圓心點、直線的兩端點、兩個圓弧的圓心及起點終點。$ Z, G) v& y- M( w) v% H% e
然后用三個繪圖命令，再加一個陣列命令就搞定了。* ~; O1 ]! X, Y
起步方法是編寫一條直線命令，然后測試一下，成功了，就以此為基礎，慢慢衍生開來。
( l- g0 V) ~# x( R: l, i, p其實大型程序都是從一行最簡單的代碼衍生出來的。+ ]2 K  [4 ?  y4 j
給個以前的例子，樓主參考吧。我是不想再研究這個了，太累了。
9 E, l7 V2 S9 p1 [9 E) n! u0 o$ V8 w解壓到e盤，然后在cad命令欄輸入第一個命令即可。, K9 m& s+ \8 `" s3 q8 Z) A
[attach]250291[/attach]0 J# b' B9 B1 p/ {" g& O" k
作者: alphazhan    時間: 2012-5-22 09:58
不會的小白路過幫頂                             
作者: 20120804    時間: 2012-5-24 00:08
本帖最后由 韋編三絕 于 2012-5-24 00:12 編輯
8 x  ~9 d: m$ T) r7 z: D+ D/ [: ^6 q$ U* D: Z
鋸片lisp程序。- j3 U  `5 W+ F. g
在cad里面輸入 appload 加載此文件，再輸入 dejp，看提示一步步執行。
5 C* G) T& R# v) M推薦測試參數：5 w0 `4 p; X# h8 ?3 d* S
中心點：隨便點
# L0 U' i# o9 F" |1 X, `, F, E1 B3 X. V直徑：100
& g* ]( b3 c% p6 X, b齒數：20
4 H  g! G. F7 Z' F# _前角：0.3
; J: s$ E# O) v9 r- C后角；0.3
" [7 K* @& y* ?# D/ t/ {" ?然后手動畫圓弧3，看提示，注意切點位置，點不好就畫不出來。% G7 x1 N* v5 \" y( l: m
然后看提示，手動選擇圓弧2頂部一點，再手動選擇圓弧3底部一點以打斷。- }! ~  m, u8 f6 V- r  q
自動陣列，完成。7 V: I" i. r2 \5 R4 Z
丟了幾年，再揀起來挺費力，沒精力給您做成自動檔的了，湊合用吧，半自動也挺快的。
& O+ X3 q! e3 {; B: w另外您給的數據，槽底半徑和槽深度重復了，我只以槽底半徑為準，忽略深度。
2 A4 q0 U6 m& R' @2 z- T
+ h2 w% G. Q$ a, o! b% l[attach]250496[/attach]! Z9 C9 c  L3 e. r% Y

" I; k- i; B; O2 t[attach]250495[/attach]
0 `+ s3 }5 ~0 N  q4 o; f
作者: 玩彩518    時間: 2012-5-24 00:31
論壇里的高手還真不少！cad我剛入門
作者: 龍九禪師    時間: 2012-5-26 02:32
首先感謝韋編三絕 的積極幫忙  但也許是本人描述問題還不夠清晰  韋編三絕 幫忙弄的程序還存在略微錯誤
/ e9 n" j2 N7 }" w( L命令提示行提示輸入的參數應該是如下：' Q3 l( y0 l6 r; m
1 鋸片圓心坐標
9 o  C3 }' F3 X' P$ d2 鋸片前角 （單位為度）
! l# c% L" [2 N3鋸片后角（單位為度）
5 X' \6 V4 w/ a* T) p; _4 鋸片齒數) G* i. ]! j! `1 H% ?
5鋸片半徑
! V- x: ]5 _2 E懇請韋編三絕 再幫忙處理下  若有用到第一段斜直線方程及第二段圓弧方程和圓心坐標方程以及第三段圓弧方程和圓心坐標方程可回復索取！  感謝~！！！！
作者: 20120804    時間: 2012-5-26 09:45
拿去，再休來聒噪。- G' o' V( Y; }4 p2 d* X1 V+ ]
) S$ t; p" y5 O7 Q8 J) D0 t; e
[attach]250681[/attach]
- y2 E. J5 R4 {1 N7 P
作者: 龍九禪師    時間: 2012-5-26 13:10
已基本修正完整，但下載后用此程序畫出圖形與單張所繪圖形存在差異（相同參數設置下程序繪制的圖形不能與單張繪制圖形實現完全重合）標注后發現兩圖數值亦不一致。。。。。只能言其只有形似 且不達神似。 （初步判斷是程序內設置的數值精度問題引起） 懇望韋編三絕 做最后一次修正！感謝！·！
作者: 龍九禪師    時間: 2012-5-26 13:25
建議其計算精度取小數點后6位試試，若還存在同樣問題 只能是說幾段弧的圓心坐標存在問題了
作者: 龍九禪師    時間: 2012-5-26 18:47
附： 在輸入必要的參數后在所繪制的圖形下方也顯示出所輸入的參數。感謝！
作者: 20120804    時間: 2012-5-26 19:58
能把話說明白點不？能貼個圖不？
作者: 龍九禪師    時間: 2012-5-27 04:47
經過反復驗證  原來是自己錯了 ！ 慚愧！
1 n% C8 K% Y2 V韋編三絕所運用的各個坐標點及圓和直線方程等均毫無錯誤~！！！ 程序代碼更是無一錯誤，由衷地佩服并感激！
% M% a. }; o) J& E, O最后懇請韋編三絕做最后潤色   也即附加一項功能（在輸入各個參數后在所繪制的圖形下方也顯示出所輸入的參數（便于區分之用））
作者: 20120804    時間: 2012-5-27 11:05
[attach]250779[/attach]
作者: 20120804    時間: 2012-5-27 14:18
本帖最后由 韋編三絕 于 2012-5-27 14:20 編輯
# D; _& V1 m9 G% ?5 L; j- f7 M$ u
[attach]250788[/attach]8 m  h% \  \' M/ u. g
2 E) U' y2 o& F  J0 c) i1 Y# K* u
[attach]250786[/attach]
' K  ^$ t- q3 X3 w+ e2 w
% S1 N( ^/ I6 J) ]4 x! M
作者: shudapeng    時間: 2012-10-13 09:12
看來俺的cad還是很爛的慚愧慚愧{:soso_e164:}，還要學學再學學。



歡迎光臨 機械社區 (http://m.whclglass.com.cn/) Powered by Discuz! X3.5