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

woaishuijia

wysong 发表于 2019-1-21 22:18
! w/ ]* w2 {/ Q6 ~2 {4 l; o" l楼主能否明示一下，帮忙写一下关键的代码，我没有找到你说这个起点、终点，圆弧命令中是有的，谢谢

7 w) @% y! y; e' N* }0 u画出下图中蓝色椭圆弧

0 B3 v+ ]+ L7 A# M0 _  j- i

1. Sub A()
   * D0 R' ?7 R, W4 e
2.     With ThisDrawing
     U0 V& K$ {+ i; T
3.         
   4 p' [' ?+ I/ F/ }7 q! D& n$ e
4.         Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量 As Variant
   
5.         
   
6.         椭圆长轴矢量 = .Utility.PolarPoint(椭圆中心, .Utility.AngleToReal(30, acDegrees), 100)
   0 j2 X) o/ V& ^' _. v) E: f1 V
7.         椭圆中心(0) = 200: 椭圆中心(1) = 100
   : M( w6 N9 P- z9 ~7 p3 a
8.         Set 椭圆 = .ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   ; R8 Y! H1 h* U( A/ J5 ^0 O0 m9 |+ a- {
9.         
   ' K1 Y8 c! t9 E" Z) z2 h
10.         Dim 辅助直线1 As AcadLine, 辅助直线2数组 As Variant, 直线起点(2) As Double, 直线端点(2) As Double
    1 n9 l8 z  L5 w( c/ n. e  o7 p
11.         
    ; P9 K% }9 c2 h$ q
12.         直线起点(0) = 240: 直线起点(1) = 100
    ) o% v% }& g2 M$ @1 H
13.         直线端点(0) = 240: 直线端点(1) = 300
      B! m. e, N! _7 O1 L
14.         Set 辅助直线1 = .ModelSpace.AddLine(直线起点, 直线端点)
    8 f: r( h2 ]& [
15.         辅助直线2数组 = 辅助直线1.Offset(50)
    
16.         
    0 N* H7 D, p4 _( Z8 c
17.         Dim 椭圆弧起点 As Variant, 椭圆弧端点 As Variant
    
18.         
    
19.         椭圆弧起点 = 椭圆.IntersectWith(辅助直线1, acExtendNone)
    
20.         椭圆弧端点 = 椭圆.IntersectWith(辅助直线2数组(0), acExtendNone)
    9 W2 W, Q! G+ r- H
21.         椭圆.StartAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧起点) - .Utility.AngleToReal(30, acDegrees)
    $ a* e; {6 j: ]& e& J$ e. D
22.         椭圆.EndAngle = .Utility.AngleFromXAxis(椭圆.Center, 椭圆弧端点) - .Utility.AngleToReal(30, acDegrees)
    + T* a+ l! [3 L9 \( h6 K( H
23.         
    4 I! d& Y* m' U/ ^6 W( Y7 w
24.         辅助直线1.Delete
    ! j6 V4 P4 g/ `# a7 ?2 }" B
25.         辅助直线2数组(0).Delete
    & o! K; R8 V. ?2 M3 R5 V
26.         
    * w& Z* E9 _: g" I! r
27.     End With
    
28. End Sub

复制代码

8 U# ]! J, g) e2 {7 S

wysong

woaishuijia 发表于 2019-1-22 10:10
3 `) x; o' f, `5 z画出下图中蓝色椭圆弧

9 c# V0 s; j; l  K9 H% E非常感谢楼主的解答！
我的理解是1.通过自定义函数实现，因为没有现成的库函数？
; i9 u8 w; b" y, q! V$ r3 k' F; R                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
( p0 A. s; X, O) P  \0 Q( N不知道我的理解对不对

wysong

woaishuijia 发表于 2019-1-22 10:10
3 `% g1 a( N8 S4 _/ z. I画出下图中蓝色椭圆弧

$ ~- T. N5 G6 j/ O8 u+ p非常感谢楼主的解答！
: B  \4 u# _+ n* x+ Q8 f: {我的理解是1.通过自定义函数实现，因为没有现成的库函数？
                2.类似于在CAD绘图中的修剪命令，先绘制完整椭圆，然后剪掉部分就剩下椭圆弧？
$ [( c; x% Y) a5 H& m不知道我的理解对不对

woaishuijia

0 ~, h# J: T4 Z) g

wysong 发表于 2019-1-22 23:02
1 H) \2 h+ i- ~; M; t+ J' Z' o非常感谢楼主的解答！
我的理解是1.通过自定义函数实现，因为没有现成的库函数？
                2.类 ...

看来是我想多了，反而误导你了。
5 Y" \% h; c. g9 B. f" Y) B/ @2 C我的本意是举一个尽可能复杂的例子，让你了解在工程应用中如何通过其它边界条件获取椭圆弧的参数，进而创建它的全过程。该例程中的画辅助线、求交点、算角度等语句对于画椭圆弧都不是必要的，我只是想让你通过这个例程理解椭圆弧参数的意义，顺带了解更多的AutoCAD VBA函数及其运用技巧。
: p7 Z3 r$ Q$ u% c8 Y, ]+ v6 ]实际上，该例程中真正涉及椭圆弧的只有三个语句：

1. Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   4 g( ]7 x: o; ^/ F+ B  l' l
2. 椭圆.StartAngle =……
   ( K6 j; I2 F' n) H. I2 L
3. 椭圆.EndAngle =……

复制代码

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

1. Sub A()
   7 ]. L6 Z$ P  J- i
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   , S- X% r/ r% I, `
3.    
   
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   ; O. M4 O# @- ]5 P# l0 Z
5.     椭圆长轴矢量(0) = 100
   
6.    
   
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.4)
   + ]! z* b+ c) X
8.     椭圆.StartAngle = 0
   / z1 g# v+ U8 U
9.     椭圆.EndAngle = 3.14159265358979 / 2
   ! I3 w; H' X3 q5 s+ n( S
10. End Sub

复制代码

! o! a  `0 K! A* B- P再复杂点
: q& }9 r2 }* L) D+ l8 ~+ h这是一个半径比0.5的椭圆，画出蓝色的椭圆弧

1. Sub A()
   : X6 o4 ~3 }$ L# l( @" h- ]# i
2.     Dim 椭圆 As AcadEllipse, 椭圆中心(2) As Double, 椭圆长轴矢量(2) As Double
   ; s  |* n7 p) d
3.    
   1 r+ c3 D7 p8 l: q! B8 [
4.     椭圆中心(0) = 200: 椭圆中心(1) = 100
   
5.     椭圆长轴矢量(0) = 100: 椭圆长轴矢量(1) = 50
   ! k, V; ~+ |/ G; T0 p
6.    
   0 {4 k, r0 J7 u
7.     Set 椭圆 = ThisDrawing.ModelSpace.AddEllipse(椭圆中心, 椭圆长轴矢量, 0.5)
   ; Z+ C- g- A3 ~; T
8.     椭圆.StartAngle = 3.14159265358979 / 6
   
9.     椭圆.EndAngle = 3.14159265358979 / 3
   $ g9 y5 ~4 {2 C2 m$ _
10. End Sub

复制代码

5 @. w1 `3 ^+ O3 b

wysong

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

F1640

学习了，不错的帖子

season_88

写得非常好，通俗易懂。