ブロック属性の値の抽出

[Papao]

全てに
ブロックに含まれる属性の値を estarte する方法が存在し、変数に割り当てる?
ブロックと属性の名前はいつも同じですが、このブロックには気にしない他の属性が含まれています。

"etc" ブロックに含まれる "formed" 属性の値を抽出する指示は何ですか?
お問い合わせ

 

[rpor66]

; 可視属性のリスト(タグ . 値) n= 実体名
(defun fnlistatag(n / シートタイプとループリスト obbloc v ntag txt))
(setq シート (cdr (assoc 66 (entget n))))))))
(setqタイプ(CDr)))
(と=シート1)(=タイプ「インサート」))
(プログ)
(setq n (entnext n) ) )
(Sectq と (entget n)))
(setq ループ nil)
(/= ループ "seqend")
(setq ntag (cdr (assoc 2 e))))))
(setq txt (cdr))
(setq obbloc (vlax-ename->vla-object n)))
(setq v (vlax-get-property obbloc 'visible)))
(例:vlax-true)
(setqリスト(リスト追加)))
)
(setq n (entnext n) ) )
(Sectq と (entget n)))
(setq ループ (cdr (assoc 0 e))))))
)
)
)
リスト
)

(setq リストタグ n)
実体 n のすべての属性のリストを取得します。

(setq txt (cdr (soc "format" リストタグ))))))
format 属性値

 

[Papao]

素晴らしい、ありがとうrpor66、
今、私はそれが鉱山と対話できるように、あなたのコードを設定する方法を理解しようとします:
取得した結果に応じて2番目のリスペスを涙できるようにするには、次のようにする必要があります。
txt が返ったら "1" ルーチン "a1.lsp" を起動したい
"2" を返す場合は "a2.lsp" を起動する必要があります。
「3」が「a3.lisp」など発売

今は仕事にしたいと思っているので、出来ると思います。 . . .
アドバイスはありますか?

 

[rpor66]

(コンド)
(歌)
(「a1」)
; ファイル a1.lsp に含まれるコマンドを入力
)
(歌)
(「a2」をロード)
; ファイル a2.lsp に含まれるコマンドを入力
)
;等...
)

 

[Papao]

素晴らしい, 感謝 1000

 

[Papao]

作業は出来ません。 . . .

最初のリストは関数で、メインリストにリコールするサブだったと思ったが、最終的には"欠落した引数"のエラーを取得する

正しく設定する手を教えてください。

 

[rpor66]

(defun c:estraiatt(/ sel n および type Listtag txt)))
(setq sel (entsel "\check block: "))
(Sectq n (カルセル)))
(Sectq と (entget n)))
(setq型(cdr(assoc 0 e))))))
(=型 "insert")
(プログ)
(setq リストタグ n)
(setq txt (cdr (soc "format" リストタグ))))))
(alert txt) ; 結果を表示するためにのみ機能し、削除することができます
(コンド)
(歌)
(「a1」)
; ファイル a1.lsp に含まれるコマンドを入力
)
(歌)
(「a2」をロード)
; ファイル a2.lsp に含まれるコマンドを入力
)
;等...
)
)
)
)

この例では、ブロックは個別に選択します。
選択グループを作成し、ループを通して、さまざまな負荷を順番に実行できます。

 

[Papao]

ブロック名は常に同じ(等)であり、属性(フォーマット)も、毎回選択したくないが、コード内で直接呼び出したい。
これは、私はバッチで開く瞬間に私を助けます (スクリプト) フォルダに含まれているすべてのファイル.

とにかく、あなたの忍耐、コードの仕事に感謝し、私は私からそこに取得しようとする

 

[rpor66]

(defun c:estrairanno tutteatt(/ sel nと型リストタグ txt c))
(setq sget "x" (cons 0 "insert") (cons 2 "etc")))))
(if)
(プログ)
(setq c 0)
(repeat (sslength の sel))
(setq n (ssname sel c)) )
(Sectq と (entget n)))
(setq型(cdr(assoc 0 e))))))
(setq リストタグ n)
(setq txt (cdr (soc "format" リストタグ))))))
(alert txt) ; 結果を表示するためにのみ機能し、削除することができます
(コンド)
(歌)
(「a1」)
; ファイル a1.lsp に含まれるコマンドを入力
)
(歌)
(「a2」をロード)
; ファイル a2.lsp に含まれるコマンドを入力
)
;等...
)
(setq c (1+ c)) )
)
)
)

 

[Papao]

ここまで出てきた。 お問い合わせ
それから私はすでにそれをしたのを見た!
ありがとうございました!