QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
goto3d 说: 版主微信号:caivin811031;还未入三维微信群的小伙伴,速度加
2022-07-04
全站
goto3d 说: 此次SW竞赛获奖名单公布如下,抱歉晚了,版主最近太忙:一等奖:塔山817;二等奖:a9041、飞鱼;三等奖:wx_dfA5IKla、xwj960414、bzlgl、hklecon;请以上各位和版主联系,领取奖金!!!
2022-03-11
楼主: woaishuijia
收起左侧

[原创] autocad二次开发(VBA)就这么简单

[复制链接]
发表于 2013-2-2 14:20:14 | 显示全部楼层
woaishuijia 发表于 2007-1-9 10:11 static/image/common/back.gif( G: B, [! H9 r# p  n! b' }
既然有网友对这个话题感兴趣,就再画个圆玩玩。1 a& n) X# j& [( O0 J) L
% \' Q7 E2 _9 G$ J9 |9 O
Sub 画个圆玩玩()
" C/ K5 F; o8 M( _2 B. M& ]
楼主是怎么知道这些的啊?是通过什么方式学习的啊?
发表于 2013-2-3 12:04:20 | 显示全部楼层
zhuxingyin 发表于 2008-12-1 10:27 static/image/common/back.gif. ~. s) G) V. G6 e  h; ^. J
原来CAD有这么强的呀,不知道2004版的支持VBA否?

$ Y; z, U' \% [  t, z) G6 ]0 XCAD2004支持VBA的
发表于 2013-2-21 23:15:14 | 显示全部楼层
看起来很简单,明天也学一学
发表于 2013-5-1 21:13:44 | 显示全部楼层
woaishuijia 发表于 2012-12-21 14:34 static/image/common/back.gif; c4 O/ ]8 K8 c, @" B
当然可以
: h1 I" D, \5 M+ c& y/ B& n3 F
您好!请问没有命令的VLX程序怎样在CAD里运行?怎样用一个LSP文件来引导运行没有命令的VLX程序?
 楼主| 发表于 2013-5-3 07:50:24 | 显示全部楼层
fcm 发表于 2013-5-1 21:13 static/image/common/back.gif
. I4 j4 L9 l' F( A$ v您好!请问没有命令的VLX程序怎样在CAD里运行?怎样用一个LSP文件来引导运行没有命令的VLX程序?

' d. @( R8 A' L: z& n2 Z不知道VLX的函数名就没法用
发表于 2013-5-5 18:33:07 | 显示全部楼层
woaishuijia 发表于 2013-5-3 07:50 static/image/common/back.gif8 T* a5 Q) F6 I* E1 |
不知道VLX的函数名就没法用
: K5 @2 G! M& r( A/ h) y, ~' q
谢谢你的回答!
发表于 2013-5-11 19:47:48 | 显示全部楼层
非常不做,在.NET中也一样应用把
发表于 2013-6-11 16:39:51 | 显示全部楼层
楼主太强大了,深受震撼!
发表于 2013-8-14 16:42:17 | 显示全部楼层
试验成功,中间少输了括号一直出现错误5,继续学习!谢谢前辈分享!!!
发表于 2013-9-1 16:31:54 | 显示全部楼层
很想学这个语言,以前学过C与java语言,感觉没有什么前途,今天看到这个又燃起心中的学习欲望了
发表于 2013-9-23 19:57:52 | 显示全部楼层
看到代码就头大,更不要说从那下手了
发表于 2013-10-8 22:48:27 | 显示全部楼层
一直以來都用AUTOLISP寫功能,希望可以跨入VISUAL的領域
发表于 2013-10-18 12:53:43 | 显示全部楼层
照楼主那样写运行不了是怎么回事3 @/ c; j' f% E2 s7 [3 I
发表于 2013-10-28 11:05:20 | 显示全部楼层
楼主 请问如何将CAD中三维图形的体积输出到数据库中啊
发表于 2013-12-7 17:47:02 | 显示全部楼层
谢楼主共享
发表于 2014-1-12 17:46:07 | 显示全部楼层
楼上的天龙八部能否详述,谢谢
发表于 2018-4-25 00:52:03 | 显示全部楼层
向楼主学习了,真是会者不难,难者不会,前一段时间我也在琢磨CAD 的VBA二次开发,工作中需要,很多时候发现在重复的绘制相同结构只是尺寸稍有不同的图形,打算通过二次开发,建立菜单,通过输入参数直接生成想要的图形,省去人工绘图环节,提高效率,还能标准化,降低错误率,恳请楼主指教一二

