;=====================================================
; wf is stand for making edit to width factor
;       Design by Ade Suharna <mteybid@yuasabattery.co.id>
;       1 September 2004
;       program no. 60/09/2004
;       edit by Ade Suharna 05/10/2004     1).
;               Adesu       23/08/2005     2).
;                           30/09/2005     3). add sse
(defun c:wf (/ ent sse th opt ed)                                  ; 3).
  (while                                                           ; 1). & 2).
    (null (setq ent (car (entsel "\nSELECT A TEXT"))))
    (alert "\nINVALID SELECTED OBJECT,PLEASE TRY AGAIN"))
  (setq sse (entget ent))                                          ; 2).
  (setq th (rtos (cdr (assoc 41 sse))))                            ; 2).
  (setq opt (getreal (strcat "\nENTER NEW FACTOR <" th ">" ":")))
  (setq ed (subst (cons 41 opt)(assoc 41 sse) sse))
  (entmod ed) 
  (princ)
  )
;==========================================================
; met is stand for making edit text
;       Design by Ade Suharna <mteybid@yuasabattery.co.id>
;       11 August 2004
;       program no. 48/08/2004
;       edit by Ade Suharna 17/09/2004 1).
;                           05/10/2004 2). was disappeared
;                           07/03/2005 3).
;               Rudy Tovar  08/03/2005 4).
(defun c:met (/ e en ent opt ed)
  (setq e (entsel "\nSELECT TEXT"))                                  ; 4).
  (if
    e
    (= (getvar "errno") 7)
    (alert "\nINVALID CHOOSE,PLEASE TRY AGAIN")
    )                                                                 ; 3).
  (setq en (entget (car e)))
  (setq ent (cdr (assoc 1 en)))
  (setq opt
  (getstring T (strcat "\nENTER NEW TEXT" "<" ent ">: ")))      ; 1).
  (setq ed (subst (cons 1 opt)(assoc 1 en) en))
  (entmod ed)
  (princ)
  )
;=======================================================
; eoc is stand for edit object color
;        Design by  : Adesu <Ade Suharna>
;        Email      : mteybid@yuasabattery.co.id
;        Homepage   : http://www.yuasa-battery.co.id
;        Create     : 24 February 2006
;        Program no.: 329/02/2006
;        Edit by    :
(defun c:eoc (/ ss sse sf cur veo tc ci att opt el sse_el sf_el veo1 tc1 ci1)
  (if
    (setq ss (car (entsel "\nSelect a object")))
    (progn
      (setq sse (entget ss))
      (setq sf (cdr (assoc 62 sse)))
      (if
 sf
 (setq cur (itoa sf))
 (progn
   (vl-load-com)
   (setq veo (vlax-ename->vla-object ss))
   (setq tc (vlax-get-property veo 'TrueColor))
   (setq ci (vlax-get-property tc 'ColorIndex))
   (setq cur (itoa ci))
   )                                                 ; progn
 )                                                   ; if
      (setq att "\nEnter new value of color")     
      (while
 (setq opt
        (fix
   (getreal
     (strcat att " <" cur ">: ")))) ; check if user put value and hit
                                           ; enter,program would repeat again.
                                           ; if user only hit enter the program
                                           ; would stop
 (cond ((= opt nil)(setq sf sf))
       ((/= opt nil)(setq sf opt))) 
 (command "_change" ss "" "p" "c" sf "")
 (setq el (entlast))
 (setq sse_el (entget el))
 (setq sf_el (cdr (assoc 62 sse_el)))
 (if
   sf
   (setq cur (itoa sf))
   (progn
     (vl-load-com)
     (setq veo1 (vlax-ename->vla-object ss))
     (setq tc1 (vlax-get-property veo 'TrueColor))
     (setq ci1 (vlax-get-property tc 'ColorIndex))
     (setq cur (itoa ci))
     )                                             ; progn
   )                                               ; if
 )                                                 ; while
      )                                                   ; progn
    (alert "\nInvalid selected object,please try again")
    )                                                     ; if
  (princ)
  )