problem during using IF and AutoCAD commands

Hi All,

It is going well and I am so happy! Thanks for your help

as another try, I wrote:

(defun C:prac6 (/ a b)

(setq a 1)

(setq b 1)

(if

(= a b)

((command "_insert" "ssw1" '(0. 0. 0.) 1. 1. 0.)))

(command "zoom" "e")

)

and I get this error!

Command: PRAC6

_insert Enter block name or [?] : ssw1

Units: Millimeters Conversion: 1.0000

Specify insertion point or [basepoint/Scale/X/Y/Z/Rotate]:

Enter X scale factor, specify opposite corner, or [Corner/XYZ] :

1.000000000000000 Enter Y scale factor : 1.000000000000000

Specify rotation angle : 0.000000000000000

Command: ; error: no function definition: nil

what does it mean and how can I fix it?

Cheers

Ali

No reason to start a new thread.

You have too many parens around your insertion.

eg.

((command "_insert" "ssw1" '(0. 0. 0.) 1. 1. 0.)))

make:

(command "_insert" "ssw1" '(0. 0. 0.) 1. 1. 0.))

Nice and clean:

(defun C:prac6 (/ a b)
 (setq a 1)
 (setq b 1)
 (if (= a b)
   (command "_insert" "ssw1" '(0. 0. 0.) 1. 1. 0.)
 )
 (command "zoom" "e")
)

PERFECT!

you are the man!