sametime ok sametime error why?

sametime this routine work sametime error
what happen???

;;/////////////////////
(defun dtr (a)
(* pi (/ a 180.0)))
(defun c:tap ()
(setq ccol (getvar "cecolor"))
(setvar "cecolor" "192")
(setq id 3.30)
(setq anglg 2.0)
(setq pt 1)
(while (/= pt nil)
(setq pt (getpoint "\rInsert point :"))
(if (/= pt nil)
(progn
(command "circle" pt "d" id)
(setq 1angpt (polar pt (dtr 90.0) anglg))
(command "arc" "c" pt 1angpt "a" 270.0)
)
)
);while
(setvar "cecolor" ccol)
(princ)
)

 

Running OSnaps are likely the problem (although you don't tell us *what* the
error is, so we are guessing).

Revised:

(command "._circle" "_non" pt "_d" id)
(setq 1angpt (polar pt (dtr 90.0) anglg))
(command "._arc" "_c" "_non" pt "_non" 1angpt "_a" 270.0)


--
R. Robert Bell, MCSE
www.AcadX.com


| sametime this routine work sametime error
| what happen???
|
| ;;/////////////////////
| (defun dtr (a)
| (* pi (/ a 180.0)))
| (defun c:tap ()
| (setq ccol (getvar "cecolor"))
| (setvar "cecolor" "192")
| (setq id 3.30)
| (setq anglg 2.0)
| (setq pt 1)
| (while (/= pt nil)
| (setq pt (getpoint "\rInsert point :"))
| (if (/= pt nil)
| (progn
| (command "circle" pt "d" id)
| (setq 1angpt (polar pt (dtr 90.0) anglg))
| (command "arc" "c" pt 1angpt "a" 270.0)
| )
| )
| );while
| (setvar "cecolor" ccol)
| (princ)
| )
|
| --
| Design/Engineering Dept.
|
|

 

Hi,

Probably Win 98. You are trying to run your software on an unsupported
operating system.

--


Laurie Comerford
CADApps
www.cadapps.com.au