tmp.lsp

save time and to show how it can be used in acad

(defun c:okok()
  (setq vw (getint "get your point"))
    (setq vh (getint "get your point"))

(command "line" '(0 0) (list vw 0)  (list vw vh) (list 0 vh) (list 0 0) "") 
)

(defun c:ok()
	(command "circle" "5,5" "2")         
	(command "line" "3,5" "7,5" "")     
	(setq el  (entlast))                 
	(setq pt  '(5 7))                   
	(command "trim" el "" pt "")        
)

(defun C:GETNUM (/ num)
  (initget 1 "Pi Two-pi") 
  (setq num (getreal "Pi/Two-pi/<number>: ")) 
  (cond 
    ((eq num "Pi") pi) 
    ((eq num "Two-pi") (* 2.0 pi)) 
    (T num) 
  )
)
(defun C:Aaa ( / pt1) 
  (initget 128)                     ; Sets arbitrary entry bit 
  (setq pt1 (getpoint "\nPoint: ")) ; Gets value from user. 
  (if (= 'STR (type pt1))           ; If it's a string, convert it
    (setq pt1 (eval (read pt1)))    ; to a symbol, try evaluating
                                    ; it as a function; otherwise,
    pt1                             ; just return the value. 
  )
)
(defun REF ( )
  (setvar "LASTPOINT" (getpoint "\nReference point: "))
  (getpoint "\nNext point: " (getvar "LASTPOINT"))
)