Request lisp Help

[jwchambers]

Hello Everyone,

I have done simple lisp before but I think I stepped in over my head with this one.

I want to change to correct layer, attach xref, change back to previous layer then zoom extents. I got the following code:

; This function attaches xref on correct layer
;
( DEFUN C:XRA ()
;(SETQ CURRENTLAYER (GETVAR "CLAYER"))
(SETVAR "CLAYER" "g-anno-refr")
(initdia)
(command "._xref")
(princ)
;(SETVAR "CLAYER" CURRENTLAYER)
)

setting the layer is not setup to function because it wasn't working.

I had some other code in but it wasn't working at all, so I removed it.

Any help greatly appreciated.

Jim C.
AutoCad Civil 3D 2011

[Bruno.Valsecchi]

Hello,

You must achieve the command before to continue (not necessary if the command is the last call of the code)
For this use the status of the variable CMDACTIVE is the best.

For exemple change:
(command "._xref")
to:
(command "_.xref"
(while (not (zerop (getvar "cmdactive")))
(command pause)
)
)

[jwchambers]

Here is what I tried and still not working....

(DEFUN C:XRAt ()
(SETQ CURRENTLAYER (GETVAR "CLAYER"))
(SETVAR "CLAYER" "g-anno-refr")
(initdia)
(command "_.xref"
(while (not (zerop (getvar "cmdactive")))
(command pause)
)
)
(princ)
(SETVAR "CLAYER" CURRENTLAYER)
)

Thanks Bruno for the help....

Jim

[Opie]

Here is what I tried and still not working....

(DEFUN C:XRAt ()
(SETQ CURRENTLAYER (GETVAR "CLAYER"))
(SETVAR "CLAYER" "g-anno-refr")
(initdia)
(command "_.xref"
(while (not (zerop (getvar "cmdactive")))
(command pause)
)
)
(princ)
(SETVAR "CLAYER" CURRENTLAYER)
)

Thanks Bruno for the help....

Jim

I know it may be a bit complex, but I would recommend using Command Reactors for this task. You can look at this example.

[jwchambers]

Thanks Opie. That is way over my head at this point. Will have a go when I get some free time.


Jim