autocad二次开发(VBA)就这么简单

woaishuijia · 发表于 2019-1-22 10:10:08

本帖最后由 woaishuijia 于 2019-1-22 10:27 编辑

wysong 发表于 2019-1-21 22:18$ f9 l$ I; P; u
楼主能否明示一下，帮忙写一下关键的代码，我没有找到你说这个起点、终点，圆弧命令中是有的，谢谢

画出下图中蓝色椭圆弧
捕获.PNG

Sub A(), |7 Z3 ~; I6 r/ w) S; [
With ThisDrawing; q5 S# F2 J1 ?) ~
1 p) w) x, `3 I# ^) X* [
Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量 As Variant
8 v# Y3 _* i" ^- K' K1 ?/ G3 O' K
0 Q0 I( n; T, p; f8 l1 \
椭圆长轴矢量 = .Utility.PolarPoint(椭圆中心, .Utility.AngleToReal(30, acDegrees), 100)0 Z8 j+ s! t7 ~ c
椭圆中心(0) = 200: 椭圆中心(1) = 1008 h* z6 B( D# s: }
Set 椭圆 = .ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)7 ` n, v) R) f- ]
- a9 p: s3 T& q- R2 Z" {/ O
Dim 辅助直线1 As AcadLine, 辅助直线2数组 As Variant, 直线起点(2) As Double, 直线端点(2) As Double2 L" X4 X1 n$ e$ M. N
: D: r, @) F5 r q8 ?3 N/ u) o
直线起点(0) = 240: 直线起点(1) = 1008 \) Z3 L3 [/ }: [- m6 }
直线端点(0) = 240: 直线端点(1) = 300
Set 辅助直线1 = .ModelSpace.AddLine(直线起点, 直线端点)3 o( O' _' h3 B9 ]# y' Z. Z
辅助直线2数组 = 辅助直线1.Offset(50)
?5 ?, @' W: u6 B1 \& W% f
3 t! `* l6 o) v$ f3 Z! x
Dim 椭圆弧起点 As Variant, 椭圆弧端点 As Variant
( Y2 {) _5 e( O. M# o$ q0 D8 T# i
1 s# D3 R. H% S/ R
椭圆弧起点 = 椭圆.IntersectWith(辅助直线1, acExtendNone)* A1 z- L/ R: o3 `
椭圆弧端点 = 椭圆.IntersectWith(辅助直线2数组(0), acExtendNone)7 S- s5 Q: `( O1 P
椭圆.StartAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧起点) - .Utility.AngleToReal(30, acDegrees)1 B; B- v5 h4 f- x8 v( n
椭圆.EndAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧端点) - .Utility.AngleToReal(30, acDegrees)9 A, Y2 g5 e2 I0 ~: f8 o
2 M+ d2 h l4 \- @
辅助直线1.Delete+ c5 M$ l* y: z0 i# G
辅助直线2数组(0).Delete/ b1 {4 l5 d2 P$ L
: i6 x* T. h& {6 {
End With
! S1 ]" c- w) b3 k
End Sub

复制代码

wysong · 发表于 2019-1-22 22:59:41

woaishuijia 发表于 2019-1-22 10:10
A7 ~+ w- z' h& t( C+ y画出下图中蓝色椭圆弧

非常感谢楼主的解答！
我的理解是1.通过自定义函数实现，因为没有现成的库函数？
2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
不知道我的理解对不对

wysong · 发表于 2019-1-22 23:02:24

woaishuijia 发表于 2019-1-22 10:10
0 u F* l h) D3 v2 M! y画出下图中蓝色椭圆弧

非常感谢楼主的解答！
我的理解是1.通过自定义函数实现，因为没有现成的库函数？
2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
不知道我的理解对不对

woaishuijia · 发表于 2019-1-23 06:39:47

本帖最后由 woaishuijia 于 2019-1-23 07:12 编辑

wysong 发表于 2019-1-22 23:02
, ~! C3 V( ]4 q& ?4 j; l6 J非常感谢楼主的解答！5 F/ a" t4 W0 ^1 v
我的理解是1.通过自定义函数实现，因为没有现成的库函数？
* t0 W3 n( u& o$ J$ `9 K 2.类 ...

看来是我想多了，反而误导你了。

我的本意是举一个尽可能复杂的例子，让你了解在工程应用中如何通过其它边界条件获取椭圆弧的参数，进而创建它的全过程。该例程中的画辅助线、求交点、算角度等语句对于画椭圆弧都不是必要的，我只是想让你通过这个例程理解椭圆弧参数的意义，顺带了解更多的AutoCAD VBA函数及其运用技巧。
实际上，该例程中真正涉及椭圆弧的只有三个语句：

Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)) k! |( a- _# q
椭圆.StartAngle =……/ g' j/ r% J- v9 R
椭圆.EndAngle =……

复制代码

你可以这样理解：AutoCAD VBA中并没有椭圆，只有椭圆弧。用"AddEllipse"方法画出的并不是椭圆，其实是一个首尾重合的椭圆弧，只是看上去像一个完整的椭圆。
和画圆弧（AddArc）方法不同的是:画圆弧时要求你直接指定它的起点角度（StartAngle）和端点角度（EndAngle）参数；而画椭圆弧时，是先画出一个首尾重合的椭圆弧，然后再编辑修改它的起点角度（StartAngle）和（或）端点角度（EndAngle）属性——如果你需要的不是一个首尾重合的椭圆弧的话。
下面是一个简单的画椭圆弧的例子。
画出下图中蓝色的椭圆弧
捕获.PNG

Sub A(), }. n3 d- g8 P
Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
1 ~* U% u: ~& h; l0 J
# A) F m' S O; M# ^
椭圆中心(0) = 200: 椭圆中心(1) = 1007 B$ D( c2 m V+ N3 \, g
椭圆长轴矢量(0) = 1008 B/ v* y, u; D i8 _' l, c
% X; \* C8 K5 ?6 M7 d
Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
% {! W0 B- X* I2 L1 @6 y
椭圆.StartAngle = 0
5 |5 [8 V; Z$ `0 d; [
椭圆.EndAngle = 3.14159265358979 / 2) u: w' U- X& X# i0 _: ]! I
End Sub

复制代码

再复杂点
这是一个半径比0.5的椭圆，画出蓝色的椭圆弧
捕获2.PNG

Sub A()
1 {# q. [+ X) Y2 p. ?- I
Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double0 Z0 |4 t% b+ T- O( G
# p/ G% A8 [2 n8 ^
椭圆中心(0) = 200: 椭圆中心(1) = 100# Y! Z$ Y3 O, R. F4 _
椭圆长轴矢量(0) = 100: 椭圆长轴矢量(1) = 50) B$ a7 {5 M/ m3 [5 U
3 l5 Y+ ?1 l) G9 p: z9 l1 E& l
Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.5)4 v9 R! m/ z2 c/ U
椭圆.StartAngle = 3.14159265358979 / 6
- Z9 y8 l t3 M& J1 X; Z' ~2 G
椭圆.EndAngle = 3.14159265358979 / 3
# k( ^1 H+ y& \8 a9 Y
End Sub

复制代码

wysong · 发表于 2019-1-23 21:45:37

佩服楼主，非常感谢楼主的慷慨相助，我也弄明白了

F1640 · 发表于 2019-11-10 17:37:23

学习了，不错的帖子

season_88 · 发表于 2024-12-13 10:45:27

写得非常好，通俗易懂。

		自动登录	找回密码
密码			注册

通知

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

浏览过的版块