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

woaishuijia

- K6 }8 z$ J# U6 d$ r% x% @

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

" a4 x! A- u1 [# C) W- l画出下图中蓝色椭圆弧
$ a3 y8 U9 G2 F1 v6 l0 G

1. Sub A()
   3 ]# v; l' T; s
2.     With ThisDrawing
   ! ^5 p6 S' R1 U7 t% v9 Q
3.         
   
4.         Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量 As Variant
   : i/ }# k8 R5 L1 A2 ~8 `6 [" z
5.         
   
6.         椭圆长轴矢量 = .Utility.PolarPoint(椭圆中心, .Utility.AngleToReal(30, acDegrees), 100)
   
7.         椭圆中心(0) = 200: 椭圆中心(1) = 100
   5 W. M5 ?# \$ |6 \0 R
8.         Set 椭圆 = .ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   
9.         
   3 Q: T: C1 D2 `5 }0 j4 w; l) X
10.         Dim 辅助直线1 As AcadLine, 辅助直线2数组 As Variant, 直线起点(2) As Double, 直线端点(2) As Double
    . ^; h& \, g% q- h# W# _# P
11.         
    
12.         直线起点(0) = 240: 直线起点(1) = 100
    
13.         直线端点(0) = 240: 直线端点(1) = 300
    0 ?7 |0 {2 n! b  T
14.         Set 辅助直线1 = .ModelSpace.AddLine(直线起点, 直线端点)
    
15.         辅助直线2数组 = 辅助直线1.Offset(50)
    
16.         
    
17.         Dim 椭圆弧起点 As Variant, 椭圆弧端点 As Variant
    % I6 E" h5 u; g& j, x
18.         
    ) }) ^7 B, E2 p4 x% D( U
19.         椭圆弧起点 = 椭圆.IntersectWith(辅助直线1, acExtendNone)
    
20.         椭圆弧端点 = 椭圆.IntersectWith(辅助直线2数组(0), acExtendNone)
    
21.         椭圆.StartAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧起点) - .Utility.AngleToReal(30, acDegrees)
    3 g, B5 h: j& O+ r, X
22.         椭圆.EndAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧端点) - .Utility.AngleToReal(30, acDegrees)
    ( a0 D9 g: D7 s% E. W( Z
23.         
    
24.         辅助直线1.Delete
    0 g! Y9 a" B* \* D% W
25.         辅助直线2数组(0).Delete
    
26.         
    9 y6 b3 \* Q# P5 O+ w9 e9 X
27.     End With
    
28. End Sub

复制代码

3 {( c6 ^. Y4 e: |
, C$ _7 R. `( _# k

wysong

woaishuijia 发表于 2019-1-22 10:10
4 k  J1 U% f5 [5 x画出下图中蓝色椭圆弧

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

wysong

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

) r7 H( {) j( Q0 O3 i8 i: k: ~非常感谢楼主的解答！
我的理解是1.通过自定义函数实现，因为没有现成的库函数？
" T# R) f5 R: |# R                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
( r2 T, }+ i: _) S2 P不知道我的理解对不对

woaishuijia

" q$ @% {3 }$ W$ I. M

wysong 发表于 2019-1-22 23:02
非常感谢楼主的解答！
$ t4 y+ d& u2 f* E0 ]: R我的理解是1.通过自定义函数实现，因为没有现成的库函数？
                2.类 ...

看来是我想多了，反而误导你了。
我的本意是举一个尽可能复杂的例子，让你了解在工程应用中如何通过其它边界条件获取椭圆弧的参数，进而创建它的全过程。该例程中的画辅助线、求交点、算角度等语句对于画椭圆弧都不是必要的，我只是想让你通过这个例程理解椭圆弧参数的意义，顺带了解更多的AutoCAD VBA函数及其运用技巧。
9 _# E3 B3 `% c实际上，该例程中真正涉及椭圆弧的只有三个语句：
" ?! Y! ?2 D# ?6 S7 i+ @0 K# x

1. Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   
2. 椭圆.StartAngle =……
   
3. 椭圆.EndAngle =……

复制代码

2 ?0 v2 ]5 V, N你可以这样理解：AutoCAD VBA中并没有椭圆，只有椭圆弧。用"AddEllipse"方法画出的并不是椭圆，其实是一个首尾重合的椭圆弧，只是看上去像一个完整的椭圆。
和画圆弧（AddArc）方法不同的是:画圆弧时要求你直接指定它的起点角度（StartAngle）和端点角度（EndAngle）参数；而画椭圆弧时，是先画出一个首尾重合的椭圆弧，然后再编辑修改它的起点角度（StartAngle）和（或）端点角度（EndAngle）属性——如果你需要的不是一个首尾重合的椭圆弧的话。
下面是一个简单的画椭圆弧的例子。
8 W# |  X1 S$ W* b1 b8 Z. F  @画出下图中蓝色的椭圆弧
  O* v. V# i- _' a
" u# e* W7 ~6 [8 J

1. Sub A()
   7 O4 U! S- c' t4 G
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   ; G, K1 N9 C7 }! d( R1 N
3.    
   & g- i) U2 `* G! x# p7 G% y  n$ i2 b3 f
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   
5.     椭圆长轴矢量(0) = 100
   + Y) j* e% x0 \5 e2 _( ?
6.    
   / R! @# Y- K. _( t
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   
8.     椭圆.StartAngle = 0
   3 x; }# p$ E: }# ]( ?
9.     椭圆.EndAngle = 3.14159265358979 / 2
   3 Z2 ~' Q* Q8 f9 |# S4 a
10. End Sub

复制代码

) N' w8 n8 B* e7 e- M* c) A再复杂点
这是一个半径比0.5的椭圆，画出蓝色的椭圆弧

( Y1 A; L9 q7 K3 h6 _9 q; v

1. Sub A()
   
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   0 ~6 V# R+ B5 B( q; ^
3.    
   
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   
5.     椭圆长轴矢量(0) = 100: 椭圆长轴矢量(1) = 50
   
6.    
   7 T( A& Z1 S8 C" q4 O
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.5)
   , w* ]  e- Z7 [  ]/ i2 p
8.     椭圆.StartAngle = 3.14159265358979 / 6
   
9.     椭圆.EndAngle = 3.14159265358979 / 3
   9 r0 h5 ^9 A4 Y: L$ Q
10. End Sub

复制代码

$ R1 d- X5 [+ s( ~# [

wysong

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

F1640

学习了，不错的帖子

season_88

写得非常好，通俗易懂。