Good day everyone, 

Below is a code that lets me add centerline with text (that is the size of the thread) as a way to present thread. However, due to our standard I was asked to change the color between the centerline and the applied text. As of now the code adds the text to layer "CEN" which also uses its color. Is there a way that I can differentiate the color between the added centerline and the text? I'm thinking maybe MTEXT is the right way to do it since I might also change the font used, I just don't know how?  Please see the image of what I need to do, the image on the left is the current condition and the image on the right is my target. Thanks in advance

(defun c:SWTHR ()
  (setq pt1 (getpoint "\\nSelect point 'a': "))
  (setq pt2 (getpoint pt1 "\\nSelect point 'b': "))

  ;; Create or set the "CEN" layer
  (setq cen_layer "CEN")
  (if (not (tblsearch "layer" cen_layer))
    (entmake
      '((0 . "LAYER")
        (100 . "AcDbSymbolTableRecord")
        (100 . "AcDbLayerTableRecord")
        (2 . cen_layer)
        (70 . 0)
        (6 . "Continuous") ; Set desired line type
        (62 . 256) ; Set desired color
      )
    )
  )
  (command "_.-layer" "_set" cen_layer)

  ;; Calculate midpoint between pt1 and pt2
  (setq midpt (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2.0)))

  ;; Draw center line on the "CEN" layer
  (command "LINE" midpt pt2 "") ; Draw line from midpoint to point "b"

  ;; Prompt user to click after selecting points "a" and "b"
  (prompt "\\nClick to add the endpoint of the line.")

  ;; Wait for user input (clicking the endpoint)
  (setq pt3 (getpoint "\\nSelect the endpoint: "))

  ;; Calculate measurement value
  (setq measurement (distance pt1 pt2))
  (setq text_value (strcat "M" (rtos measurement 2 0))) ; Add "M" prefix to measurement (without trailing zero)

  ;; Calculate rotation angle for text (parallel to centerline)
  (setq text_angle (angle midpt pt3)) ; Use the angle of the centerline

  ;; Calculate text position (parallel to center line)
   ;; Calculate text position (parallel to center line)

    (setq text_height 2.0);---------------------------------------------------; Adjust text height as needed

    (setq text_parallel_angle (+ text_angle (* pi 0.5)));---------------------; Calculate parallel angle

    ; (setq text_offset 0.5);---------------------------------------------------; Offset value

    (setq text_position (polar midpt text_angle (/ (distance midpt pt3) 2.0))); Position text at the middle of the centerline

    (setq text_angle (if (and (>= text_angle (* pi 0.5))(< text_angle (* pi 1.5))) (+ text_angle pi) text_angle))

    ; (setq text_position (polar text_position text_parallel_angle text_offset)); Offset text from centerline

    ;; Add text at the new endpoint (aligned with center line)

    (command "TEXT" "J" "MC" text_position text_height (angtos text_angle 0) text_value "" "ALIGNED") ; Specify ALIGNED justification
  ;; Draw line from midpoint to the new endpoint
  (command "LINE" midpt pt3 "")

  (princ)
)