Repeat function and Mirror3d

"Commands cannot be nested more than 4 deep" error happens when the Repeat function exceeds 3 repetitions...

Attached is the lsp file

Anyone know what the problem is or how to work around this?

thanks
Richard

 

The Mirror3D command is not a native Autocad command. To use in a lisp you
must use it as a lisp command:
(c:mirror3d (entlast) "" (3dc 0 0 0) (3dc 1 90 0) (3dc B 0 EE) "n")

That should stop the error.....

 

in 2004 mirror3d is a native command, right?

using c:mirror3d did not work but Mirror3d does seem to be the problem...

Any ideas?

Thanks
Richard

 

Well, I should've looked it up instead of going by memory......this getting
older stuff ain't all it's cracked up to be......
But, in R2002 it was NOT a native command, and the error you report occurs
with non-native commands so I can only assume it is still that way in
2004....so heres from the "Externally defined Commands" section of the
Autolisp Reference:

mirror3d Function
Reflects selected objects about a user-specified plane (Externally-defined:
geom3d ARX application)

(mirror3d arg1 arg2 ...)

Arguments

The order, number, and type of arguments for the mirror3d function are the
same as if you were entering theMIRROR3D AutoCAD command. To signify a user
pressing ENTER without typing any values, use nil or an empty string ("").

Return Values

T if successful, otherwise nil.

Examples

The following example mirrors the selected objects about the XY plane that
passes through the point 0,0,5, and then deletes the old objects:

(setq ss (ssget))(mirror3d ss "XY" '(0 0 5) "Y")HTH,

 

It's part of an externally defined function geom3d.arx.

(mirror3d ss "3" (getpoint)(getpoint)(getpoint))

would work for the 3point option.

Bill