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

racolas

最近开始看CAD的二次开发……但是实践的时候遇到一个问题，每次出现ThisDrawing都会出错
Name 'ThisDrawing' is not declared.       
% r+ O& {* Q, R
下面是在网上原样copy的教学程序，可是却在所有的thisdrawing处出错，各位大侠帮忙解决一下吧……many thx……
因为我是菜鸟，可能里面有一些非常弱智的问题……大家见笑了

——————————————

Option Explicit On
( D9 E- i2 w% U% @; }1 cImports AutoCAD
+ T8 {  ]- s+ b+ z2 J
Public Class Form1
& N8 \' H3 m! C. N, @    Sub Ch2_ConnectToAcad()
6 [+ ^! E3 }8 n        Dim acadApp As AcadApplication
1 E% f% e; D4 j8 }* j        On Error Resume Next

: _' x* |: W* A        acadApp = GetObject(, "AutoCAD.Application")
        If Err.Number Then
            Err.Clear()
& Q: `. M& w- O9 r5 J+ J9 t            acadApp = CreateObject("AutoCAD.Application")
/ ^; g2 l. z) @$ z7 K            If Err.Number Then
8 c( M/ I2 _7 w0 a" U3 ~& ^2 b! c                MsgBox(Err.Description)
                Exit Sub
            End If
7 E6 w+ Y" _4 y& _2 V9 T) Q6 C        End If
        MsgBox("Now running " + acadApp.Name + _
        " version " + acadApp.Version)

    End Sub

9 v1 n9 \+ h, l# K8 d
  r0 d! ]  d) E+ i5 c2 P    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
. r( z; z( ^% |  e" R0 ^0 ~8 [+ {


9 H' I' e! ]* q    End Sub

5 }! T9 ~/ t8 }$ V0 x

8 O8 C% q1 C9 ]( C5 r    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

# P$ L5 _0 ]8 N! W( F4 q        Dim Arc As AutoCAD.AcadArc
/ b# Q0 H, q1 w        Dim Pnt As Object
& J% L& i, p& n, q  s0 W. T. f- b' M        Err.Clear()
        On Error Resume Next
2 ?& C! A" k5 K0 I" h
" S: l% o( s& ]9 x8 |8 B0 ~& g        '选择圆弧
        ThisDrawing.Utility.GetEntity(Arc, Pnt, "请选择圆弧：")
- G0 C# a! E8 l# ^* v) B        If Err.Number <> 13 And Err.Number <> 0 Then Exit Sub

9 y8 J2 v( G  Z0 k% L) B5 J        Do Until Arc.ObjectName = "AcDbArc"
' a0 m9 Z) ]/ P' ~, f" n& t* z            Err.Clear()
            ThisDrawing.Utility.GetEntity(Arc, Pnt, "你所选的不是圆弧，请重新选择圆弧：")
+ j: Z9 U9 A+ X            If Err.Number <> 13 And Err.Number <> 0 Then Exit Sub
        Loop

        '获取圆弧各属性
' T7 a  G4 B1 N        Dim Leng As Double
        Dim SPnt As Object
        Dim EPnt As Object
) Q- F! p: x& @# y2 q        Dim CPnt As Object
9 I' `! f9 ~; I% G& X9 C        Leng = Arc.ArcLength
; |; [1 b! _  D$ y1 _6 z; v        SPnt = Arc.StartPoint
        EPnt = Arc.EndPoint
        CPnt = Arc.Center

) F2 g$ Z$ e/ n$ p5 ^4 E3 X        '选择标注点
% \2 V5 x0 D8 D) l' {8 X        Dim PntforDim As Object
        PntforDim = ThisDrawing.Utility.GetPoint(, "选择标注点位置：")
. L1 D: W% ]5 g: V
        '对圆弧进行角度标注
) k- Y+ [' u5 @9 ^6 j) Y        Dim DimAng As AutoCAD.AcadDim3PointAngular
        DimAng = ThisDrawing.ModelSpace.AddDim3PointAngular(CPnt, SPnt, EPnt, PntforDim)

        '获取角度标注的精度控制(小数点位)
        Dim FormatDot As Integer
        Dim FormatTxt As String
        FormatDot = DimAng.TextPrecision
        '转换为精度控制格式
7 ?+ @3 v! x  K8 i9 Y* r        FormatTxt = "0."
        Dim I As Integer
        For I = 0 To FormatDot
            If I > 0 Then
                FormatTxt = FormatTxt & "0"
! c& f/ W% }# B& j  f            End If
        Next
        '更改角度标注的文字内容
* c3 {! ?" Q# Q        DimAng.TextOverride = Format(Leng, FormatTxt)

    End Sub


0 Q/ P8 ~0 u7 ?1 W. g, @
1 f& C2 D# ?$ q  [End Class

racolas

……没人理我嘛……

三金

都是英语看不懂

linmingxin556

哈哈

zzw_06

看不懂哦