インサートポイントテーブルのvba座標

[KATERYNA]

おはようございます。
描画を vba で抽出し、テーブルのインサートポイントの座標を vba で抽出し、以前は getpoint で投入し、その後移動する必要があります。
テーブルの座標を見つける可能性はありますか?
polylinea 座標や他の autocad オブジェクトを持つコマンドを見つけましたが、テーブルでは動作しません。
助けてもらえますか?
お問い合わせ

 

[rpor66]

プライベートサブ selecttabella()

dim tabella として acadtable
dim PT は変形として
dim ssetobj として acadselectionset

エラーで次の再開
thisdrawing.selectionsets.item("sset")。 削除
エラーのgoto 0

set ssetobj = thisdrawing.selectionsets.add("sset")
ssetobj.selectonscreen ディレクティブ

tabella = ssetobj.item(0) の設定
pt = tabella.insertionpoint(タブラ)

msgbox "x: "&pt(0)& " - y: "&pt(1)

thisdrawing.selectionsets.item("sset")。 削除

エンドサブ

お問い合わせ

 

[rpor66]

オブジェクトのプロパティのリストがこのコマンドを使用する場合:
(vlax-dump-object(vlax-ename->vla-object(car(entsel "\nsel ent: ")))))))))))

利便性のために、相対コマンドでボタンを作成しました。多くの機会に非常に便利です。

 

[KATERYNA]

プライベートサブ selecttabella()

dim tabella として acadtable
dim PT は変形として
dim ssetobj として acadselectionset

エラーで次の再開
thisdrawing.selectionsets.item("sset")。 削除
エラーのgoto 0

set ssetobj = thisdrawing.selectionsets.add("sset")
ssetobj.selectonscreen ディレクティブ

tabella = ssetobj.item(0) の設定
pt = tabella.insertionpoint(タブラ)

msgbox "x: "&pt(0)& " - y: "&pt(1)

thisdrawing.selectionsets.item("sset")。 削除

エンドサブ

お問い合わせ

お問い合わせ とても親切です!

 

[KATERYNA]

オブジェクトのプロパティのリストがこのコマンドを使用する場合:
(vlax-dump-object(vlax-ename->vla-object(car(entsel "\nsel ent: ")))))))))))

利便性のために、相対コマンドでボタンを作成しました。多くの機会に非常に便利です。

初めての回答で解決しました。 このコマンドを勉強しています。 お問い合わせ