Help fix a routine - Error: too few arguments

[cadd4la]

Hello everyone,

I came across this lisp, but for some unknown reason I getting this when I run it.

Command: (LOAD "C:/A2K Custom/SFH.lsp") C:SFH
Command: sfh
; error: too few arguments

(DEFUN C:SFH (/o:hpn);;<-Fills area w/ solid hatch.
(SETVAR "CMDECHO" 0)
(SETQ o:hpn (getvar "HPNAME"))
(COMMAND ".-bhatch" "Properties" "solid" pause "")
(SETVAR "hpname" o:hpn)
(SETVAR "CMDECHO" 1)
(princ)
)

I hope someone can fix the code for me.

Kyle C.

[CAB2k]

You needed a space here (/<space>o:hpn)

;;<-Fills area w/ solid hatch.
(defun c:sfh (/ o:hpn)
  (setvar "CMDECHO" 0)
  (setq o:hpn (getvar "HPNAME"))
  (command ".-bhatch" "Properties" "solid" pause "")
  (setvar "hpname" o:hpn)
  (setvar "CMDECHO" 1)
  (princ)
)

[cadd4la]

CAB2k,

Thank you for your help

Kyle C.

[CAB2k]

You are quite welcome.