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

racolas

最近开始看CAD的二次开发……但是实践的时候遇到一个问题，每次出现ThisDrawing都会出错
; y5 v  T+ }9 W7 M5 t- hName 'ThisDrawing' is not declared.       

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

——————————————
! s$ d- ^. c& i0 [/ z5 n: p' L6 d- I

Option Explicit On
Imports AutoCAD
- i. O+ J$ M  e  c
Public Class Form1
# }9 [' s2 O  N& D$ R1 f( _# |    Sub Ch2_ConnectToAcad()
( i+ ?3 a, b+ @2 f0 V        Dim acadApp As AcadApplication
        On Error Resume Next
4 E* O! D5 r2 S( D5 j. q- }2 {
4 C# V! S. Y5 F/ v  e        acadApp = GetObject(, "AutoCAD.Application")
' z4 X8 ]9 M7 e: ?# D        If Err.Number Then
            Err.Clear()
3 z, R7 s3 I! U( ?            acadApp = CreateObject("AutoCAD.Application")
" Y5 o5 f% i! i4 r            If Err.Number Then
9 u* s6 T2 e3 c. w2 }1 U' D                MsgBox(Err.Description)
% @6 ]2 C; {' E2 M) N                Exit Sub
# s# ?  i4 T+ \# W            End If
        End If
        MsgBox("Now running " + acadApp.Name + _
) T5 I: S! T4 I; L( t: Q7 S; x) Q        " version " + acadApp.Version)
; D2 |  i" c7 y' w7 ~" I: R
& c9 J! J" [! P0 O/ ?5 A    End Sub
$ f- F$ x6 U9 T( X1 H
) N$ f" N. Y9 _+ v8 N9 y
+ u6 P) C# g% o& U1 t# X4 I    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
$ h6 ^- h/ v! q7 |, F; t

( e" ]  W2 y% a% W8 T1 j% p$ m% ?
4 {9 g+ {% ?* c1 F. [; |6 u    End Sub
- u- X7 `) i0 ^0 i/ b2 e
) w8 J! L7 q7 R$ E) }

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
1 s- G! }3 m) a
        Dim Arc As AutoCAD.AcadArc
        Dim Pnt As Object
        Err.Clear()
        On Error Resume Next
( ~  E! ~3 E/ ]3 H2 l: j
( Y5 {7 L: {$ v9 _6 e        '选择圆弧
        ThisDrawing.Utility.GetEntity(Arc, Pnt, "请选择圆弧：")
6 C+ \( _( u* ^- q        If Err.Number <> 13 And Err.Number <> 0 Then Exit Sub
* b! h; Q! w* r% g$ ?' S
        Do Until Arc.ObjectName = "AcDbArc"
- K5 h( \' D7 F* |5 M            Err.Clear()
            ThisDrawing.Utility.GetEntity(Arc, Pnt, "你所选的不是圆弧，请重新选择圆弧：")
            If Err.Number <> 13 And Err.Number <> 0 Then Exit Sub
! h4 e, o. A" Z5 k        Loop

( x# m  V2 s( P  k# u, ]        '获取圆弧各属性
        Dim Leng As Double
# G) W# Z, J# i9 F" L6 t7 Z0 q        Dim SPnt As Object
8 m4 \- u  @& p( ?: J* `, B0 {        Dim EPnt As Object
+ m7 U& }% q' X) ]        Dim CPnt As Object
! D8 t5 O' V! L- f  X! ~        Leng = Arc.ArcLength
        SPnt = Arc.StartPoint
        EPnt = Arc.EndPoint
        CPnt = Arc.Center

        '选择标注点
) R" t0 W& i$ I1 y        Dim PntforDim As Object
        PntforDim = ThisDrawing.Utility.GetPoint(, "选择标注点位置：")

        '对圆弧进行角度标注
        Dim DimAng As AutoCAD.AcadDim3PointAngular
        DimAng = ThisDrawing.ModelSpace.AddDim3PointAngular(CPnt, SPnt, EPnt, PntforDim)

( c$ s- f$ s' d( Y. b        '获取角度标注的精度控制(小数点位)
        Dim FormatDot As Integer
# M: q. l  C3 D  u* m9 x5 E        Dim FormatTxt As String
        FormatDot = DimAng.TextPrecision
+ n* r& D! `+ ~1 g7 p        '转换为精度控制格式
        FormatTxt = "0."
: F( U& Y/ R; V6 R4 t0 m: k        Dim I As Integer
1 v) g! c' i2 `- \        For I = 0 To FormatDot
            If I > 0 Then
4 `7 J5 m9 ]9 L4 C! b                FormatTxt = FormatTxt & "0"
            End If
        Next
        '更改角度标注的文字内容
/ w0 A: w4 _* h4 c9 A        DimAng.TextOverride = Format(Leng, FormatTxt)

    End Sub

4 V4 w( ~1 q5 f' X6 E8 X
& o: T# U4 ], q7 F5 v" K& r
) X! }2 d* M+ ^. \' @' |End Class

racolas

……没人理我嘛……

三金

都是英语看不懂

linmingxin556

哈哈

zzw_06

看不懂哦