Command to rotate General Note Label

[htls69]

Trying to create a lsp command that will rotate a general note label

we have one that rotates Points ie z1, z2, z3, z4 That rotates the point to the respective quadrant

That lisp is below

;;; point rotation quadrant 1
(defun c:Z1 (/ doc pt sourcept ss ss2)
(setq rlang (- (* pi 0.25) (getvar "viewtwist")))
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark doc)
    (princ "\n....select Points to change: ")
    (if (setq ss (ssget '((0 . "AECC_COGO_POINT"))))
	(while (> (sslength ss) 0)
	  (setq pt (vlax-ename->vla-object (ssname ss 0)))
	  (vlax-put pt 'labelrotation rlang)
	  (ssdel (ssname ss 0) ss)
	)
      )
    )
  )
  (vla-endundomark doc)
  (princ)
)

If someone could help me that would be awesome.

I would like to have 4 lsp routines Like-- L1, L2, ,L3, L4 

[htls69]

Thanks the change to the lisp routine fixed it