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

woaishuijia

wysong 发表于 2019-1-21 22:18
5 D$ A6 y! u1 O+ b; \1 E楼主能否明示一下，帮忙写一下关键的代码，我没有找到你说这个起点、终点，圆弧命令中是有的，谢谢

: [8 G6 [& X9 A5 \画出下图中蓝色椭圆弧

1. Sub A()
   
2.     With ThisDrawing
   9 B- v/ E% S7 J1 E9 v, ], \
3.         
   
4.         Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量 As Variant
   
5.         
   4 O+ L7 W5 f% i* H( w/ K' X
6.         椭圆长轴矢量 = .Utility.PolarPoint(椭圆中心, .Utility.AngleToReal(30, acDegrees), 100)
   
7.         椭圆中心(0) = 200: 椭圆中心(1) = 100
   3 W' ?  c' D# B0 y3 X
8.         Set 椭圆 = .ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   
9.         
   3 T# x* H& H; l: j6 z8 {
10.         Dim 辅助直线1 As AcadLine, 辅助直线2数组 As Variant, 直线起点(2) As Double, 直线端点(2) As Double
    
11.         
    
12.         直线起点(0) = 240: 直线起点(1) = 100
    
13.         直线端点(0) = 240: 直线端点(1) = 300
    6 I4 H/ D+ v; V! n% m- L* T, E9 ?
14.         Set 辅助直线1 = .ModelSpace.AddLine(直线起点, 直线端点)
    
15.         辅助直线2数组 = 辅助直线1.Offset(50)
    + C/ X4 ~8 I  B. R0 y
16.         
    
17.         Dim 椭圆弧起点 As Variant, 椭圆弧端点 As Variant
    
18.         
    
19.         椭圆弧起点 = 椭圆.IntersectWith(辅助直线1, acExtendNone)
    
20.         椭圆弧端点 = 椭圆.IntersectWith(辅助直线2数组(0), acExtendNone)
    
21.         椭圆.StartAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧起点) - .Utility.AngleToReal(30, acDegrees)
    * A2 J1 u3 {0 P, X* W( p, Y( `
22.         椭圆.EndAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧端点) - .Utility.AngleToReal(30, acDegrees)
    
23.         
    
24.         辅助直线1.Delete
    * @6 Y4 S/ P/ C) j8 Y$ q: d( u
25.         辅助直线2数组(0).Delete
    
26.         
    
27.     End With
    6 c6 S# O- k1 ^) {3 R* g
28. End Sub

复制代码

6 u' D: g6 e4 z& |0 B+ H
4 o* y" q7 [) O2 Z

wysong

woaishuijia 发表于 2019-1-22 10:10
* B$ P: k  p" B画出下图中蓝色椭圆弧

- Q5 w6 C: W! W3 {/ v% [非常感谢楼主的解答！
$ ^1 O, i  W7 `% \我的理解是1.通过自定义函数实现，因为没有现成的库函数？
0 O; o2 c& `" J- U( W% j                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
# n! |$ L* u1 R  m' t不知道我的理解对不对

wysong

woaishuijia 发表于 2019-1-22 10:10
- J& K% K: R" w画出下图中蓝色椭圆弧

$ u6 o  n) S* F# D/ ~) I  W& h$ e非常感谢楼主的解答！
& O; G" {. [: T( p我的理解是1.通过自定义函数实现，因为没有现成的库函数？
6 S' j) O7 s7 L                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
6 b; l4 U$ Z1 \9 h* m  Q不知道我的理解对不对

woaishuijia

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

. v) f4 G# @: Z, S$ U看来是我想多了，反而误导你了。
! [( W" d1 F5 s) Z+ }) d我的本意是举一个尽可能复杂的例子，让你了解在工程应用中如何通过其它边界条件获取椭圆弧的参数，进而创建它的全过程。该例程中的画辅助线、求交点、算角度等语句对于画椭圆弧都不是必要的，我只是想让你通过这个例程理解椭圆弧参数的意义，顺带了解更多的AutoCAD VBA函数及其运用技巧。
6 T( |7 {1 [1 ~9 f1 T实际上，该例程中真正涉及椭圆弧的只有三个语句：
* t; g! N8 ]+ s$ j7 H  @9 F9 T  e6 ~

1. Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   # `  |6 o5 y4 I6 Q6 E" Y
2. 椭圆.StartAngle =……
   
3. 椭圆.EndAngle =……

复制代码

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

- V. w; t  o! {% q( ?

1. Sub A()
   0 Z/ H, b" _! |( _/ u7 T1 v
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   
3.    
   1 x) b" {# H) i. W. Y  z! @
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   ( r6 ]( v& }# H* `; c% j' B! B6 E
5.     椭圆长轴矢量(0) = 100
   8 _+ t7 _# k* V/ I- y/ Z. `
6.    
   
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   4 U$ ^9 P% }" N
8.     椭圆.StartAngle = 0
   
9.     椭圆.EndAngle = 3.14159265358979 / 2
   + k2 R8 H( _2 {1 X( \
10. End Sub

复制代码

再复杂点
/ k. n1 r& |  d/ G; L8 e% \1 j; l/ P这是一个半径比0.5的椭圆，画出蓝色的椭圆弧
8 A/ y( D1 x4 m: Z5 J, z

1. Sub A()
   + x- ~' ^- W) _
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   # g! [4 c+ I8 O
3.    
   ! h5 M: ?; B% ~4 s( k6 ~& D, s
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   
5.     椭圆长轴矢量(0) = 100: 椭圆长轴矢量(1) = 50
   
6.    
     x1 m( g6 [" i
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.5)
   2 ~9 m  Q6 {) K5 F) H
8.     椭圆.StartAngle = 3.14159265358979 / 6
   
9.     椭圆.EndAngle = 3.14159265358979 / 3
   
10. End Sub

复制代码

* [5 {: `) M5 T* i8 h% t
) B; \1 j/ w" r, P

3 |7 X4 ~( J1 q2 D

wysong

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

F1640

学习了，不错的帖子

season_88

写得非常好，通俗易懂。