Help required on AutoLISP

[rakes]

I am writing a program in AutoLISP which reads geometry created in AutoCAD and processes information regarding start point of line etc, for output to a file. my problem is in using "=" function. I read start angle of an arc using "entget" and "assoc" functions. But when I compare this angle with another got using "angle" function,
(= theta st_ang) ,I am getting nil output. But the values are numerically equal! Can anyone help with tips?

 

[CarlB]

Rakes,
When you compare a calculated to a queried value problems can arise because of very small differences (10-12 or less). May have to use "equal" instead of "=". For example:
(equal theta st_and .00000001)

Hope this does it.

Carl

 

[tigrek]

(defun C:testAngtos()
(setq EDDY (entget (car (entsel))))
;pick a block inserted at 45 degrees
(setq myAngel (cdr (assoc 50 EDDY)))
(print EDDY)
(print myAngel) ;prints 0.785398
(print (angtos myAngel));prints "45"
(if (= "45" myAngel)
(Print "= 45 myAngle TRUE&quot
(Print "= 45 myAngle FALSE&quot)
;prints "= 45 myAngle FALSE"
(if (= "45" (angtos myAngel))
(Print "= 45 (angtos myAngel) TRUE&quot
(Print "= 45 (angtos myAngel) FALSE&quot
)
;prints "= 45 (angtos myAngel) TRUE"
(princ)
)

 

[hernan]

Convert value to string
Then compare the strings

 

[rakes]

Thanks guys. The problem was exactly what CarlB pointed. Thanks very much for the help.

 

[HYDENG]

I am writing a Autolisp program to insert hydraulic symbols by using the insert command. The code will bring up the insert box but it will not read where the file is to be inserted from. I am running AutoCAD 2000 and the code reads as follows:
^C INSERT c:\schem\fixed\;\;;

Thanks for any help you can provide.

 

[CarlB]

You should be able to suppress the dialogue box, and use the command line form of the command by using "-insert" instead of "insert".
Carl