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

racolas

最近开始看CAD的二次开发……但是实践的时候遇到一个问题，每次出现ThisDrawing都会出错
Name 'ThisDrawing' is not declared.       
8 H) ]) W7 ]7 z0 h. O
4 |5 G9 C5 f1 C0 c下面是在网上原样copy的教学程序，可是却在所有的thisdrawing处出错，各位大侠帮忙解决一下吧……many thx……
因为我是菜鸟，可能里面有一些非常弱智的问题……大家见笑了

——————————————
) s3 ~3 F, c- C4 }# M4 m

Option Explicit On
* s5 J$ V+ i  }Imports AutoCAD
% J& M( q% d! x1 k# J( F- _
Public Class Form1
9 w7 @& n8 ~) {; y: E5 W8 V    Sub Ch2_ConnectToAcad()
( n- C: @2 h: O7 g! L- C) I( k        Dim acadApp As AcadApplication
        On Error Resume Next

        acadApp = GetObject(, "AutoCAD.Application")
8 Z5 i* j/ k) G        If Err.Number Then
            Err.Clear()
3 x8 \* _3 K: a            acadApp = CreateObject("AutoCAD.Application")
; ~$ F5 e: s" u( b2 s            If Err.Number Then
/ d$ R1 }) t% ~+ `( `                MsgBox(Err.Description)
9 k) b$ m3 l8 F                Exit Sub
2 A' [7 s% _! p' Z0 R& u4 g            End If
        End If
        MsgBox("Now running " + acadApp.Name + _
        " version " + acadApp.Version)
% u" Z9 u7 C! L* K( Q
    End Sub

5 X: b( z# \: E* H( p' B
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
; ^& R( Z9 ?$ q1 p
! j' ^6 K7 |! Y. g' V0 o& Q

    End Sub


4 F2 k$ B' Z5 }
4 V6 t7 @2 D# W/ v    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Arc As AutoCAD.AcadArc
        Dim Pnt As Object
8 n9 Q# ~7 U# q5 @6 z" U        Err.Clear()
        On Error Resume Next

        '选择圆弧
% F4 i7 p; c4 N8 x7 J, [        ThisDrawing.Utility.GetEntity(Arc, Pnt, "请选择圆弧：")
        If Err.Number <> 13 And Err.Number <> 0 Then Exit Sub

& @8 K  P1 O, _5 z' j- [1 c' f        Do Until Arc.ObjectName = "AcDbArc"
. I6 p0 z5 q7 I- {& q. @1 m            Err.Clear()
            ThisDrawing.Utility.GetEntity(Arc, Pnt, "你所选的不是圆弧，请重新选择圆弧：")
            If Err.Number <> 13 And Err.Number <> 0 Then Exit Sub
        Loop
- u' t) w' b9 z6 u# D% i" K3 c
        '获取圆弧各属性
        Dim Leng As Double
6 O+ D8 g) h: `        Dim SPnt As Object
        Dim EPnt As Object
7 E9 J* E: C+ j        Dim CPnt As Object
: {* U4 @! k- E! V1 u4 }1 c% x        Leng = Arc.ArcLength
0 T/ v9 T# L/ B, C        SPnt = Arc.StartPoint
        EPnt = Arc.EndPoint
        CPnt = Arc.Center
/ M: B* z0 w( ?8 R2 q/ f
) Q: _. q8 y& l+ \        '选择标注点
5 _2 `5 D( a  F5 n* A        Dim PntforDim As Object
        PntforDim = ThisDrawing.Utility.GetPoint(, "选择标注点位置：")
! N; n, Z' ]/ ]/ `) t8 }
- k( O- G8 h$ @/ C5 q8 E        '对圆弧进行角度标注
5 a2 K$ B# z* [        Dim DimAng As AutoCAD.AcadDim3PointAngular
) w4 |# N9 K" A9 [$ s5 L        DimAng = ThisDrawing.ModelSpace.AddDim3PointAngular(CPnt, SPnt, EPnt, PntforDim)
  p7 ^5 h+ V  _+ {
5 T7 l, P3 x2 r6 W3 D        '获取角度标注的精度控制(小数点位)
        Dim FormatDot As Integer
        Dim FormatTxt As String
        FormatDot = DimAng.TextPrecision
        '转换为精度控制格式
        FormatTxt = "0."
! U( E7 B: P/ }        Dim I As Integer
        For I = 0 To FormatDot
3 f$ n3 ~# ?: \2 R2 h( K            If I > 0 Then
) j. H% n$ p+ }- Q$ z# O0 U0 d* W                FormatTxt = FormatTxt & "0"
( t4 E6 w0 Z3 @$ S' Q: f3 t$ N            End If
. G3 v4 ^- Q9 o% W/ ^3 t' t        Next
        '更改角度标注的文字内容
0 q7 z% v, K% b        DimAng.TextOverride = Format(Leng, FormatTxt)

    End Sub

# K9 d7 Z# v7 \% Z
  U- {: W. P4 H$ W- Y  U9 c
End Class

racolas

……没人理我嘛……

三金

都是英语看不懂

linmingxin556

哈哈

zzw_06

看不懂哦