Polyline in my lisp

I can't seem to get this lisp to work. The polyline part works great, but it does not recognize the fillet command. What's wrong with this?

(setq p1 (getpoint "\nFirst point: "))
(command "_pline" p1 "h" ".25" ".25")
(while (= (logand (getvar "cmdactive") 1) 1)
(command pause)
)

(command "fillet" "r" "2" "p" "l")

Thanks,
Eric L

 

Try this:

(setq p1 (getpoint "\nFirst point: "))
(command "_pline" p1 "h" ".25" ".25")
(while (= (logand (getvar "cmdactive") 1) 1)
(command pause)
)
(setvar "filletrad" 2.0)
(command "fillet" "p" "l")
___

 

That was tooooo easy.

Thanks for your help

Eric L

 

thanks,
i also learnd with this simple funtion

 

Hi Paul,why you add

(while (= (logand (getvar "cmdactive") 1) 1)
(command pause)
)
can you describe it,yes I know if without that this script cannot work

 

I didn't add it; it's part of the OP's code. This issue has been discussed
many, many times: it's to permit an active command (called by the
(command...) function) to finish before LISP moves on to the next step in
the code. And, yes, without it, the routine will not work properly.
___