too few arguments

[cadking2k5683822]

why are there too few arguments

(if
    (or
      (and
	(= option "Y") (= option1 "E")
	(= option "Yes") (= option1 "E"))   
      (progn
      (setq toprad (- rad (* scx 0.6134)))
     (setq cnht (* scx 0.6134))
     (setq endct (polar pos 0.0 cnht ))
     (command "_cone" pos toprad "T" rad "A" endct "" )
     (setq cne (ssget "L"))
     (command "_slice" cyl "" "yz" endct pos1)
      (command "_union" cyl cne "")
       )
     (progn
	(setq toprad (- rad (* scx 0.6134)))
     (setq cnht (* scx 0.6134))
     (setq endct (polar pos 0.0 cnht ))
     (command "_cone" pos toprad "T" rad "A" endct "" )
     (setq cne (ssget "L"))
     (command "_slice" cyl "" "yz" endct pos1)
      (command "_subtrack" cyl cne "")
	)
      )
    )

[BIG-AL]

1st step force option to be "YES" if your doing a shortcut and other code then check there and make "Y" or "YES" one or the other.

Also use (entlast) to get last entity created rather than ssget "L" you would need to use ssname to get the 0 entity from cne to use it.

SUBTRACT spelling problem

; fix yes or y
(if
(and (= option "Y") (= option1 "E"))
(progn
(setq toprad (- rad (* scx 0.6134)))
(setq cnht (* scx 0.6134))
(setq endct (polar pos 0.0 cnht ))
(command "_cone" pos toprad "T" rad "A" endct "" )
(setq cne (entlast))
(command "_slice" cyl "" "yz" endct pos1)
(command "_union" cyl cne "")
)
(progn
(setq toprad (- rad (* scx 0.6134)))
(setq cnht (* scx 0.6134))
(setq endct (polar pos 0.0 cnht ))
(command "_cone" pos toprad "T" rad "A" endct "" )
(setq cne (entlast))
(command "_slice" cyl "" "yz" endct pos1)
(command "_subtract" cyl cne "")
)
)

Image my version of ask questions. ASk for code. its a library routine.