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

woaishuijia

' z3 o. l3 a8 v9 D8 R8 \* L/ T

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

9 Y& O( _3 o4 Z; J画出下图中蓝色椭圆弧

6 v( B! u% J. L+ w9 ~' J

1. Sub A()
   
2.     With ThisDrawing
   ( E3 k# o7 D  C" B) X
3.         
   - m) l" p* j: t, q' L
4.         Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量 As Variant
   
5.         
   
6.         椭圆长轴矢量 = .Utility.PolarPoint(椭圆中心, .Utility.AngleToReal(30, acDegrees), 100)
   - p+ y3 Q* l3 n5 {+ L; h
7.         椭圆中心(0) = 200: 椭圆中心(1) = 100
   
8.         Set 椭圆 = .ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   
9.         
     ~1 [2 g4 G2 a+ A& _
10.         Dim 辅助直线1 As AcadLine, 辅助直线2数组 As Variant, 直线起点(2) As Double, 直线端点(2) As Double
    
11.         
    , m8 g3 i% T3 g4 d) c$ D  E
12.         直线起点(0) = 240: 直线起点(1) = 100
    
13.         直线端点(0) = 240: 直线端点(1) = 300
    ' `. q% C: J, Z7 M6 P% L+ j
14.         Set 辅助直线1 = .ModelSpace.AddLine(直线起点, 直线端点)
    
15.         辅助直线2数组 = 辅助直线1.Offset(50)
    
16.         
    9 x- h- \( H' ?
17.         Dim 椭圆弧起点 As Variant, 椭圆弧端点 As Variant
    
18.         
    4 T9 [6 E( B5 i$ U* I& C+ d7 b3 z
19.         椭圆弧起点 = 椭圆.IntersectWith(辅助直线1, acExtendNone)
      X# V6 w2 Z5 y4 t% r
20.         椭圆弧端点 = 椭圆.IntersectWith(辅助直线2数组(0), acExtendNone)
    
21.         椭圆.StartAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧起点) - .Utility.AngleToReal(30, acDegrees)
    & N9 R8 T' [/ a+ X4 Z/ i8 \
22.         椭圆.EndAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧端点) - .Utility.AngleToReal(30, acDegrees)
    & I' p( {; S5 w# C+ v; d
23.         
    
24.         辅助直线1.Delete
    
25.         辅助直线2数组(0).Delete
    5 \. c3 g! j# S+ _( i
26.         
    
27.     End With
    7 g$ a3 n1 _7 I' b
28. End Sub

复制代码

. s2 N8 X" c8 \) |) w' E5 b; Q0 e
" k" m$ f% e8 v! `
7 ~$ E% t* m$ T. _

wysong

woaishuijia 发表于 2019-1-22 10:10
! l! D6 u$ A+ k画出下图中蓝色椭圆弧

非常感谢楼主的解答！
! Y. r: {! G  i- q我的理解是1.通过自定义函数实现，因为没有现成的库函数？
                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
* E' B/ T' Z! Y9 Q/ B7 v  [: B- B不知道我的理解对不对

wysong

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

3 |6 `* }$ `: S6 W& e$ O  o( b非常感谢楼主的解答！
+ ?# ?8 Y6 u) t1 ^7 a, h! f我的理解是1.通过自定义函数实现，因为没有现成的库函数？
                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
不知道我的理解对不对

woaishuijia

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

看来是我想多了，反而误导你了。
我的本意是举一个尽可能复杂的例子，让你了解在工程应用中如何通过其它边界条件获取椭圆弧的参数，进而创建它的全过程。该例程中的画辅助线、求交点、算角度等语句对于画椭圆弧都不是必要的，我只是想让你通过这个例程理解椭圆弧参数的意义，顺带了解更多的AutoCAD VBA函数及其运用技巧。
' Q. |: l$ O: [# O2 [5 L9 }实际上，该例程中真正涉及椭圆弧的只有三个语句：
( @1 J) x2 O" Q. H4 K# B

1. Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   
2. 椭圆.StartAngle =……
   ; ]! F) C: R" t7 s
3. 椭圆.EndAngle =……

复制代码

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

( L- O+ m$ C# S( Z

1. Sub A()
   2 V% P6 Q" ^2 E
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   ( }, d. r8 Z4 [+ q3 J+ ]' L4 `
3.    
   
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   3 s( R: f; s# d/ @' \0 @, x7 ~
5.     椭圆长轴矢量(0) = 100
   $ x$ Q, d* a6 M$ |( d4 e: q
6.    
   * }$ r$ b) X; Q$ M7 v9 n
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   ! {$ Z* }# v" n
8.     椭圆.StartAngle = 0
   " O8 P& u1 j3 x3 z
9.     椭圆.EndAngle = 3.14159265358979 / 2
   ! z( z+ ^0 ^5 Z! i
10. End Sub

复制代码

; r! k! F3 Z: ]再复杂点
9 H/ b1 j0 a  l$ A  ]6 K  `这是一个半径比0.5的椭圆，画出蓝色的椭圆弧

1. Sub A()
   
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   
3.    
   5 C/ }' J9 m4 W- [2 b( p* I
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   
5.     椭圆长轴矢量(0) = 100: 椭圆长轴矢量(1) = 50
   5 V' d; ^4 T& ?
6.    
   
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.5)
   & p, z5 H, r3 \- k$ }, }( Q$ t3 L+ c
8.     椭圆.StartAngle = 3.14159265358979 / 6
     z' v8 D0 G- ]5 z6 h3 B8 I
9.     椭圆.EndAngle = 3.14159265358979 / 3
   
10. End Sub

复制代码

- N. d: \# E! e# q4 S

! h/ @4 \9 Z; [7 q

wysong

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

F1640

学习了，不错的帖子

season_88

写得非常好，通俗易懂。