The scenario for this program,is if in your area drawing there are string,as like 10 20 30 40 .....etc,now you please click 10 20 etc,then the program would ask,what you want to do ( "Select Add Subtracts Divides Multiply"),then ask again where you would put for text in area drawing,the result final would display as gave them input,but in "opt" this program can't work,anyones can help how to solve this script,thanks.
; cco is stand for create count object
; Design by Ade Suharna <mteybid@yuasabattery.co.id>
; 15 March 2005
; Program no.213/03/2005
; Edit by
(defun c:cco (/ ss ssl cnt ssn opt ttl)
(prompt "\nCLICK OBJECT TO BE EVALUATION")
(setq ss (ssget))
(setq ssl (sslength ss))
(setq cnt 0)
(repeat ssl
(setq ssn (ssname ss cnt))
(setq sse (entget ssn))
(setq as1 (atoi (cdr (assoc 1 sse))))
(set (read (strcat "ss" (itoa cnt))) as1)
)
(prompt "Select Add Subtracts Divides Multiply")
(initget " A S D M ")
(setq opt (getkword "\nCHOOSE ONES <A/S/D/M>: "))
(cond ((eq opt "A")(setq opt +))
((eq opt "S")(setq opt -))
((eq opt "D")(setq opt /))
((eq opt "M")(setq opt *))
)
(if ss
(cond
((eq ssl 1)(alert "\nInvalid selected,not enough to evaluation"))
((eq ssl 2)(setq ttl (opt ss0 ss1)))
((eq ssl 3)(setq ttl (opt ss0 ss1 ss2)))
((eq ssl 4)(setq ttl (opt ss0 ss1 ss2 ss3)))
((eq ssl 5)(setq ttl (opt ss0 ss1 ss2 ss3 ss4)))
((eq ssl 6)(setq ttl (opt ss0 ss1 ss2 ss3 ss4 ss5)))
((eq ssl 7)(setq ttl (opt ss0 ss1 ss2 ss3 ss4 ss5 ss6)))
((eq ssl 8)(setq ttl (opt ss0 ss1 ss2 ss3 ss4 ss5 ss6 ss7)))
((eq ssl 9)(setq ttl (opt ss0 ss1 ss2 ss3 ss4 ss5 ss6 ss7 ss8)))
((eq ssl 10)(setq ttl (opt ss0 ss1 ss2 ss3 ss4 ss5 ss6 ss7 ss8 ss9)))
((> ssl 10)(alert "\nSorry your selected,too over"))
)
)
(setq loc (getpoint "\nCLICK LOCATION FOR RESULT OBJECT: "))
(setq hei 1)
(command "_text" loc hei "" ttl "")
(princ ttl)
)