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

woaishuijia

wysong 发表于 2019-1-21 22:18
8 ~$ g# `9 O. {3 m# @9 h- Q; `$ D楼主能否明示一下，帮忙写一下关键的代码，我没有找到你说这个起点、终点，圆弧命令中是有的，谢谢

) d* p% o; D, c7 Y画出下图中蓝色椭圆弧

1. Sub A()
   
2.     With ThisDrawing
   : i( y- }' C$ }) e' |" h- M- e
3.         
   
4.         Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量 As Variant
   4 f+ M& q- I5 V1 C# j
5.         
   # j# s* C8 ~3 k3 V  |
6.         椭圆长轴矢量 = .Utility.PolarPoint(椭圆中心, .Utility.AngleToReal(30, acDegrees), 100)
   
7.         椭圆中心(0) = 200: 椭圆中心(1) = 100
   / |# S: I. p4 ~7 m& a+ F
8.         Set 椭圆 = .ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   , g$ N! n9 \2 [" m  P9 t4 h  C7 r
9.         
   $ [( r  B1 i2 j$ k* x5 f; x
10.         Dim 辅助直线1 As AcadLine, 辅助直线2数组 As Variant, 直线起点(2) As Double, 直线端点(2) As Double
      M& a7 X" E( Q2 j! k0 [3 [
11.         
    
12.         直线起点(0) = 240: 直线起点(1) = 100
    $ M  h  x8 c- ~
13.         直线端点(0) = 240: 直线端点(1) = 300
    
14.         Set 辅助直线1 = .ModelSpace.AddLine(直线起点, 直线端点)
    
15.         辅助直线2数组 = 辅助直线1.Offset(50)
    % [1 d' O" V4 S% @" X2 d
16.         
    
17.         Dim 椭圆弧起点 As Variant, 椭圆弧端点 As Variant
    / S* _$ G' {/ g: N7 A
18.         
    
19.         椭圆弧起点 = 椭圆.IntersectWith(辅助直线1, acExtendNone)
    
20.         椭圆弧端点 = 椭圆.IntersectWith(辅助直线2数组(0), acExtendNone)
    4 a$ S0 Z. X: k/ R) m0 Q* v
21.         椭圆.StartAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧起点) - .Utility.AngleToReal(30, acDegrees)
    
22.         椭圆.EndAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧端点) - .Utility.AngleToReal(30, acDegrees)
    # V; A4 K7 i0 j. f9 |
23.         
    $ ]5 K, I* G+ Y8 y+ A
24.         辅助直线1.Delete
    
25.         辅助直线2数组(0).Delete
    3 q' `' w, f# n4 C& H4 e# ?
26.         
    
27.     End With
    
28. End Sub

复制代码

$ k) {5 [! f' g

wysong

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

非常感谢楼主的解答！
4 a! ~# U- s' x$ u9 I6 f$ L8 t我的理解是1.通过自定义函数实现，因为没有现成的库函数？
                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
" `  }8 `6 t) T& k/ \不知道我的理解对不对

wysong

woaishuijia 发表于 2019-1-22 10:10
( _4 i$ {# y; |0 Y7 H8 x7 O画出下图中蓝色椭圆弧

非常感谢楼主的解答！
: ~  G0 h6 h$ a% r( @我的理解是1.通过自定义函数实现，因为没有现成的库函数？
$ r2 O8 F1 Q6 I* H                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
不知道我的理解对不对

woaishuijia

" B2 }2 I% A9 c" g

wysong 发表于 2019-1-22 23:02
非常感谢楼主的解答！
; i1 @$ K+ C+ A" O1 x, D* e我的理解是1.通过自定义函数实现，因为没有现成的库函数？
: L. i' \, P9 Y; D% K7 L: s                2.类 ...

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

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

复制代码

2 C" r6 a0 U, Y- O# m你可以这样理解：AutoCAD VBA中并没有椭圆，只有椭圆弧。用"AddEllipse"方法画出的并不是椭圆，其实是一个首尾重合的椭圆弧，只是看上去像一个完整的椭圆。
和画圆弧（AddArc）方法不同的是:画圆弧时要求你直接指定它的起点角度（StartAngle）和端点角度（EndAngle）参数；而画椭圆弧时，是先画出一个首尾重合的椭圆弧，然后再编辑修改它的起点角度（StartAngle）和（或）端点角度（EndAngle）属性——如果你需要的不是一个首尾重合的椭圆弧的话。
下面是一个简单的画椭圆弧的例子。
, I+ @; {7 B- r/ u  l画出下图中蓝色的椭圆弧

1. Sub A()
   0 f  z6 a/ C3 r' g1 r! O4 [+ ~: v
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   
3.    
   . E9 c, [' |- G& k  E* G
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   + Q( u3 |% i. l* }+ b
5.     椭圆长轴矢量(0) = 100
   
6.    
   
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   . ~0 m; \# n: U; b8 m# V5 D& T! F
8.     椭圆.StartAngle = 0
   
9.     椭圆.EndAngle = 3.14159265358979 / 2
   
10. End Sub

复制代码

再复杂点
这是一个半径比0.5的椭圆，画出蓝色的椭圆弧

1. Sub A()
   
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   . Z" m' l1 N, N2 N) V& h
3.    
   
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   . q' |6 N1 w  b
5.     椭圆长轴矢量(0) = 100: 椭圆长轴矢量(1) = 50
   
6.    
   
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.5)
   
8.     椭圆.StartAngle = 3.14159265358979 / 6
   ; S, j$ D5 x% |+ y
9.     椭圆.EndAngle = 3.14159265358979 / 3
   
10. End Sub

复制代码

3 o% w. x0 X) D$ n& G( ]% ]' [) t

wysong

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

F1640

学习了，不错的帖子