LISP to add text to multiple lines

[Anonymous]

Hello,

So basically I have lots of culverts show on my drawing that are going to be demolished.

I was going to show them with a couople of X through them to illustrate this but I don't have enough experience with LISP to do this or know if this is possible.

My original idea was just to copy another line on top of the culvert and change the linetype to one I already had of X being shown on the linetype. Unoftunatley you can still see the actual line which isn't what I want.

Screenshot attached becauwse it's probably easier to see it than explain what it looks like.

Any help would be appreciated.

[Anonymous]

@Anonymous From what I understand, you just want to change all kinds of lines in your drawing.
Command >> CHPROP << would not work?
I've attached a small code that selects all rows in Layer 0 and changes the Ltype.
Change the red part to your parameters and the magenta to the new line type or add a .dwg with an example.

(Defun c:MuX (/ ss idx)
  (setq ss (ssget "_X" '((0 . "LINE")(8 . "0")))
	idx 0)
  		(repeat (sslength ss)
		  (command "_.Chprop" ss "" "_LType" "FENCELINE1" "")
		  	(setq idx (1+ idx))
		  )
  (princ))