Donut lisp

[joa0009]

modify the code so that it only displays the donuts and at the end display the number of donuts on the drawing
 

[mhupp]

All that code is doing is.

if the user select something

       stepping though each item

                 say what it is.

 

If you selected 3 lines it would output

 

line

line

line

 

is donuts a block?  check this out

[joa0009]

2 minutes ago, mhupp said:

All that code is doing is.

if the user select something

       stepping though each item

                 say what it is.

 

If you selected 3 lines it would output

 

line

line

line

 

is donuts a block?  check this out

[BIGAL]

Donuts dont exist long I just ate the last one. Oh yeah a donut is a Lwpolyline.

[mhupp]

This selects lwpolylines that are closed and have only have 2 radius aka donuts. maybe something else idk donuts dont really have a call out like other entity like lines, blocks, circles from what Im reading. Will select everything it counted when the command ends.

 

You don't need to step thought everything take your if statements and apply them in the ssget.

 

(defun C:TEST ()
  (setq SS (ssget "X" '((0 . "lwpolyline")(70 . 1)(90 . 2))))
  (prompt (strcat "\n"(itoa (sslength SS)) " Donuts in the Drawing"))
  (sssetfirst nil SS)
  (princ)
)

 

Edited May 28, 2021 by mhupp

[Lee Mac]

15 hours ago, joa0009 said:

modify the code so that it only displays the donuts and at the end display the number of donuts on the drawing
 

 

That code is directly copied from my site here...

http://lee-mac.com/selsetprocessing.html#revrepeat

[joa0009]

13 hours ago, Lee Mac said:

 

That code is directly copied from my site here...

http://lee-mac.com/selsetprocessing.html#revrepeat

My teacher has a good place for inspiration

 

[joa0009]

Thx all! 

[Steven P]

however if your teacher (unless it is Mr Mac himself) had any credibility they would credit the original source of the code