match block scale

[Anonymous]

Anyone knows something to match scale from one block to another?

[Anonymous]

Anyone knows something to match scale from one block to another?

[Anonymous]

extract group codes 41, 42 & 43 then subst it to the target block.... simple and easy

41 x scale factor
42 y scale factor
43 z scale factor

[Anonymous]

extract group codes 41, 42 & 43 then subst it to the target block.... simple and easy

41 x scale factor
42 y scale factor
43 z scale factor

[Anonymous]

(defun c:mbl ()
(setq fb (entget (car (entsel "\nSelect Block reference: ")))
fb41 (assoc 41 fb)
fb42 (assoc 42 fb)
)
(setq sb (entget (car (entsel "\nSelect target Block: ")))
sb41 (assoc 41 sb)
sb42 (assoc 42 sb)
)
(setq sb_ent (subst fb41 sb41 sb))
(entmod sb_ent)
(setq sb sb_ent)
(setq sb_ent (subst fb42 sb42 sb))
(entmod sb_ent)
(command "regen")
)

try this one, feel free to modify it to suit your needs
glad to help a newbie.... i'm one as well , not really... c",)

[Anonymous]

(defun c:mbl ()
(setq fb (entget (car (entsel "\nSelect Block reference: ")))
fb41 (assoc 41 fb)
fb42 (assoc 42 fb)
)
(setq sb (entget (car (entsel "\nSelect target Block: ")))
sb41 (assoc 41 sb)
sb42 (assoc 42 sb)
)
(setq sb_ent (subst fb41 sb41 sb))
(entmod sb_ent)
(setq sb sb_ent)
(setq sb_ent (subst fb42 sb42 sb))
(entmod sb_ent)
(command "regen")
)

try this one, feel free to modify it to suit your needs
glad to help a newbie.... i'm one as well , not really... c",)

[Anonymous]

That's IT. Thanks very much!

[Anonymous]

That's IT. Thanks very much!

[Anonymous]

Can be improved to work with dynamic blocks and attributes?

[Anonymous]

Can be improved to work with dynamic blocks and attributes?

[gennaro]

Impressive! This has been very handy. Could you please add a prompt such as "enter MBL" to run lisp. Thanks!

[gennaro]

Impressive! This has been very handy. Could you please add a prompt such as "enter MBL" to run lisp. Thanks!

[Kent1Cooper]

---

@gennaro wrote:

.... Could you please add a prompt such as "enter MBL" to run lisp. Thanks!

---

Just add a line at the end:

(prompt "\nEnter MBL to Match BLock scales.")

[Kent1Cooper]

---

@gennaro wrote:

.... Could you please add a prompt such as "enter MBL" to run lisp. Thanks!

---

Just add a line at the end:

(prompt "\nEnter MBL to Match BLock scales.")

[gennaro]

Awesome! That works! Much appreciated.

[gennaro]

Awesome! That works! Much appreciated.

[paliwal222]

sir,

its,

perfect, and work very well.

[paliwal222]

sir,

its,

perfect, and work very well.