CADdancer
2004-09-30, 07:09 PM
Hello AUGI Members:
I was trying to create a simple lisp program to allow me to mirror selected objects twice about 2 mirror planes. I have the routine working if I only select one object however, if I select more than one object all of the objects do not mirror properly. Below is a sample of the code, can anyone help me correct the problem.
;;;;START CODE
(defun c:MIXY (/ SS1 SS2)
(SETVAR "CMDECHO" 0)
(Prompt "n...Select Objects to Mirror...")
(setq SS1 (ssget))
(PROMPT "n...FIRST MIRROR......Select First Mirror Point....Then....Select the Second Mirror Point...")
(COMMAND "MIRROR" SS1 "" Pause Pause "N" )
(SETQ SS2 (SSGET "l"))
(Prompt "n")
(PROMPT "n...SECOND MIRROR......Select First Mirror Point....Then....Select the Second Mirror Point...")
(COMMAND "MIRROR" SS1 SS2 "" Pause Pause "N" )
(SETVAR "CMDECHO" 1)
(princ)
)
;;;;;END CODE
Any assistance would be appreciated.
Regards,
Vince
I was trying to create a simple lisp program to allow me to mirror selected objects twice about 2 mirror planes. I have the routine working if I only select one object however, if I select more than one object all of the objects do not mirror properly. Below is a sample of the code, can anyone help me correct the problem.
;;;;START CODE
(defun c:MIXY (/ SS1 SS2)
(SETVAR "CMDECHO" 0)
(Prompt "n...Select Objects to Mirror...")
(setq SS1 (ssget))
(PROMPT "n...FIRST MIRROR......Select First Mirror Point....Then....Select the Second Mirror Point...")
(COMMAND "MIRROR" SS1 "" Pause Pause "N" )
(SETQ SS2 (SSGET "l"))
(Prompt "n")
(PROMPT "n...SECOND MIRROR......Select First Mirror Point....Then....Select the Second Mirror Point...")
(COMMAND "MIRROR" SS1 SS2 "" Pause Pause "N" )
(SETVAR "CMDECHO" 1)
(princ)
)
;;;;;END CODE
Any assistance would be appreciated.
Regards,
Vince