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

woaishuijia

wysong 发表于 2019-1-21 22:18
* l' M+ Z7 S0 z楼主能否明示一下，帮忙写一下关键的代码，我没有找到你说这个起点、终点，圆弧命令中是有的，谢谢

画出下图中蓝色椭圆弧

( r& I+ J% }. U2 g2 d. s

1. Sub A()
   
2.     With ThisDrawing
   
3.         
   
4.         Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量 As Variant
   " q) ?7 O- L0 ], ~* A8 p
5.         
   
6.         椭圆长轴矢量 = .Utility.PolarPoint(椭圆中心, .Utility.AngleToReal(30, acDegrees), 100)
   ' p+ B% ~( ?* b" x$ Z% |
7.         椭圆中心(0) = 200: 椭圆中心(1) = 100
   
8.         Set 椭圆 = .ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   ! t" E0 l1 ~' C& C2 I+ C0 m7 k
9.         
   . e. E) h3 x& w# O  E! I8 @
10.         Dim 辅助直线1 As AcadLine, 辅助直线2数组 As Variant, 直线起点(2) As Double, 直线端点(2) As Double
    3 R7 g( B6 Z6 g. G1 o' d; M4 B
11.         
    8 r5 ]5 ?$ n* s# {9 x
12.         直线起点(0) = 240: 直线起点(1) = 100
    5 e% N( T; v1 W6 R
13.         直线端点(0) = 240: 直线端点(1) = 300
    3 Y+ e4 c' v' B
14.         Set 辅助直线1 = .ModelSpace.AddLine(直线起点, 直线端点)
    7 ?3 ]0 w5 R6 T8 R3 f7 d3 i  C
15.         辅助直线2数组 = 辅助直线1.Offset(50)
    & T" j/ u4 r8 H; C& r' X+ J; n& X; j
16.         
    ) V1 g* u+ |+ C2 `! I! y
17.         Dim 椭圆弧起点 As Variant, 椭圆弧端点 As Variant
    
18.         
    
19.         椭圆弧起点 = 椭圆.IntersectWith(辅助直线1, acExtendNone)
    , t8 H" k5 f( u
20.         椭圆弧端点 = 椭圆.IntersectWith(辅助直线2数组(0), acExtendNone)
    
21.         椭圆.StartAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧起点) - .Utility.AngleToReal(30, acDegrees)
    . L8 `2 I) d2 Q2 n* s) z
22.         椭圆.EndAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧端点) - .Utility.AngleToReal(30, acDegrees)
    
23.         
    8 g+ K+ k0 ^" `5 r7 b
24.         辅助直线1.Delete
    
25.         辅助直线2数组(0).Delete
    
26.         
    
27.     End With
    " d% l7 l3 M& h( f5 n& A1 [# `
28. End Sub

复制代码

7 U2 a1 Q( {  g0 u
9 _6 J3 d1 S5 }4 ]( B9 U
  j& I7 {) U7 a5 n4 L

wysong

woaishuijia 发表于 2019-1-22 10:10
) Q0 Q& o, }; Z, G画出下图中蓝色椭圆弧

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

wysong

woaishuijia 发表于 2019-1-22 10:10
; r# R6 d( ^! \6 Q; B0 S# j* D画出下图中蓝色椭圆弧

3 j6 d2 |" L* y# e9 B- C非常感谢楼主的解答！
$ K6 O  Z- Y" k* n我的理解是1.通过自定义函数实现，因为没有现成的库函数？
                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
不知道我的理解对不对

woaishuijia

& H1 L9 x, {% |# k. C

wysong 发表于 2019-1-22 23:02
. C( m8 V* q+ N6 @: Q& Z非常感谢楼主的解答！
我的理解是1.通过自定义函数实现，因为没有现成的库函数？
                2.类 ...

看来是我想多了，反而误导你了。
' t. i& q/ S2 x我的本意是举一个尽可能复杂的例子，让你了解在工程应用中如何通过其它边界条件获取椭圆弧的参数，进而创建它的全过程。该例程中的画辅助线、求交点、算角度等语句对于画椭圆弧都不是必要的，我只是想让你通过这个例程理解椭圆弧参数的意义，顺带了解更多的AutoCAD VBA函数及其运用技巧。
) J2 W1 J0 ?7 u: b# T0 \实际上，该例程中真正涉及椭圆弧的只有三个语句：

1. Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   + b+ H0 M  s9 M* q' G* a7 N; E* Y
2. 椭圆.StartAngle =……
   
3. 椭圆.EndAngle =……

复制代码

! t4 V) _# r; S6 f% t* C* y& a你可以这样理解：AutoCAD VBA中并没有椭圆，只有椭圆弧。用"AddEllipse"方法画出的并不是椭圆，其实是一个首尾重合的椭圆弧，只是看上去像一个完整的椭圆。
和画圆弧（AddArc）方法不同的是:画圆弧时要求你直接指定它的起点角度（StartAngle）和端点角度（EndAngle）参数；而画椭圆弧时，是先画出一个首尾重合的椭圆弧，然后再编辑修改它的起点角度（StartAngle）和（或）端点角度（EndAngle）属性——如果你需要的不是一个首尾重合的椭圆弧的话。
3 v; ?5 R/ w! E. a3 J下面是一个简单的画椭圆弧的例子。
画出下图中蓝色的椭圆弧

: T7 Q; }( H) x. w' `3 F% w, y2 N

1. Sub A()
   
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   $ ~. {4 G8 \3 }
3.    
   
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   9 s7 G5 S: u- o" Z  _
5.     椭圆长轴矢量(0) = 100
   7 U* B2 b9 S& |! g0 K! I, y: `
6.    
   4 u1 P6 B! |/ [& u9 P! E! R
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   1 \. W; `* S2 M) q5 E5 c) r/ m
8.     椭圆.StartAngle = 0
   : p0 c" M5 F8 j
9.     椭圆.EndAngle = 3.14159265358979 / 2
   
10. End Sub

复制代码

再复杂点
5 v! }! `! j) P! w这是一个半径比0.5的椭圆，画出蓝色的椭圆弧
. n3 n6 s4 D- ^2 s/ h" g3 J9 r; V
- c* K4 J- G" f& K8 @! z

1. Sub A()
   
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   
3.    
   $ n6 B$ M5 o0 }0 N: c+ ]
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   
5.     椭圆长轴矢量(0) = 100: 椭圆长轴矢量(1) = 50
   & Y6 }3 l0 k# \) |  P  [; X9 j7 |
6.    
   
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.5)
   
8.     椭圆.StartAngle = 3.14159265358979 / 6
   # _; N/ |) p1 S8 u* e' t( |
9.     椭圆.EndAngle = 3.14159265358979 / 3
   
10. End Sub

复制代码

7 R/ l% P# U% d! p  y, q& z- g


/ w1 X1 H7 G$ `! |& i! x/ @* ]

wysong

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

F1640

学习了，不错的帖子