Modify code help

[cadd4la]

Hello everyone,

I need help to modify this code so it will run continuously. The code now runs were if I have two or more areas that I need to divide the same distance, I have to start the code, pick one of the areas, and then hit enter, then start the code again. I would like to just be able to pick all the areas one after another and it divide them separate.

Thanks as always.

(DEFUN C:DIV2()(SETVAR "CMDECHO" 0)
(SETQ	SS1   (SSGET); Get selection set.
);_End SETQ
(COMMAND "DIVIDE" SS1 "2")
(SETVAR "CMDECHO" 1)
(princ)
);

[Tom Beauford]

The DIVIDE (Command) creates evenly spaced point objects or blocks along the length or perimeter of an object.
http://help.autodesk.com/view/ACD/20...3-49EB6378335C
It doesn't divide areas.

[cadd4la]

The DIVIDE (Command) creates evenly spaced point objects or blocks along the length or perimeter of an object.
http://help.autodesk.com/view/ACD/20...3-49EB6378335C
It doesn't divide areas.

Tom,

Thank you for your input and you are right, but I looking for my code to run continuously until I hit escape.

Cadd4la

[BlackBox]

Your code with a While loop:

(defun c:DIV2 (/ ss)
  (setvar 'cmdecho 0)
  (while (setq ss (ssget ":S:E:L"))
    (command "._divide" ss 2)
  )
  (setvar 'cmdecho 1)
  (princ)
)

DIVIDE Command only acts on the first entity in the selection set, so I added a selection filter as well.

[Tom Beauford]

About Special Control Characters in Command Macros: http://help.autodesk.com/view/ACD/20...A-BEAEBA83A424
* Repeats a command until another command is started or the current command is ended.

Try just adding an asterisk in front of the macro, here's an example: https://forums.autodesk.com/t5/autoc...t/td-p/1996743

[cadd4la]

Blackbox,

It works great, thank you for your help.

Cadd4la