autolisp writes the intersecting line layer name to the center of the block

[bery35]

Hi, I tried to write an autolisp code and I got to a certain point, but it is not working as I wanted. I would like your suggestions and your support in revising the code.

 

What I want to do is select a block. To find out which character (n) from the right is the "-" sign in the layer name of the line touching the block I selected. Then subtract 1 from this character(n) number and add n-1 from the right. Combining the part up to the character and the prefix text and writing to the block geometric point.

 

The way this code works now is to combine the front text and the text to the right of the "-" sign of the last layer added to the layer list and write it to the center of the block. This wasn't something I wanted.

 

(setq *textHeight* 8)
(setq *layerName* "01 Equipment list 2")
(setq *textColor* 1) ; 

(defun c:bs_ayar ()
  (setq *textHeight* (getreal "\nEnter new text height: "))
  (setq *layerName* (getstring "\nEnter new layer name: "))
  (setq *textColor* (getint "\nEnter new color index (1 for Magenta): "))
  (princ (strcat "\nText height is now " (rtos *textHeight*) ", layer name is " *layerName* ", color is " (itoa *textColor*) " was set to. "))
  (princ)
)

(defun c:bs4 ()
  (setq prefix (getstring T "\nEnter prefix letter: "))
  (setq blk (car (entsel "\nSelect Block: ")))
  (setq blkEnt (entget blk))
  (setq insPt (cdr (assoc 10 blkEnt)))

  (setq ss (ssget "_X" (list (cons 0 "LINE,POLYLINE"))))
  (if (and ss (> (sslength ss) 0)) 
    (progn
      (setq line (ssname ss 0))
      (setq lineEnt (entget line))
      (setq lineLayer (cdr (assoc 8 lineEnt)))
      (setq dashPos (vl-string-search "-" lineLayer))
      (if dashPos
        (setq rightPart (substr lineLayer (+ dashPos 2)))
        (setq rightPart lineLayer)
      )
      (command "._-LAYER" "_M" *layerName* "" "_C" *textColor* "" "")
      (command "._TEXT" insPt *textHeight* "" (strcat prefix rightPart))
      (command "._-LAYER" "_S" *layerName* "")
    )
    (princ "\nNo line or polyline was found touching the selected block.")
  )
  (princ)
)