topic Re: Select all Blocks rotated 180 degrees, Isolate them, then rotate all by 180 degrees at their insertion point in Visual LISP, AutoLISP and General Customization Forum

Select all Blocks rotated 180 degrees, Isolate them, then rotate all by 180 degrees at their insertion point

johnlagasse — Wed, 03 Aug 2022 12:18:04 GMT

I have a client that created racks and inserted them at 0 and 180 degrees. I'm trying to rotate the 180 degree racks back to 0. I have another app that is replacing the racks and when they are at 180 they don't land where they are supposed to. Thanks!

Re: Select all Blocks rotated 180 degrees, Isolate them, then rotate all by 180 degrees at their insertion point

ВeekeeCZ — Wed, 03 Aug 2022 13:13:50 GMT

(defun c:RotateB180 ( / s i)
  (if (setq s (ssget (list '(0 . "INSERT") (cons 50 pi))))
    (repeat (setq i (sslength s))
      (setpropertyvalue (ssname s (setq i (1- i))) "Rotation" 0.)))
  (princ)
  )

Re: Select all Blocks rotated 180 degrees, Isolate them, then rotate all by 180 degrees at their insertion point

johnlagasse — Wed, 03 Aug 2022 13:27:49 GMT

I have a thousand or so blocks where some are inserted at 0 and some are 180. I want to select all the blocks but only have the blocks that are rotated 180 degrees to be in the selection set. Then I want to isolate them so I know which are at 180, then rotate them by 180 degrees.

Re: Select all Blocks rotated 180 degrees, Isolate them, then rotate all by 180 degrees at their insertion point

ВeekeeCZ — Wed, 03 Aug 2022 13:33:27 GMT

Are you sure you are in the right place?

Re: Select all Blocks rotated 180 degrees, Isolate them, then rotate all by 180 degrees at their insertion point

ВeekeeCZ — Wed, 03 Aug 2022 20:39:39 GMT

The code I've posted selects all blocks with the "Rotation" property of 180°(pi radians in fact) and sets the rotation to 0.

Re: Select all Blocks rotated 180 degrees, Isolate them, then rotate all by 180 degrees at their insertion point

johnlagasse — Wed, 03 Aug 2022 14:13:19 GMT

Wouldn't this be where I'd ask for LISP help. The rotate 180 LISP you created works great. Just wondering how to select blocks based on their rotation angle. I'm just getting back into the LISP world and not sure how to write a LISP that will do that. I'm very rusty. 🙂

Re: Select all Blocks rotated 180 degrees, Isolate them, then rotate all by 180 degrees at their insertion point

johnlagasse — Wed, 03 Aug 2022 14:15:15 GMT

Sorry I was using it wrong. Works great! Thanks

Re: Select all Blocks rotated 180 degrees, Isolate them, then rotate all by 180 degrees at their insertion point

calderg1000 — Wed, 03 Aug 2022 14:37:56 GMT

Regards @johnlagasse

Try this code

;;;Rotate blocks to 0 degree angle (defun c:rtb (/ s i) (setq s (ssget (list '(0 . "insert") (cons 50 pi)))) (repeat (setq i (sslength s)) (setq sn (entget (ssname s (setq i (1- i))))) (entmod (subst (cons 50 0) (assoc 50 sn) sn)) ) ) ;;;It only selects blocks rotated 180 degrees. (defun c:stb (/ s i) (setq s (ssget (list '(0 . "insert") (cons 50 pi)))) (sssetfirst nil s) )

Re: Select all Blocks rotated 180 degrees, Isolate them, then rotate all by 180 degrees at their insertion point

johnlagasse — Thu, 04 Aug 2022 12:31:52 GMT

That works perfectly. I can isolate the racks rotate 180 and manipulate only them. Since rotating them places them in a different position I can select similar and move each type of rack back into position. THANKS!

Re: Select all Blocks rotated 180 degrees, Isolate them, then rotate all by 180 degrees at their insertion point

calderg1000 — Sat, 06 Aug 2022 13:16:20 GMT

Glad to help, cheers