AUTOCAD VBA的宏 ，求助高手

龙九禅师

真心求这么段参数化绘图程序   感谢各位的帮助~！！

20120804

$ e; @; T- D. V
1 M- [  s: _( q/ `% |5 K这么简单的东西，建议楼主用lisp即可搞定，无需用vba。
" N9 u2 A$ ?1 }; u6 ^9 g8 I但我已多年不碰，早忘记光了。

蓝兔子

会用A utoCAD的话'这些应该不难

hzhfjpt

我曾经有那么一种想研究VBA和lisp的冲动
$ ?/ n" y# X0 x& L一想，输入几个数字，图形就出来了，多好
可是后来又一想
0 C! S# U. ~. U9 O7 x3 a" |我需要自动出图的图形不多，标准件直接由画图软件生产的
真到学有所成能自动画图的时候，要花多少时间？能省多少时间？
/ Z1 [% ^. x  y. z- w来回一算，得了，在编程的门槛上往里一瞥，扭头走了
& D, n; i; s' ~; U- ^( Z$ o  s3 q想来，当时能钻研个入门，也许也是不错的，因为，没钻研，时间也就这么过来了

hzhfjpt

扯淡完我班门弄斧一下，说一下我的笨办法
9 U3 g+ f: |7 F- c* Z  c( E1 v1.在EXCEL里填好公式，把各个数据的关系搞好。这样，每次画之前，把已知数据一输入，绘图尺寸自动生成
, x* y5 \* F( n# Y, ]2，照1中的数据画一个齿（这个大家都会吧）。。。
3，阵列一下（这个大家也都会吧）。。。。。

呵呵，就是这个笨办法啊

龙九禅师

愧疚  愧疚~！！！记得当年毕业设计做的就是  《VB程序开发齿轮滚刀参数化绘制工具》。。。。时光流逝  转眼而立之年  一路走来都是在边拣边弃 学习了解了新的知识同时也忘却了一些最基本理论知识。。。。就好比CAD一般  我们最早要自己画图框，画螺栓 画螺母再到后来出现了块  再到后来出现了那么多标准化插件。。。现如今 作为工程技术人员 在不去翻书情况下又有几个还能用图板，三角板，圆规去画出个椭圆来。。。还几个记得空间投影几何。。。。。   无奈啊~！！！

20120804

别想那么难。真心编的话，lisp应该不超过50行。
& }4 d2 b/ Z! r* Y其实你只需要计算9个点的坐标而已，锯片圆心点、直线的两端点、两个圆弧的圆心及起点终点。
& m% [" r# f/ ]然后用三个绘图命令，再加一个阵列命令就搞定了。
# {& ^; j7 x. d+ n' C起步方法是编写一条直线命令，然后测试一下，成功了，就以此为基础，慢慢衍生开来。
4 T5 I) ]% `" l其实大型程序都是从一行最简单的代码衍生出来的。
给个以前的例子，楼主参考吧。我是不想再研究这个了，太累了。
解压到e盘，然后在cad命令栏输入第一个命令即可。
! A! }# `  G$ ^. R* W- `
( w; S1 O2 z: v( P3 f2 w

alphazhan

不会的小白路过帮顶                             

20120804

& O: ^2 \# p! E3 j, E
锯片lisp程序。
# ?! t5 s5 E/ b: Z( s: x2 x在cad里面输入 appload 加载此文件，再输入 dejp，看提示一步步执行。
* `7 `' ~6 o5 {' L7 ~. e推荐测试参数：
2 v/ f0 I9 A! k: v6 e- L中心点：随便点
+ T8 j4 p2 \/ S) g直径：100
齿数：20
! Z9 a  Z- |, i3 h5 H8 V2 _前角：0.3
后角；0.3
8 D/ R& e7 R8 f& D0 ^: b然后手动画圆弧3，看提示，注意切点位置，点不好就画不出来。
: S6 ~- g$ J4 V7 h: ]( W然后看提示，手动选择圆弧2顶部一点，再手动选择圆弧3底部一点以打断。
自动阵列，完成。
9 w! `6 N! W2 B/ _% b丢了几年，再拣起来挺费力，没精力给您做成自动档的了，凑合用吧，半自动也挺快的。
, N$ t4 P# }8 D% }! V) K( T另外您给的数据，槽底半径和槽深度重复了，我只以槽底半径为准，忽略深度。
" X! I5 \3 p$ Y* L# I

# j$ {$ W) [5 |! v6 t6 M

玩彩518

必威APP精装版下载里的高手还真不少！cad我刚入门