Area Lisp not working

[sam]

Hi All, 

I have this lisp file which used to work well. 

It would take boundary area and divide it by 180 (which is capacity of single hydraulic ram) and will output text values of total area and total hydraulic rams required. 

I have restarted using it for few years and for reason it just is not working. 

Any ideas why it is not working right and if it could be fixed?

Best regards, 

sam

[dbhunia · Accepted solution]

Text height can not be "0".......

(DEFUN C:RAMs (/ TA TH)
  (COMMAND "AREA" "OB" PAUSE)
  (SETQ	TA	  (/ (GETVAR "AREA") 1000000)
	Tpressure 6
	;; ram loads in Kn/m square
	Tload	  (* TA Tpressure)
	CRam	  180
;;; ram capacity 180kN
	NofRam	  (/ Tload CRam)
	ramarea	  (/ TA NofRam)
  )
  (COMMAND "TEXT"
	   "J"
	   "M"
	   (GETPOINT)
	   ""
	   0
	   (STRCAT "AREA=" (RTOS TA))
  )
  (COMMAND "TEXT"
	   "J"
	   "M"
	   (GETPOINT)
	   ""
	   0
	   (STRCAT "Total Load=" (rtos Tload))
  )
  (COMMAND "TEXT"
	   "J"
	   "M"
	   (GETPOINT)
	   ""
	   0
	   (STRCAT "Total No of Rams=" (rtos NofRam))
  )
  (COMMAND "TEXT"
	   "J"
	   "M"
	   (GETPOINT)
	   ""
	   0
	   (STRCAT "Loaded Area per Ram=" (rtos Ramarea))
  )
)

[sam]

Thanks @dbhunia. 

Would it possible for you to annotate the code? I just want to try to add bit of more functionality. 

best regards, 

sam

[Sea-Haven]

Can you explain more what the object or objects are that you are using to get the area. For example a pline has an area.

You can use bpoly for objects making an internal area.