すぐにブロックの名前を変更

[GP.]

oltre al comando rinomina ed altri lisp già postati nel forum, ne allego uno mio per rinominare blocchi velocemente, in quanto all'apertura della finestra di dialogo viene riproposto il nome attuale, anche per agevolare eventuali piccole modifiche allo stesso senza doverlo ridigitare.

_

 

[caster79]

sbaglio o la funzionalità lisp non è inclusa nella versione lt??perchè io ho proprio la versione lt

 

[PlannerRoad]

sbaglio o la funzionalità lisp non è inclusa nella versione lt??perchè io ho proprio la versione lt

no, non è inclusa nella lt.

 

[GP.]

piccolo aggiornamento:

- impostato il default su ok, ora è possibile confermare con invio dopo la digitazione del testo, senza cliccare di nuovo sulla casella;

- inserito controllo su nome blocchi esistenti;

- 02/04/2008 allargata casella per la digitazione del nome blocco.

_____________________________________________

 

[Saru]

ciao a tutti, so che questa conversione è un po datata ma riguarda questo lisp....
ho caricato sia rb.vlx si "copyrenameblockv1-5.lsp" entrambi rinominano il blocco ma il risultato è diverso: il primo,rinomina tutti i blocchi di quel file con il nuovo nome (come se fosse un rinomina, ma con un guadagno di tempo non indifferente); il secondo copia un blocco esistente nel disegno creandone uno nuovo con nome diverso, la il blocco di origine rimane ancora.

nell'utilizzo mi sono accorta che entrambi sono molto utili, il problema è che entrambi fanno riferimento a rb come comando... non è possibile modificare uno dei due per caricarli entrambi automaticamente!?

grazie mille come sempre

 

[GP.]

questa è l'ultima versione del lisp, si possono anche rinominare blocchi dinamici e creare/rinominare blocchi anonimi.
lo metto "in chiaro", così se vuoi puoi cambiare il nome al comando.

 

[mr panez]

感謝 gp. ファイル lisp は 爆弾?

 

[Gio_S]

ブロックを交換するリストを、他のブロックで、それらを喜ばせるように選択するために、私は長い間行っていた。
autocad が今やっているかどうかはわかりません。
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
(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>

 

[x11start]

gp, あなたのリスペック 私は毎日それを使用します! お問い合わせ

別のlisp 私は頻繁に使用するのは、リーマックのことです。これはブロックのインサートポイントを変更することができます。例えば、誤って作成され、ブロック自体の設計から離れて、またはそれを集中させるためのポイントを変更したい場合です。
素晴らしいリーがサイト上に置くアニメーションGIFは、自己説明的です!

Justify Block Base Point | Lee Mac Programming

Allows the user to change the base point for a selection of multiple blocks to one of nine justification positions.

www.lee-mac.com

 

[Alguz]

これは、libsの最新バージョンです。動的ブロックの名前を変更したり、匿名ブロックの名前を変更したりすることもできます。
コマンドに名前を変更したい場合、"clear" と入力します。

お問い合わせ

 

[GP.]

お問い合わせ

お問い合わせ