'================================ 他図面からのブロックコピー 有無の確認 ==========================
'下記AUTOCAD(2020)での設定ですが、IJCAD(2020 PRO) の場合はどのように設定すれば良いのか
'教えてください。
'ちなみに、これをIJCADで実行すると途中で、エラーとなってしまいます。
'ACADの部分をGCADに置き換えてもエラーします。
Dim OBJDBX As New AXDBLib.AxDbDocument 'IJCAD での設定はどう書けば良い?
Dim objBlockS As AXDBLib.AcadBlocks 'IJCAD での設定はどう書けば良い?
Dim objBlockA(0) As AXDBLib.AcadBlock 'IJCAD での設定はどう書けば良い?
Dim objBlock As AXDBLib.AcadBlock 'IJCAD での設定はどう書けば良い?
Dim blockObj As AcadBlock 'IJCAD での設定はどう書けば良い?
Dim blockRefObj As AcadBlockReference 'IJCAD での設定はどう書けば良い?
Dim SSYM As String
SSYM = "BLK1" '呼び出したいブロック 有無の確認
Dim BLKNAM As String: BLKNAM = "NON"
' 参照元ファイルをオープン
OBJDBX.Open "C:\Users\msys-\Desktop\IJCAD2020PRO評価\LIB1.dwg"
'ERR ERR 上の行で"クラスが登録されていません"となりエラーとなります。
' ブロックコレクション
Set objBlockS = OBJDBX.Blocks
' For Y = 5 To 300 ' 必要なブロックを多くコピーする場合は繰り返す
' ブロックリストを配列へ
For Each objBlock In objBlockS
Debug.Print objBlock.Name
' ブロックがあれば
If objBlock.Name = SSYM Then
BLKNAM = objBlock.Name
Set objBlockA(0) = objBlock
' ブロックをインポート
OBJDBX.CopyObjects objBlockA, ThisDrawing.Database.Blocks
End If
Next objBlock
' Next
If BLKNAM = "NON" Then
MsgBox SSYM & "は登録されていません。"
Exit Sub
End If
MsgBox BLKNAM
'===================================