Need help to resolve basic lisp error

[AbdRF]

Hi all,

I am learning lisp programming.Here is the code which I am a trying to run 
 

(defun c:tex (/ p1 a b c d e f)
(setq pl (getpoint "\nStarting point: "))
(setq a (getdist p1 "\nEnter height: "))
(setq c (getdist p1 "\nline spacing: "))
(setq d "T")
(while d
  (setq e (getstring 1 "Text: "))
  (command "text" pl a "0" e)
  (setq pl (list (car p1)(- (cadr p1) c)))
  (setq f (getstring))
  (if (= f "*")(setq d nil))
)
(princ)
)

I am getting the below error.Can somebody explain me  ?

Quote

Starting point: ; error: bad argument type: point: nil

 

[Roy_043]

You have a variable pl (PL) and a variable p1 (P one).

[David Bethel]

You may want to look into (initget) call prior to (get.... ) calls.  -David

(defun c:foo (/ p1 a c)
  (initget 1)
  (setq p1 (getpoint "\nStarting Point:   "))

  (initget 6)
  (setq a (getdist p1 (strcat "\nTEXT Height <"
                        (rtos (getvar "TEXTSIZE") 2 2)
                        ">:   ")))
  (or a (setq a (getvar "TEXTSIZE")))
  (setvar "TEXTSIZE" a)

  (initget 7)
  (setq c (getdist p1 "\nLine Spacing":   ")))



 ...)

 

[BIGAL]

My $0.05 using  a library routine. If ran again both variables can be set to update. 

 

 

(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(setq ans (AH:getvalsm (list "Enter values" "Text height" 5 4 (rtos (getvar "textsize"))  "Line spacing " 5 4 "1" )))

Edited August 6, 2019 by BIGAL

[AbdRF]

On 8/5/2019 at 12:53 PM, Roy_043 said:

You have a variable pl (PL) and a variable p1 (P one).

Oh that was so silly on my part.
Thanks 

[AbdRF]

On 8/5/2019 at 3:35 PM, David Bethel said:

You may want to look into (initget) call prior to (get.... ) calls.  -David

(defun c:foo (/ p1 a c)
  (initget 1)
  (setq p1 (getpoint "\nStarting Point:   "))

  (initget 6)
  (setq a (getdist p1 (strcat "\nTEXT Height <"
                        (rtos (getvar "TEXTSIZE") 2 2)
                        ">:   ")))
  (or a (setq a (getvar "TEXTSIZE")))
  (setvar "TEXTSIZE" a)

  (initget 7)
  (setq c (getdist p1 "\nLine Spacing":   ")))



 ...)

 

Sure David,will try this out .
Cheers
 

Edited August 7, 2019 by AbdRF