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

woaishuijia

wysong 发表于 2019-1-21 22:18
1 P7 ]& T. l% p4 f* `楼主能否明示一下，帮忙写一下关键的代码，我没有找到你说这个起点、终点，圆弧命令中是有的，谢谢

画出下图中蓝色椭圆弧
2 Y6 r( L# D* F  d( W6 o+ ]3 Q
6 Q" r+ W/ N3 P% J" k

1. Sub A()
   
2.     With ThisDrawing
   4 E# c0 H- v/ m; \' o. w
3.         
   8 b  o) P# c7 r: g" `" c: h
4.         Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量 As Variant
   " {& v3 H& y- M% O) B0 [: I
5.         
   $ \* e" `$ S. B* q+ v) P
6.         椭圆长轴矢量 = .Utility.PolarPoint(椭圆中心, .Utility.AngleToReal(30, acDegrees), 100)
   " S6 G/ W, ^4 ?" o
7.         椭圆中心(0) = 200: 椭圆中心(1) = 100
   * W$ P% a/ K% Q% {2 s
8.         Set 椭圆 = .ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   4 c" ^6 c- [  \5 ~" E0 z' h9 a4 q- R
9.         
   
10.         Dim 辅助直线1 As AcadLine, 辅助直线2数组 As Variant, 直线起点(2) As Double, 直线端点(2) As Double
    
11.         
    . S4 i3 G3 h6 C3 U" S# k
12.         直线起点(0) = 240: 直线起点(1) = 100
    
13.         直线端点(0) = 240: 直线端点(1) = 300
    # m) e5 n+ A8 v% G
14.         Set 辅助直线1 = .ModelSpace.AddLine(直线起点, 直线端点)
    
15.         辅助直线2数组 = 辅助直线1.Offset(50)
    
16.         
    4 ^2 y, D. O; s1 U4 T% X
17.         Dim 椭圆弧起点 As Variant, 椭圆弧端点 As Variant
    ! }' j( @' Z5 I( J; P
18.         
    0 c! m% v0 I, j  \
19.         椭圆弧起点 = 椭圆.IntersectWith(辅助直线1, acExtendNone)
    
20.         椭圆弧端点 = 椭圆.IntersectWith(辅助直线2数组(0), acExtendNone)
    
21.         椭圆.StartAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧起点) - .Utility.AngleToReal(30, acDegrees)
    3 s. i( b8 g5 G5 u& S( h
22.         椭圆.EndAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧端点) - .Utility.AngleToReal(30, acDegrees)
    " m7 W5 l0 ]" U  j6 y0 H( H, |# a
23.         
    
24.         辅助直线1.Delete
    
25.         辅助直线2数组(0).Delete
    
26.         
    
27.     End With
    
28. End Sub

复制代码

' t1 n1 T, n- C8 ?

" ?4 B. j: H% q' B/ i' A% x

wysong

woaishuijia 发表于 2019-1-22 10:10
画出下图中蓝色椭圆弧

+ J: w# d$ x6 F非常感谢楼主的解答！
我的理解是1.通过自定义函数实现，因为没有现成的库函数？
                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
- V! U. `6 o1 _* V' s- {不知道我的理解对不对

wysong

woaishuijia 发表于 2019-1-22 10:10
画出下图中蓝色椭圆弧

非常感谢楼主的解答！
% Z+ D( ~! b' D6 `! T我的理解是1.通过自定义函数实现，因为没有现成的库函数？
) R. F9 u% w. @: G7 `2 e. _4 h2 H                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
9 u8 l1 U& X: T不知道我的理解对不对

woaishuijia

. O8 |7 l5 a; }6 U; h9 W2 ]2 D

wysong 发表于 2019-1-22 23:02
非常感谢楼主的解答！
我的理解是1.通过自定义函数实现，因为没有现成的库函数？
. U- x' s3 X" E0 q, E. ]                2.类 ...

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

1. Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   
2. 椭圆.StartAngle =……
   ( i: h# X, M$ k( X
3. 椭圆.EndAngle =……

复制代码

, n' {, Y* V3 k9 l8 ]你可以这样理解：AutoCAD VBA中并没有椭圆，只有椭圆弧。用"AddEllipse"方法画出的并不是椭圆，其实是一个首尾重合的椭圆弧，只是看上去像一个完整的椭圆。
7 o% W7 ^, b9 x9 j$ `" P和画圆弧（AddArc）方法不同的是:画圆弧时要求你直接指定它的起点角度（StartAngle）和端点角度（EndAngle）参数；而画椭圆弧时，是先画出一个首尾重合的椭圆弧，然后再编辑修改它的起点角度（StartAngle）和（或）端点角度（EndAngle）属性——如果你需要的不是一个首尾重合的椭圆弧的话。
下面是一个简单的画椭圆弧的例子。
+ M* n+ I3 j1 y  j6 \画出下图中蓝色的椭圆弧

$ Z* I4 n. f0 F) Q

1. Sub A()
   ! @* M# w) ?9 B! V
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   
3.    
   , j8 [1 ~: G* \9 v+ S5 _- J, Z3 \
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   
5.     椭圆长轴矢量(0) = 100
   
6.    
   
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   " O7 W) g. p3 H. l1 {0 g1 L
8.     椭圆.StartAngle = 0
   
9.     椭圆.EndAngle = 3.14159265358979 / 2
   
10. End Sub

复制代码

再复杂点
* f. M+ z4 m/ Y& L这是一个半径比0.5的椭圆，画出蓝色的椭圆弧

. {3 l: I2 y: i& l! {

1. Sub A()
   
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   
3.    
   
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   
5.     椭圆长轴矢量(0) = 100: 椭圆长轴矢量(1) = 50
   
6.    
   
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.5)
   
8.     椭圆.StartAngle = 3.14159265358979 / 6
   
9.     椭圆.EndAngle = 3.14159265358979 / 3
   
10. End Sub

复制代码

& V9 ?1 m! _1 z0 Y0 M2 Y' _
# }5 `! X) J3 U8 R# d8 x1 `

wysong

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

F1640

学习了，不错的帖子

season_88

写得非常好，通俗易懂。