ブロック内のエンティティティティを代入する

[StoneDesign]

おはようございます。
autocadブロックに問題があります。
同じタイプの別のエンティティティティティとブロック内のエンティティティティを交換する必要があります。
私は関係するすべてのエンティティティの名前を持っていますが、私はそれらを置き換える方法がわかりません。

アイデアはありますか?

お問い合わせ
スカーゾーニ・ルイジ

 

[x11start]

あなたはブロックにエンティティティを追加または削除することができます私のvarblokを使うことができます。
古いエンティティティを削除し、コマンドを再実行すると、新しいエンティティティを追加できます。

 

[StoneDesign]

ありがとうございます。良い解決策ですが、何度もコマンドを実行する必要があります。
私はvl関数で何かを見た....しかし、私はこれらの上で任意の排気文書を見つけません.

やってみる

 

[rpor66]

更新されたブロックを交換するのは簡単ですか? 必要なすべてのファイルでスクリプトを実行できます。
「私は関係するすべての組織の名前を持っています。」 どういう意味ですか? テキスト、行、何ですか? 別の同等またはタイプと交換する?
あなたが詳細に下に行くと、あなたを助けることが容易です, あなたはブロックを変更するための制御に手を置くために手を置くことが便利ではない場合は、良いスタートのように見えません, 確かに, 私は悪いことを言うだろう.

 

[Gio_S]

さて、オートカドが機能を持っていて、ブロックを交換することを考える。 僕が知らなかったので、この小さなユーティリティを書いた。

(defun置換())
(setq メモブロック 0)
(prompt "\replaces選択したブロック) <point cro="" las="" pre="" win="">. "
(setq の selez (ssget))))
(/= selez nil の場合)
(プログ)
(setq l (sslength の selez))) (setq l (1- l)) (setq a 0)))
(ただし、< = l)
(プログ)
(setq ename(sname selez a)))) )
(setq alist(エントリ名)))
(= "insert"(cdr(assoc 0 alist)))) の場合)
(プログ)
(setq bn (cdr (assoc 2 alist)); ブロック名を取得する
; (prompt (strcat bn)) -------------------------------------------->デバッグ
(setq newname (getstring ( "bn" の新しいブロック名 ")))))))
(setq alist (subst (cons 2 newname ) (assoc 2 alist )))))
(entmod alist) (setq mes "ok.") (setq mes " しかし、それ ***** 再びあなたが書いた? いいえ。)
(setq memblock 1)
)
)
)
(setq a(1+)) (a))
)
)
(/= memblock 0 の場合)
(プログ)
(prompt "\nblocks to reload found.\n")
(スタンプ)
)
(prompt "\nblocks が見つかりません。) ツイート
)
)
)
) ;</point>

 

[StoneDesign]

解決!
下の行を関数 vl で運びます。
問題解決

やってみる

(vl-load-com)
(setq minted (car (nentsel "除去するブロックサイズを選択)))))))

(Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep (Bleep) (Bleep (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep
(vla-delete(vlax-ename->vla-object minted))))
(Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep (Bleep) (Bleep (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep) (Bleep

(コマンド "_regen")

 

[rpor66]

<grazie, buona="" comando="" devo="" essere="" il="" io="" lanciare="" ma="" può="" soluzione="" tantissime="" una="" volte.="">それでは、何を解決しましたか?</grazie,>