Private Sub Test()
1
2 '変数名のdrawing layer coor entity は、
3 '他のソフトで既存のオブジェクトやメソッドのような気がするので
4 '任意に変更しています。
5
6 Dim myDrw As itsCAD.Drawing
7 Dim myLyr As itsCAD.Layer
8 Dim myCrd As itsCAD.Coordinate
9 Dim myEnt As itsCAD.Entity
10 Dim cnt As Long
11 Dim i As Long
12
13 On Error GoTo Err_Handler
14
15 Set myDrw = New itsCAD.Drawing
16 myDrw.Application.Visible = True
17
18 '座標系の数を取得
19 cnt = myDrw.GetCoordinateCount
20 For i = cnt To 1 Step -1
21 '座標系のオブジェクトを取得
22 Set myCrd = myDrw.GetCoordinate(i)
23 'オブジェクト取得の確認
24 If myCrd Is Nothing Then
25 MsgBox (False)
26 Else
27 MsgBox (True)
28 End If
29 '座標系のオブジェクトを削除
30 myDrw.DeleteCoordinate (myCrd)
31 Next i
32
33 'レイヤの数を取得
34 cnt = myDrw.GetLayerCount
35 For i = cnt To 3 Step -1
36 'レイヤのオブジェクトを取得
37 Set myLyr = myDrw.GetLayer(i)
38 'オブジェクト取得の確認
39 If myLyr Is Nothing Then
40 MsgBox (False)
41 Else
42 MsgBox (True)
43 End If
44 myDrw.DeleteLayer (myLyr)
45 Next i