Ney_Paula

Rotina exemplificando a seleção com (SSGET "_F" ...) invertido (DEFUN C:ORDER-SEL () (setq LIST_PT (list '(-1 1 0) '(1 1 0))) (setq SEL_LINES (ssget "_F" LIST_PT)) (setq CONTADOR 0) (while (< CONTADOR (sslength SEL_LINES)) (setq LINHADAVEZ (ssname SEL_LINES CONTADOR)) (alert "A seguir vou deletar a linha na sequencia") (command "erase" LINHADAVEZ "") (setq CONTADOR (+ CONTADOR 1)) ) )

Activity

  • Not much happening here, yet.
Default Avatar