Skip to main content
user36531's user avatar
user36531's user avatar
user36531's user avatar
user36531
未登録
  • 登録から 5 年 1 か月
  • 前回のログイン 5年以上前
コメント
IJCADのGetPointでラバーバンドができない
【追記】今までは参照COMを使わずに作成していましたが型宣言をする為に GcadDynblocklib.dll と GcadVbaLib.dll をCOMに追加して上記のようにソースを変更しました。(今までは先にAcadを立ち上げてから本ソフトを実行していました。従‌​ってAcadEntityなどの宣言はでき‌​ずObjectで代用していました)
コメント
IJCADのGetPointでラバーバンドができない
型宣言で Public ACAD As Object, Public DOC As Object を Public ACAD As GcadApplication = New GcadApplication, Public DOC As GcadDocument = ACAD.ActiveDocument に変更し、関数内では Dim Myobj As Object = New Object を Dim Myobj As GcadEntity = Nothng に変更して実行すると正常にラバーバンドできました。
コメント
IJCADのGetPointでラバーバンドができない
サンプルコードで実行するとラバーバンドできました。当方のコードもapp,doc,obj等を定義し直して実行してみます
獲得
修正
Loading…
コメント
IJCADのGetPointでラバーバンドができない
Dim ptPick(0 to 2) as Double にしてみました。実行は出来てクリック位置は取得できますが、ラバーバンドが出てきません(As Object時と同じ現象でした)。
コメント
IJCADのGetPointでラバーバンドができない
投稿者です。VB.Net2008を使っています。型 Variant は指定できないので Dim ptPick as VariantType にすると x1=ptPick(0) がエラーになるので、Dim ptPick(2) as VariantTypeにして実行しました。すると GetEntityで「型'Double()'から型'VariantType()'への変換は無効です」のエラーになります。‌​VariantTypeではなくDoubl‌​eにすると実行できますがラバーバンドはし‌​てくれません。IJCADの開発者ヘルプに‌​も例題がないので困っています。
質問を投稿
Loading…