オブジェクトのデータのクエリのための古典的なautolisp関数(entsel、entget ...)で機械でエンコードされたデータの一覧を取得します。おはようございます 私は、ブロックを調節するパラメータが保存されている場所を見つけることができない練習の機械デスクトップのオートカドブロックのパラメトリックデータを抽出することができる問題があります
オブジェクトとタイプ "amgstdpart"
残念なことに私は見つけられず、私は誰かが私にこの問題に対処するのを助けることができる場合は、オートデスクフォーラムでも何も見つけていません
お問い合わせ それらの値を vba 配列に持たせる方法はありますか? 私のアイデアは、1つ以上のオブジェクトで(getobject)をクリックし、その後、コードは計算の残りの部分を行います。オブジェクトのデータのクエリのための古典的なautolisp関数(entsel、entget ...)で機械でエンコードされたデータの一覧を取得します。
結果の例を示す txt を添付します。
リストには、(300 . "2100") や (300 . "1000") などのフィールドがあり、より大きなコンポーネントの高さと幅を表しています。
だから私は進歩を作っていますが、私を放棄しませんか?オブジェクトのデータのクエリのための古典的なautolisp関数(entsel、entget ...)で機械でエンコードされたデータの一覧を取得します。
結果の例を示す txt を添付します。
リストには、(300 . "2100") や (300 . "1000") などのフィールドがあり、より大きなコンポーネントの高さと幅を表しています。
パブリックサブprovarecuperopartiStandard()
acadmapplication への参照
mcad を acadmapplication として
mcad = thisdrawing.application.getinterfaceobject("acadmauto.acadmapplication")
' mcad2dstructmgrを取得する
mcad2dconstructmgr として dim structmgr
set structmgr = mcad.activedocument.structmgr2d
' 作成 mcad2dstdpartcompgroupdescriptor
mcad2dstdpartcomponentdescriptor としてコングループ1
設定コングループ1 = structmgr.create2dstdpartcomponentdescriptor
dim powviews1() として mcadstdpartcomponentviewdescriptor
powviews1 = structmgr.getsinglestdpartviewsformigr
dim view1 は、
dim powview1 として mcadstdpartcomponentviewdescriptor
powviews1の各ビュー1
'if typeof view1 は mcadstdpartcomponentviewdescriptor で、
'set powview1 =ビュー1
'icompgroup.addview powview1 の使い方
'msgbox "" は、
もしも
powview1 =ビュー1
msgboxビュー1.fullviewname & "-" & view1.name
次へ
エンドサブ申し訳ございません。 お問い合わせだから私は進歩を作っていますが、私を放棄しませんか?
下のコードは、デザイン "amgstdpart" のすべての標準部分のサイクルを作ります...ビューの名前と説明を示します。... パラメータを変更するために、例えばもっと多くのことをすることができるようになりました。 コードで描画することも可能です。
Code:パブリックサブprovarecuperopartiStandard() acadmapplication への参照 mcad を acadmapplication として mcad = thisdrawing.application.getinterfaceobject("acadmauto.acadmapplication") ' mcad2dstructmgrを取得する mcad2dconstructmgr として dim structmgr set structmgr = mcad.activedocument.structmgr2d ' 作成 mcad2dstdpartcompgroupdescriptor mcad2dstdpartcomponentdescriptor としてコングループ1 設定コングループ1 = structmgr.create2dstdpartcomponentdescriptor dim powviews1() として mcadstdpartcomponentviewdescriptor powviews1 = structmgr.getsinglestdpartviewsformigr dim view1 は、 dim powview1 として mcadstdpartcomponentviewdescriptor powviews1の各ビュー1 'if typeof view1 は mcadstdpartcomponentviewdescriptor で、 'set powview1 =ビュー1 'icompgroup.addview powview1 の使い方 'msgbox "" は、 もしも powview1 =ビュー1 msgboxビュー1.fullviewname & "-" & view1.name 次へ エンドサブ