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

woaishuijia

: V& \. S5 F. F& b

wysong 发表于 2019-1-21 22:18
" w2 V( O3 b" ^( m6 r, \楼主能否明示一下，帮忙写一下关键的代码，我没有找到你说这个起点、终点，圆弧命令中是有的，谢谢

画出下图中蓝色椭圆弧

1. Sub A()
   , J# o# V/ m, {) U4 V" ]5 ^8 i) s) m
2.     With ThisDrawing
   3 v" q0 n9 H: i$ Z5 K0 j
3.         
   ' [% Y% t% X  G$ T* r- ^) {
4.         Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量 As Variant
   ! r* j& o6 @7 u- `1 Y" I+ k. \
5.         
   
6.         椭圆长轴矢量 = .Utility.PolarPoint(椭圆中心, .Utility.AngleToReal(30, acDegrees), 100)
   
7.         椭圆中心(0) = 200: 椭圆中心(1) = 100
   
8.         Set 椭圆 = .ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   
9.         
   6 X" A5 s7 D8 V7 `
10.         Dim 辅助直线1 As AcadLine, 辅助直线2数组 As Variant, 直线起点(2) As Double, 直线端点(2) As Double
    1 P' y- j( n; l3 C/ ?8 j) D6 U
11.         
    5 ?; G" O% G' v/ P
12.         直线起点(0) = 240: 直线起点(1) = 100
    , l0 Z) O3 \, {$ X8 M9 N8 u- I
13.         直线端点(0) = 240: 直线端点(1) = 300
    
14.         Set 辅助直线1 = .ModelSpace.AddLine(直线起点, 直线端点)
    # S/ \0 p+ y3 C5 E4 Q9 F
15.         辅助直线2数组 = 辅助直线1.Offset(50)
    # L2 f- C4 D* Q. M
16.         
    - T! S2 B( _2 q# ]" K5 L
17.         Dim 椭圆弧起点 As Variant, 椭圆弧端点 As Variant
    ) W. P" l1 G- b: U5 \. z4 V
18.         
    6 T; P" _* ?. J
19.         椭圆弧起点 = 椭圆.IntersectWith(辅助直线1, acExtendNone)
    4 M! h" D! C$ d
20.         椭圆弧端点 = 椭圆.IntersectWith(辅助直线2数组(0), acExtendNone)
    ) \/ }7 P5 t5 d0 _3 q
21.         椭圆.StartAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧起点) - .Utility.AngleToReal(30, acDegrees)
    - q7 _& C5 M3 \+ M4 ^/ z' k
22.         椭圆.EndAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧端点) - .Utility.AngleToReal(30, acDegrees)
    ) s6 v9 ], N4 w  _/ h$ F( B, R
23.         
    
24.         辅助直线1.Delete
    
25.         辅助直线2数组(0).Delete
    % o" i) O1 R3 U4 Q0 ]  Q9 `
26.         
    : [( i* x3 _! k! ?* @
27.     End With
    ! U4 L4 V- ^1 o: R3 e9 H+ E
28. End Sub

复制代码

wysong

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

# [) s* @, ?/ [$ H2 u: h- l/ n非常感谢楼主的解答！
我的理解是1.通过自定义函数实现，因为没有现成的库函数？
0 h1 m# D' `* t; T                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
7 e5 `3 ~. r2 Q$ J0 X+ W不知道我的理解对不对

wysong

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

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

woaishuijia

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

# s) g6 h: C- v3 L看来是我想多了，反而误导你了。
我的本意是举一个尽可能复杂的例子，让你了解在工程应用中如何通过其它边界条件获取椭圆弧的参数，进而创建它的全过程。该例程中的画辅助线、求交点、算角度等语句对于画椭圆弧都不是必要的，我只是想让你通过这个例程理解椭圆弧参数的意义，顺带了解更多的AutoCAD VBA函数及其运用技巧。
9 z- @- G, \" {& ~7 m+ n- l实际上，该例程中真正涉及椭圆弧的只有三个语句：
7 p, Q" K$ y9 Q+ E: V3 r* i2 @

1. Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   
2. 椭圆.StartAngle =……
   5 s9 A1 r2 M0 ~' B9 b' f
3. 椭圆.EndAngle =……

复制代码

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

% o3 z5 `; {3 v3 {: z1 ?

1. Sub A()
   
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   
3.    
   
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   4 o" M3 l" u( Z& I/ }
5.     椭圆长轴矢量(0) = 100
   8 l3 N  m, r. d. n: A$ ]  k8 W
6.    
   ; w- |% K1 w& V- Z1 k; V
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   
8.     椭圆.StartAngle = 0
   7 M" W' R# Y4 l4 ]6 ?8 a  I) K
9.     椭圆.EndAngle = 3.14159265358979 / 2
   
10. End Sub

复制代码

! \* ?  ~. h3 k# s再复杂点
这是一个半径比0.5的椭圆，画出蓝色的椭圆弧

1. Sub A()
   
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   2 ^  l5 q2 V& r9 L& U, R
3.    
   
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   4 F# C5 ~! c5 y1 {0 \
5.     椭圆长轴矢量(0) = 100: 椭圆长轴矢量(1) = 50
   
6.    
   
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.5)
   8 P* Z, u! D8 M8 F! \/ `6 {
8.     椭圆.StartAngle = 3.14159265358979 / 6
   % \6 c9 ?! [7 W  E% K
9.     椭圆.EndAngle = 3.14159265358979 / 3
   * I2 T3 |. o: f" h" k6 d% a7 M; ?
10. End Sub

复制代码

4 ]% H% e$ w- i0 L# e
; l/ E( d9 c  t+ Y: n  P+ Q" M) g

wysong

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

F1640

学习了，不错的帖子

season_88

写得非常好，通俗易懂。