Fabrication CADmep™ > CADmep™ Users

SELECTRUN Multiple LSP

(1/1)

AN-detail:
I thought I'd share a version of the SELECTRUN command that allows you to select multiple runs. SELECTRUN doesn't like selection sets, so I had to work around that. Enjoy.


--- Code: ---;;SELECT RUN MULTIPLE
(defun C:SRR  ( / ssAll ssTemp)
(princ "\n*** SELECT RUN ***\n")
(COMMAND "SELECTRUN" pause)
(setq ssAll (ssget "_I"))
(if ssAll
(progn
   (sssetfirst nil ssAll)
   (setq continue 1)
   (while (= continue 1)
    (princ "\n*** SELECT NEXT RUN OR PRESS ENTER ***\n")
    (COMMAND "SELECTRUN" pause)
    (setq ssTemp (ssget "_I"))
    (if ssTemp
      (progn
(COMMAND "SELECT" ssAll ssTemp "")
(setq ssAll (ssget "_P"))
(setq ssTemp nil)
(sssetfirst nil ssAll))
      (setq continue 0)
    )
   )
   (COMMAND "SELECT" ssAll "") ;Shows count in console
   (sssetfirst nil ssAll)
   (COMMAND "REGEN") ;Fixes selection not highlighted in model
   (COMMAND)     ;Clean command line
)
)
(princ)
)
--- End code ---

Navigation

[0] Message Index