点评

欢迎讨论交流  详情 回复 发表于 2018-4-27 18:40
 楼主| 发表于 2018-4-27 18:40:08 | 显示全部楼层
wysong 发表于 2018-4-25 00:520 h" \) T3 v, e0 w3 P
向楼主学习了,真是会者不难,难者不会,前一段时间我也在琢磨CAD 的VBA二次开发,工作中需要,很多时候发 ...

8 p" N8 |# u% A& p欢迎讨论交流
发表于 2018-5-5 20:56:32 | 显示全部楼层
问楼主一个问题,我们公司用的CAD是R14版本的,但是软件好像没有VBA编辑器,我输入VBAIDE的时候软件提示找不到,是怎么回事?是不是需要自己重新装一下CAD或者安装VBA?谢谢

点评

需要安装VBA模块  详情 回复 发表于 2018-5-13 22:52
 楼主| 发表于 2018-5-13 22:52:02 | 显示全部楼层
wysong 发表于 2018-5-5 20:56/ e: d- U  F0 y+ z
问楼主一个问题,我们公司用的CAD是R14版本的,但是软件好像没有VBA编辑器,我输入VBAIDE的时候软件提示找 ...
* P7 t$ v2 G; k5 f5 s
需要安装VBA模块
发表于 2019-1-20 22:43:03 | 显示全部楼层
谢谢楼主,以后还请多指点
发表于 2019-1-20 23:07:07 | 显示全部楼层
woaishuijia 发表于 2018-5-13 22:524 o& w# ~* g$ V8 |( n) }
需要安装VBA模块
- N, h/ U2 B* ~/ i
好像版本低了,装也装不上吧,大概是从2004版以后的才有
发表于 2019-1-21 00:06:08 | 显示全部楼层
另外,我还想请教楼主一个问题,一直困扰着我和我的同事:椭圆弧是不是用VBA画不了,但是可以画椭圆、圆和圆弧

点评

不是。 椭圆和椭圆弧是同一个对象"Ellipse"。它有起点角度“StartAngle“和终点角度“EndAngle“属性。 使用"AddEllipse“方法创建一个"Ellipse"对象时,需要三个参数,即:中心“Center“、椭圆长轴端点"MajorAxi  详情 回复 发表于 2019-1-21 04:28
 楼主| 发表于 2019-1-21 04:28:57 | 显示全部楼层
本帖最后由 woaishuijia 于 2019-1-21 04:35 编辑 2 r( }5 y* G( t  g
wysong 发表于 2019-1-21 00:063 X# }0 f% v6 N' S9 @7 Q/ l; ?
另外,我还想请教楼主一个问题,一直困扰着我和我的同事:椭圆弧是不是用VBA画不了,但是可以画椭圆、圆和 ...

0 Z" e7 t* q) r+ k2 e/ Z不是。" f6 {/ f5 ], o6 ]2 `4 J$ q" U
椭圆和椭圆弧是同一个对象"Ellipse"。它有起点角度“StartAngle“和终点角度“EndAngle“属性。. B1 n! I. w9 P" P$ B5 w- p6 r& O
使用"AddEllipse“方法创建一个"Ellipse"对象时,需要三个参数,即:中心“Center“、椭圆长轴端点"MajorAxis"和半径比例"RadiusRatio"。其中第二个参数"MajorAxis"既是椭圆弧的起点,也是它的终点。创建时它的起点和终点是重合的,是一个完整的椭圆。编辑它的“StartAngle“和(或)“EndAngle“属性,让它的起点和终点不再重合,它就是一个椭圆弧。
7 I' P2 O" u' q# E% z
发表于 2019-1-21 22:18:03 | 显示全部楼层
woaishuijia 发表于 2019-1-21 04:28
, f  ^5 y  r/ O- K8 i% B6 {6 u不是。3 r  G+ H" N9 [* I7 v6 S1 B6 A
椭圆和椭圆弧是同一个对象"Ellipse"。它有起点角度“StartAngle“和终点角度“EndAngle“属性。
( A1 J$ \! V; w; h/ A! a& s ...
! O- J) v; M3 {3 @& X
楼主能否明示一下,帮忙写一下关键的代码,我没有找到你说这个起点、终点,圆弧命令中是有的,谢谢

点评

画出下图中蓝色椭圆弧 [attachimg]2337314[/attachimg]  详情 回复 发表于 2019-1-22 10:10
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备13008828号-1 )

快速回复 返回顶部 返回列表