check my syntax

( defun section ()
(if
( cond
(( = STK "L5x3x1/4" )( command "-insert" "L5x3x1_4" p1 "0.2" "0.2" "0" ))
);cond
);if
(princ)
);defun section


I HAVE ALREADY DEFINED P1 AND STK IN A PREVIOUS STEP, any comments

 

Why the "cond" statement? If you are only evalulating one item then just
"if" works
Unless you plan to add more conditons to check later.

Murph

 

Global variables, <blech>.
Non-descriptive function name.
String comparison potential gotcha.
Why the (if) ?
I think I'd use a few more variables, to avoid mass (command) statements.

(defun InsertSection (blkName insPt / insName sf ang)
(setq blkName (strcase blkName))
(cond
((= blkName "L5X3X1/4")
(setq insName "L5x3x1_4" sf 0.2 ang 0.0))
;| next blkName condition here, similar to above |;
) ;_ closes cond
(command "._-Insert" insName insPt sf sf ang)
(princ))


--
R. Robert Bell


( defun section ()
(if
( cond
(( = STK "L5x3x1/4" )( command "-insert" "L5x3x1_4" p1 "0.2" "0.2" "0" ))
);cond
);if
(princ)
);defun section


I HAVE ALREADY DEFINED P1 AND STK IN A PREVIOUS STEP, any comments

 

there are going to be hundreds of conditions in the future, I just to debug the first one

 

I'm aware of that. My sample code reflects that.

--
R. Robert Bell


there are going to be hundreds of conditions in the future, I just to debug
the first one

 

Robert,
What happens if insName is nil ?

(command "._-Insert" insName insPt sf sf ang)

Bob

 

Since this is a subroutine, it is the programmer's responsibility to make
sure the arguments passed to the subr are correct.

--
R. Robert Bell


Robert,
What happens if insName is nil ?

(command "._-Insert" insName insPt sf sf ang)

Bob

 

However, you did spark a good point, my subr does not check for the
existence of the block. (Hope they're located on the search path,
BwaHaHa!!!)


--
R. Robert Bell


Since this is a subroutine, it is the programmer's responsibility to make
sure the arguments passed to the subr are correct.

--
R. Robert Bell


Robert,
What happens if insName is nil ?

(command "._-Insert" insName insPt sf sf ang)

Bob