Topic: Why this lisp not working?

[HasanCAD]

I need to create a lot parallel sections in a solid
I created this code but not working

Code: [Select]

(defun c:sho (/)

  (setvar "OSNAPCOORD" 1)
  (setq ss (ssget))
 
  (while
    (setq pt (getpoint))
  (command "section" ss "" "YZ" pt)))

[kruuger]

I need to create a lot parallel sections in a solid
I created this code but not working

Code: [Select]

(defun c:sho (/)

  (setvar "OSNAPCOORD" 1)
  (setq ss (ssget))
 
  (while
    (setq pt (getpoint))
  (command "section" ss "" "YZ" pt)))

why not _array or _copy ?
i think you should continue this at your tread about solid.
combine solution at one topic.
k.

[irneb]

First: Localize variables. Especially selection sets - as you're only allowed a finite number of active selection sets.

Second: Rather than change a system variable to stop osnaps, use the None forced snap. Otherwise you may have to reset it back, and this reset needs to happen in an error handler. IMO much more coding.

Third: Test if something has been selected - else an error occurs.

Fourth: Localize the commands and options by prefixing with underscores. So they work on other language acads as well.

This seems to work fine for me:

Code - Auto/Visual Lisp: [Select]

1. (defun c:sho (/ ss pt)
2.   (if (setq ss (ssget))
3.     (while (setq pt (getpoint))
4.       (command "._section" ss "" "_YZ" "_Non" pt)))
5.   (princ))

[HasanCAD]

First:
...

brilliant as usual
Thanks irneb

[irneb]

You're welcome! Glad it works for you.