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

woaishuijia

0 O3 ^2 A- J  s2 {/ r

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

画出下图中蓝色椭圆弧

1. Sub A()
   , F; p# n# R! G3 E: w
2.     With ThisDrawing
   
3.         
   3 B( U% X( H( L% A2 i; p
4.         Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量 As Variant
   
5.         
   ' Q8 C9 x$ ]* d+ v( z
6.         椭圆长轴矢量 = .Utility.PolarPoint(椭圆中心, .Utility.AngleToReal(30, acDegrees), 100)
   
7.         椭圆中心(0) = 200: 椭圆中心(1) = 100
   # x5 a2 w0 l. m1 Q  m
8.         Set 椭圆 = .ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   / a- j: E6 k( m" G$ ?0 W3 \+ ]9 w
9.         
   . p9 }* e1 _1 b$ c$ Y1 N
10.         Dim 辅助直线1 As AcadLine, 辅助直线2数组 As Variant, 直线起点(2) As Double, 直线端点(2) As Double
    
11.         
    ' [; D1 [" I, u
12.         直线起点(0) = 240: 直线起点(1) = 100
    
13.         直线端点(0) = 240: 直线端点(1) = 300
    
14.         Set 辅助直线1 = .ModelSpace.AddLine(直线起点, 直线端点)
    
15.         辅助直线2数组 = 辅助直线1.Offset(50)
    
16.         
    + F( k& G! H" w3 K) K% ]. V
17.         Dim 椭圆弧起点 As Variant, 椭圆弧端点 As Variant
    
18.         
    
19.         椭圆弧起点 = 椭圆.IntersectWith(辅助直线1, acExtendNone)
    * j# M9 l4 ~( {0 @2 l6 S: M$ _
20.         椭圆弧端点 = 椭圆.IntersectWith(辅助直线2数组(0), acExtendNone)
    : z" a# c' g5 I
21.         椭圆.StartAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧起点) - .Utility.AngleToReal(30, acDegrees)
    , X" y# [. x& q# |% W4 r1 ^
22.         椭圆.EndAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧端点) - .Utility.AngleToReal(30, acDegrees)
    1 Z( }: J0 g- q. E) q
23.         
    
24.         辅助直线1.Delete
    ( I: x9 x6 p( E
25.         辅助直线2数组(0).Delete
    
26.         
    " A! s5 g6 {. P" r9 R
27.     End With
    * X. I3 `2 q5 h% R) ^
28. End Sub

复制代码

wysong

woaishuijia 发表于 2019-1-22 10:10
7 U  L6 i1 |6 @/ g9 l( ~! |画出下图中蓝色椭圆弧

& e- d: n5 ]% G' q9 i8 T4 O* m% _. m非常感谢楼主的解答！
我的理解是1.通过自定义函数实现，因为没有现成的库函数？
- J* U1 Q/ h$ w7 Y6 R                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
. V4 O4 E# s* @, v7 I0 c3 I; y不知道我的理解对不对

wysong

woaishuijia 发表于 2019-1-22 10:10
" {5 h; f) i' N2 A' Q9 D5 t) d画出下图中蓝色椭圆弧

非常感谢楼主的解答！
8 b5 H, k3 r2 t$ N1 B我的理解是1.通过自定义函数实现，因为没有现成的库函数？
0 E) Z7 O. t) y( E) E2 T3 P                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
2 a0 c! I7 _/ |$ t9 }7 M3 n, k不知道我的理解对不对

woaishuijia

- l& |4 \6 R4 x0 N' V+ N

wysong 发表于 2019-1-22 23:02
$ G, R: z# i( y# e; W非常感谢楼主的解答！
我的理解是1.通过自定义函数实现，因为没有现成的库函数？
                2.类 ...

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

1. Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   
2. 椭圆.StartAngle =……
   - A: a" i. ]1 f# j
3. 椭圆.EndAngle =……

复制代码

0 u5 S0 y) l6 q4 A) h* X你可以这样理解：AutoCAD VBA中并没有椭圆，只有椭圆弧。用"AddEllipse"方法画出的并不是椭圆，其实是一个首尾重合的椭圆弧，只是看上去像一个完整的椭圆。
和画圆弧（AddArc）方法不同的是:画圆弧时要求你直接指定它的起点角度（StartAngle）和端点角度（EndAngle）参数；而画椭圆弧时，是先画出一个首尾重合的椭圆弧，然后再编辑修改它的起点角度（StartAngle）和（或）端点角度（EndAngle）属性——如果你需要的不是一个首尾重合的椭圆弧的话。
( q( N& w* O$ l( D下面是一个简单的画椭圆弧的例子。
画出下图中蓝色的椭圆弧
2 p5 a* W! l0 f6 z, [9 C! P7 A

1. Sub A()
   
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   # g& R/ L% d; W- V6 t, M: o2 C! e' h
3.    
   
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   
5.     椭圆长轴矢量(0) = 100
   
6.    
   # R* r% c1 ^+ r8 u4 r+ O4 E
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   ! j# ^) O( a+ c1 i/ m
8.     椭圆.StartAngle = 0
   , ]+ F# ~& V# t# r1 k" n
9.     椭圆.EndAngle = 3.14159265358979 / 2
   
10. End Sub

复制代码

3 D+ i0 _0 Z- j) Q. p再复杂点
8 c5 t; o# i) t. d* V  E) G) A这是一个半径比0.5的椭圆，画出蓝色的椭圆弧
4 [$ x( |5 n! K9 ?8 ~2 r* z

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.    
   2 n7 t9 M+ Z+ `7 l+ ~7 Z
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.5)
   7 N( k) d1 ]& g5 }2 y5 U  V  G
8.     椭圆.StartAngle = 3.14159265358979 / 6
   ; Q8 n9 {- y9 E7 U' d
9.     椭圆.EndAngle = 3.14159265358979 / 3
   
10. End Sub

复制代码

4 _$ P( R/ F- d* I/ b7 _. ]% ?- Y

' s: B! ?* }2 W' ^5 x9 t, Z

wysong

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

F1640

学习了，不错的帖子

season_88

写得非常好，通俗易懂。