菜鸟学习VBA二次开发遇到的弱问题……

racolas

最近开始看CAD的二次开发……但是实践的时候遇到一个问题，每次出现ThisDrawing都会出错
+ k, a8 i; V* y2 }( g% M8 ^5 |Name 'ThisDrawing' is not declared.       
  m$ e) P4 G! b7 l0 }0 l! d# F% e" _
下面是在网上原样copy的教学程序，可是却在所有的thisdrawing处出错，各位大侠帮忙解决一下吧……many thx……
7 i1 g$ V0 c, y, q3 Y" A1 P, E; `因为我是菜鸟，可能里面有一些非常弱智的问题……大家见笑了
9 J$ c! W! ^6 j0 r  e6 K5 s! M$ Z9 }; o
  L5 x' x+ S) J——————————————

Option Explicit On
Imports AutoCAD
& A; Z* [2 [% L
7 `* p+ ^4 Z# s3 C  _Public Class Form1
; ~! G/ s6 k( @9 D; X7 Y  z' E% g    Sub Ch2_ConnectToAcad()
        Dim acadApp As AcadApplication
  ?+ U" z3 k5 j6 U& K2 O% |        On Error Resume Next
, r) |" S) Q/ `. d( m) i$ x
2 M/ J; L9 H; ?4 H* L( r) w        acadApp = GetObject(, "AutoCAD.Application")
        If Err.Number Then
" e/ {' B4 u- q% a            Err.Clear()
4 h0 E  v% o! ^* b            acadApp = CreateObject("AutoCAD.Application")
3 r* g* U" [+ e( A( V2 U            If Err.Number Then
                MsgBox(Err.Description)
                Exit Sub
- p- f* D1 B3 N4 n% l5 }! E/ f            End If
: o  Q! B( s0 U  x3 x- B% \0 O        End If
        MsgBox("Now running " + acadApp.Name + _
7 m0 ]. F4 i% p! M1 T: ?        " version " + acadApp.Version)
6 Q! j* J* ~" v' J- b
    End Sub


" j- x4 ]& Y9 H3 f    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
9 r0 _1 L3 j. O9 [; v) `1 l
( \9 E4 @" p# l, Q) c! \
! R* ?2 R) H, j0 J* G& G
    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
7 Z; }( [) v! A$ o
        Dim Arc As AutoCAD.AcadArc
        Dim Pnt As Object
1 O4 f5 F1 ]( r4 B  ^/ ^; }* E1 a# x5 Y0 \        Err.Clear()
* M+ R" e3 ]* R2 k( r+ [7 o        On Error Resume Next
- T5 s) z5 [8 ~$ d0 ]/ r
        '选择圆弧
        ThisDrawing.Utility.GetEntity(Arc, Pnt, "请选择圆弧：")
# D2 ^: ^$ a, S, {5 e, e6 ~        If Err.Number <> 13 And Err.Number <> 0 Then Exit Sub

% H; n4 A# P- m6 h& p. X* R, f        Do Until Arc.ObjectName = "AcDbArc"
            Err.Clear()
            ThisDrawing.Utility.GetEntity(Arc, Pnt, "你所选的不是圆弧，请重新选择圆弧：")
* m$ y, ~& H* I( T" k& C, D) }            If Err.Number <> 13 And Err.Number <> 0 Then Exit Sub
        Loop

/ \& ?8 g% D4 R4 J- f+ Z: A, x        '获取圆弧各属性
$ Z% \6 C3 m0 P8 U8 I& w3 P9 T        Dim Leng As Double
        Dim SPnt As Object
3 m* @- I$ `' O1 n( c* B        Dim EPnt As Object
        Dim CPnt As Object
) R( P: H) i' C+ K( h* d* s        Leng = Arc.ArcLength
/ y2 I) }( Y! k$ m/ r' H' x        SPnt = Arc.StartPoint
& [( z! x; B4 f" q( A3 Q        EPnt = Arc.EndPoint
        CPnt = Arc.Center
, H' q3 c9 u; {' z2 f6 A
1 t8 [4 B. }7 t$ |, x4 c        '选择标注点
        Dim PntforDim As Object
        PntforDim = ThisDrawing.Utility.GetPoint(, "选择标注点位置：")
" @' Q4 t% X# g. F
        '对圆弧进行角度标注
) X/ z, K6 x- P! V) J* z& v5 U5 ^7 s        Dim DimAng As AutoCAD.AcadDim3PointAngular
        DimAng = ThisDrawing.ModelSpace.AddDim3PointAngular(CPnt, SPnt, EPnt, PntforDim)
. E5 t. g0 e) V; ?
( G9 O: O) {' Z8 y' s3 B( `  A5 W$ r        '获取角度标注的精度控制(小数点位)
1 F. \6 ?( _" i% |        Dim FormatDot As Integer
7 k' Z9 W; Z3 z: h, G        Dim FormatTxt As String
! A0 v  ]% o) Q5 L1 L        FormatDot = DimAng.TextPrecision
' b- h) H) c  u6 }1 ^3 `        '转换为精度控制格式
        FormatTxt = "0."
        Dim I As Integer
        For I = 0 To FormatDot
( B$ t9 v! J  c7 h( {& [9 o0 `            If I > 0 Then
' X9 j2 F, M. v8 K5 P% [                FormatTxt = FormatTxt & "0"
            End If
: T6 i8 |: G* k& k# H        Next
8 m0 v4 e1 `& O; `        '更改角度标注的文字内容
+ B2 R& R4 Y- I* D9 n0 Q        DimAng.TextOverride = Format(Leng, FormatTxt)
: [1 z9 E! T" J$ T$ A7 t2 z) k$ K! g0 P; o
; C9 {$ G) y- L# h" N( S1 X& A    End Sub

. x' z* k3 b9 V! @3 D7 X+ I9 Y
7 v6 K$ `8 Y1 n+ e) P7 `! C
End Class

racolas

……没人理我嘛……

三金

都是英语看不懂

linmingxin556

哈哈

zzw_06

看不懂哦