Change text justify and text style

[darwin.ocik]

Hello,

I have a lisp that work for move text, change text height, change text color, change text rotation.

I want to add more function to change text justify and text style, is it possible?

Any help would be much appreciated. Thanks

(defun c:r1()

(command "osmode" 0)

  (setq a (getpoint "\ point reference :"))
  (princ "\ Text 1 :")
    
  	(setq x1 (car a))
	(setq y1 (cadr a))
  
  	(setq k1 (list x1 y1))
  	(setq k2 (list x1 (- y1 (* 2.0 ))))
  	(setq k3 (list x1 (- y1 (* 4.0 ))))
  	(setq k4 (list x1 (- y1 (* 6.0 ))))
         
        (command "change" pause "" "" k1 "" "1.5" "0" "")
    	(command "chprop" "p" "" "c" "white" "" "")
  
  (princ "\ Text 2 :")
        (command "change" pause "" "" k2 "" "1.5" "0" "")
    	(command "chprop" "p" "" "c" "white" "" "")
	
  (princ "\ Text 3 :")
        (command "change" pause "" "" k3 "" "1.5" "0" "")
    	(command "chprop" "p" "" "c" "white" "" "")

  (princ "\ Text 4 :")
        (command "change" pause "" "" k4 "" "1.5" "0" "")
    	(command "chprop" "p" "" "c" "white" "" "")

(command "osmode" 1)

  (princ)
)