Unalbe to apply layers to selected blocks

[Anonymous]

Dear Helpers,

I have created one lisp code to create and convert the selected elements to the new layers. It's working for all excepting Blocks. Can you please check the below code and correct if I am wroing at any location of the code.

(defun C:LDT() (setq vij (ssget))
		(setq lay (tblsearch "layer" "TP-LHS-DRAIN"))
		(if (= lay nil)
			(progn (command "layer" "n" "TP-LHS-DRAIN" "c" "5" "TP-LHS-DRAIN" "")))
		(command "change" vij "" "P" "la" "TP-LHS-DRAIN" ""))

[dbhunia]

I did not get any error in your code........

Only thing is your Block object color is "ByLayer"???? (Because Blocks are also changing Layer but if Block object color is not "ByLayer" then it will not change Block object color as per Layer color)....... Else post sample drawing......

[Anonymous]

Please see attached dwg, Sir. Except blocks this is working for all. Please check Sir.

[dbhunia · Accepted solution]

Try this....

(defun C:LDT();;put temp variables
(setvar 'cmdecho 0)
(setq vij (ssget))
(setq lay (tblsearch "layer" "TP-LHS-DRAIN"))
	(if (= lay nil)
		(progn (command "layer" "n" "TP-LHS-DRAIN" "c" "5" "TP-LHS-DRAIN" ""))
	)
(repeat (setq N (sslength vij))
	(setq Data (ssname vij (setq N (- N 1))))
	(setq EntityData (entget Data))
	(entmod(subst (cons 8 "TP-LHS-DRAIN") (assoc 8 EntityData) EntityData))
)
(setvar 'cmdecho 1)
(princ)
)

There is UCS problem for that particular block......... for that "change" is unable to change its layer......Try to "change" the layer for that particular block you will get this.....

[cadffm · Accepted solution]

Hi @Anonymous

as dbhunia pointed to: Read your commandline[CTRL+9] or TextScreen[F2] when you work.

You know that CHANGE don't want to edit non-parallel object (non parallel to the current ucs),

the simple solution for you: Use a command who **** of this fact: CHPROP for example.

(defun C:LDT ( / vij )
  (if (and
         (setq vij (ssget "_:L"))
         (or (tblsearch "layer" "TP-LHS-DRAIN")(not(command "_.-LAYER" "_new" "TP-LHS-DRAIN" "_color" "5" "TP-LHS-DRAIN" "")))
      )
      (command "_.CHPROP" vij "" "_layer" "TP-LHS-DRAIN" "")
  )
 (princ)
)