Hi, Restore to WCS ?

[andy_lee]

Hi guys

 

Some times, there are some lisp code can't run on "UCS Mode" ,Only On "WCS",

How to do?

 

I think, maybe add "restore to WCS" at the beginning .

 

I need some code . help!

[marko_ribar]

(defun c:foo ( / vars... )

 (command "_.ucs" "_w")
 ...
 (etc...)
 ...
 (command "_.ucs" "_p")
 (princ)
)

[andy_lee]

(defun c:foo ( / vars... )

 (command "_.ucs" "_w")
 ...
 (etc...)
 ...
 (command "_.ucs" "_p")
 (princ)
)

 

Marko.Thank you!

When error ,how "(command "_.ucs" "_p")" ?

[Lee Mac]

Add:

(command "_.ucs" "_p")

To the *error* function (if present), else define your own local *error* function containing this expression.

 

More information on how to define an *error* function can be found here.

[andy_lee]

Add:

 

Thanks Lee. I know , I can't open that link, is this ? http://lee-mac.com/errorhandling.html

[Dana W]

Thanks Lee. I know , I can't open that link, is this ? http://lee-mac.com/errorhandling.html

 

That is the link.

[andy_lee]

How add:

(command "_.ucs" "_p")

to this function ?

 

(defun c:test ( / *error* osm )
 
   (defun *error* ( msg )
       (if osm (setvar 'osmode osm))
       (if (not (member msg '("Function cancelled" "quit / exit abort")))
           (princ (strcat "\nError: " msg))
       )
       (princ)
   )

   (setq osm (getvar 'osmode))
   (setvar 'osmode 0)

   (rtos (getreal "\nPress Esc to exit, press Enter to force an error ..."))

   (setvar 'osmode osm)
   (princ)
)

[marko_ribar]

(defun c:test ( / *error* osm )
 
   (defun *error* ( msg )
       (if osm (setvar 'osmode osm))
       (if (= (getvar 'worlducs) 1) (command "_.ucs" "_p"))
       (if (not (member msg '("Function cancelled" "quit / exit abort")))
           (princ (strcat "\nError: " msg))
       )
       (princ)
   )

   (setq osm (getvar 'osmode))
   (setvar 'osmode 0)
   (command "_.ucs" "_w")

   (rtos (getreal "\nPress Esc to exit, press Enter to force an error ..."))

   (*error* nil)
   (princ)
)

[andy_lee]

 
Thanks! marko.