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

racolas

最近开始看CAD的二次开发……但是实践的时候遇到一个问题，每次出现ThisDrawing都会出错
Name 'ThisDrawing' is not declared.       

下面是在网上原样copy的教学程序，可是却在所有的thisdrawing处出错，各位大侠帮忙解决一下吧……many thx……
因为我是菜鸟，可能里面有一些非常弱智的问题……大家见笑了

——————————————
' j* d* c8 v5 M, y& s; A/ e

Option Explicit On
Imports AutoCAD
6 Z' X# [/ R  P5 C3 X, b, r
Public Class Form1
    Sub Ch2_ConnectToAcad()
        Dim acadApp As AcadApplication
. V& z$ H) U5 s3 k5 S+ c7 T        On Error Resume Next

( }- ?- \! v2 b" F. n: }        acadApp = GetObject(, "AutoCAD.Application")
+ e; p* t* M& g5 U8 l        If Err.Number Then
4 ^+ ], V9 g  [* S% [3 ~6 K$ o            Err.Clear()
            acadApp = CreateObject("AutoCAD.Application")
            If Err.Number Then
, \) n" \# L. V( J1 a                MsgBox(Err.Description)
9 x: c, ^9 k0 V: j                Exit Sub
: y2 X2 c. M* Y4 E            End If
/ |4 `5 H  I# h        End If
        MsgBox("Now running " + acadApp.Name + _
" M* K- }9 F1 {6 N- N$ k        " version " + acadApp.Version)

    End Sub

3 z' p8 S+ [5 r$ R5 [# s. R
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


5 s) P# @+ B% ^* B$ w: @1 E
6 W! t/ t/ y* ~. T0 e( M    End Sub
& t- s8 ]& X0 b) E, ]9 @: }5 l& R8 y
" c- j! L6 V5 M4 A

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  K9 z/ u( Y6 E0 a
$ Q' ]" z2 f$ P5 b9 ?        Dim Arc As AutoCAD.AcadArc
        Dim Pnt As Object
  ?  C$ F$ s+ W. T# N  _/ A        Err.Clear()
        On Error Resume Next
1 ]' \. m% [  o: T" o
        '选择圆弧
        ThisDrawing.Utility.GetEntity(Arc, Pnt, "请选择圆弧：")
2 r& H! x/ Y5 T( r( u        If Err.Number <> 13 And Err.Number <> 0 Then Exit Sub

        Do Until Arc.ObjectName = "AcDbArc"
8 Z- l$ M/ q. U2 h7 D            Err.Clear()
            ThisDrawing.Utility.GetEntity(Arc, Pnt, "你所选的不是圆弧，请重新选择圆弧：")
            If Err.Number <> 13 And Err.Number <> 0 Then Exit Sub
9 ^) n7 {% g1 q7 P6 U        Loop

) l2 [3 H/ z5 d  C        '获取圆弧各属性
: B! H9 n9 B" e9 o        Dim Leng As Double
4 Z; s1 A8 c* @' E; L1 D* E' z        Dim SPnt As Object
( l2 f- |* q- j6 A/ f' v$ D6 }& N        Dim EPnt As Object
        Dim CPnt As Object
        Leng = Arc.ArcLength
        SPnt = Arc.StartPoint
        EPnt = Arc.EndPoint
        CPnt = Arc.Center
9 S: k# {/ I4 N1 d* f* Q
& j& `+ D, r4 O0 K        '选择标注点
! W3 @- w2 C9 t0 C( m        Dim PntforDim As Object
. D- U* v$ P3 \$ B) K        PntforDim = ThisDrawing.Utility.GetPoint(, "选择标注点位置：")

" R! q0 ~: k% h3 w( j' Q6 T3 R, z        '对圆弧进行角度标注
        Dim DimAng As AutoCAD.AcadDim3PointAngular
        DimAng = ThisDrawing.ModelSpace.AddDim3PointAngular(CPnt, SPnt, EPnt, PntforDim)

$ i. _4 E( m; R0 x/ Z# G+ f! n6 m        '获取角度标注的精度控制(小数点位)
        Dim FormatDot As Integer
# Z7 o( Z5 u7 w/ M, I# j3 D2 L& R        Dim FormatTxt As String
        FormatDot = DimAng.TextPrecision
        '转换为精度控制格式
: g3 Y6 J- y2 [# F; B        FormatTxt = "0."
        Dim I As Integer
        For I = 0 To FormatDot
9 u: }! U6 r. L1 `0 q            If I > 0 Then
0 W+ r( u* b) x6 k                FormatTxt = FormatTxt & "0"
; G* |0 R, x( f7 ^- U            End If
# w! ?7 V6 z: s- b+ C8 _( C        Next
        '更改角度标注的文字内容
        DimAng.TextOverride = Format(Leng, FormatTxt)
8 R9 z  R/ g; ]$ d: e/ N# d
7 M- @' G- O$ s. U% b    End Sub
- ]3 D: \9 Z0 p4 g2 r5 {
- t* h! k2 `, d0 y6 s: r
# `2 O7 }0 @; N2 T
End Class

racolas

……没人理我嘛……

三金

都是英语看不懂

linmingxin556

哈哈

zzw_06

看不懂哦