机械必威体育网址
标题:
AUTOCAD VBA的宏 ，求助高手
[打印本页]
作者:
龙九禅师
时间:
2012-5-21 17:09
标题:
AUTOCAD VBA的宏 ，求助高手
真心求这么段参数化绘图程序 感谢各位的帮助~！！
作者:
20120804
时间:
2012-5-21 20:03
本帖最后由 韦编三绝 于 2012-5-21 20:05 编辑
: _& W5 z. |$ N, R/ E! t
; P* p, V7 T; q4 j) L1 T; W1 n8 _ Z }
这么简单的东西，建议楼主用lisp即可搞定，无需用vba。
: H# J+ h( L& n4 a
但我已多年不碰，早忘记光了。
作者:
蓝兔子
时间:
2012-5-21 20:41
会用A utoCAD的话'这些应该不难
作者:
hzhfjpt
时间:
2012-5-21 20:56
我曾经有那么一种想研究VBA和lisp的冲动
7 _. E, ]5 P7 K- t! N
一想，输入几个数字，图形就出来了，多好
" Z6 f8 c- V1 a4 G
可是后来又一想
% E& K6 i1 a5 H' O( `5 O/ ]
我需要自动出图的图形不多，标准件直接由画图软件生产的
" b7 ?/ \; b* y1 |# z
真到学有所成能自动画图的时候，要花多少时间？能省多少时间？
9 |( M! ^8 {# x g
来回一算，得了，在编程的门槛上往里一瞥，扭头走了
; ~1 o8 y) S1 D( }" R E. z
想来，当时能钻研个入门，也许也是不错的，因为，没钻研，时间也就这么过来了
作者:
hzhfjpt
时间:
2012-5-21 21:01
扯淡完我班门弄斧一下，说一下我的笨办法
9 k: B. ?, m2 C
1.在EXCEL里填好公式，把各个数据的关系搞好。这样，每次画之前，把已知数据一输入，绘图尺寸自动生成
" U. J' v# B) M+ {/ [7 L
2，照1中的数据画一个齿（这个大家都会吧）。。。
( w# f8 t# w4 l# j
3，阵列一下（这个大家也都会吧）。。。。。
1 a6 z1 ~* r& C! z6 W9 r' w/ I
! a) j$ O( t% c: V6 q$ [+ l6 y1 W9 i- h
呵呵，就是这个笨办法啊
作者:
龙九禅师
时间:
2012-5-21 21:29
愧疚 愧疚~！！！记得当年毕业设计做的就是 《VB程序开发齿轮滚刀参数化绘制工具》。。。。时光流逝 转眼而立之年 一路走来都是在边拣边弃 学习了解了新的知识同时也忘却了一些最基本理论知识。。。。就好比CAD一般 我们最早要自己画图框，画螺栓 画螺母再到后来出现了块 再到后来出现了那么多标准化插件。。。现如今 作为工程技术人员 在不去翻书情况下又有几个还能用图板，三角板，圆规去画出个椭圆来。。。还几个记得空间投影几何。。。。。 无奈啊~！！！
作者:
20120804
时间:
2012-5-21 22:11
别想那么难。真心编的话，lisp应该不超过50行。
7 U' K% v% R, S* t2 s$ `; B6 q
其实你只需要计算9个点的坐标而已，锯片圆心点、直线的两端点、两个圆弧的圆心及起点终点。
h6 G) F( s q2 @! l5 Y* S
然后用三个绘图命令，再加一个阵列命令就搞定了。
+ E8 {' ]8 ]: z" U1 E, N1 z
起步方法是编写一条直线命令，然后测试一下，成功了，就以此为基础，慢慢衍生开来。
; t- k& y7 @/ I# C1 J9 }
其实大型程序都是从一行最简单的代码衍生出来的。
4 y% G+ a( V% }0 A- i X
给个以前的例子，楼主参考吧。我是不想再研究这个了，太累了。
5 h0 a5 F/ |$ l, ~: Q" k* Y* }0 L
解压到e盘，然后在cad命令栏输入第一个命令即可。
8 Q* }- n. Q" r
[attach]250291[/attach]
6 ?' @/ g1 c* F9 x6 O9 s
作者:
alphazhan
时间:
2012-5-22 09:58
不会的小白路过帮顶
作者:
20120804
时间:
2012-5-24 00:08
本帖最后由 韦编三绝 于 2012-5-24 00:12 编辑
+ g( T0 p$ j9 F; y" E
5 `. K4 f. J3 \ X2 C( p
锯片lisp程序。
; \ D, K3 W; }. B
在cad里面输入 appload 加载此文件，再输入 dejp，看提示一步步执行。
' d1 W9 f7 P0 k7 x6 F8 h+ ~
推荐测试参数：
! N. n7 v: l* {
中心点：随便点
6 {3 |- [( X1 t/ v" b9 Q
直径：100
4 O$ w, I5 O4 k" A/ a
齿数：20
% |$ U5 m/ S* K+ k3 ?' `
前角：0.3
9 m+ P$ }6 g3 _6 i+ ^5 h9 ]4 E7 o
后角；0.3
3 z4 \8 e, n% ^' B+ b6 T* h
然后手动画圆弧3，看提示，注意切点位置，点不好就画不出来。
9 m+ U* L+ L, a
然后看提示，手动选择圆弧2顶部一点，再手动选择圆弧3底部一点以打断。
3 b+ s& m& A! W! l8 M% M' d$ s5 j
自动阵列，完成。
" G5 Z4 v/ g4 X+ V; Y0 P* i
丢了几年，再拣起来挺费力，没精力给您做成自动档的了，凑合用吧，半自动也挺快的。
; @, }& U7 [1 t) z6 r# z [5 q' S
另外您给的数据，槽底半径和槽深度重复了，我只以槽底半径为准，忽略深度。
( B5 @; W% a8 T
1 c& j5 y" |2 t8 @* X1 j
[attach]250496[/attach]
3 f; z( W1 w+ M- D: L; d
S0 }9 T, R0 E3 S/ b
[attach]250495[/attach]
8 U: S: m" }1 ?/ u! w( o
作者:
玩彩518
时间:
2012-5-24 00:31
必威APP精装版下载里的高手还真不少！cad我刚入门
作者:
龙九禅师
时间:
2012-5-26 02:32
首先感谢韦编三绝 的积极帮忙 但也许是本人描述问题还不够清晰 韦编三绝 帮忙弄的程序还存在略微错误
2 ~% e& Y- ?' B' n. l. _: P
命令提示行提示输入的参数应该是如下：
( r* U/ x. C! i7 I& ?; }
1 锯片圆心坐标
& B8 C8 s, u! S% }( H) |
2 锯片前角 （单位为度）
) G- x) \6 {6 L+ \
3锯片后角（单位为度）
" y: ^9 ]1 F: P" Y8 d' ~
4 锯片齿数
" j4 c8 _7 G9 G6 T
5锯片半径
8 b3 \4 [$ o: c$ q% j
恳请韦编三绝 再帮忙处理下 若有用到第一段斜直线方程及第二段圆弧方程和圆心坐标方程以及第三段圆弧方程和圆心坐标方程可回复索取！ 感谢~！！！！
作者:
20120804
时间:
2012-5-26 09:45
拿去，再休来聒噪。
s0 w2 u) j9 u4 [
# o6 k8 \/ ^) A9 B6 h# `
[attach]250681[/attach]
, l9 O; T4 p5 O! d6 W6 l1 h. z
作者:
龙九禅师
时间:
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
经过反复验证 原来是自己错了 ！ 惭愧！
9 L* p5 f1 H+ J$ L
韦编三绝所运用的各个坐标点及圆和直线方程等均毫无错误~！！！ 程序代码更是无一错误，由衷地佩服并感激！
: j) s: H7 r B9 O
最后恳请韦编三绝做最后润色 也即附加一项功能（在输入各个参数后在所绘制的图形下方也显示出所输入的参数（便于区分之用））
作者:
20120804
时间:
2012-5-27 11:05
[attach]250779[/attach]
作者:
20120804
时间:
2012-5-27 14:18
本帖最后由 韦编三绝 于 2012-5-27 14:20 编辑
/ V$ Z3 I# w& }8 j6 `
. r8 e% }7 D# ?* u: }# Z
[attach]250788[/attach]
( _5 _: p4 K, K3 Z+ A$ M
: |- @2 {3 B, l3 ~$ s
[attach]250786[/attach]
" ?2 s& q0 v9 r
, d5 g) X+ ]2 j/ Y
作者:
shudapeng
时间:
2012-10-13 09:12
看来俺的cad还是很烂的惭愧惭愧{:soso_e164:}，还要学学再学学。
欢迎光临 机械必威体育网址 (//www.szfco.com/)
Powered by Discuz! X3.4