topic Re: Lisp for rotate Block with minus 90 deegree in Visual LISP, AutoLISP and General Customization Forum

Lisp for rotate Block with minus 90 deegree

Bin2009 — Thu, 13 Feb 2025 22:36:05 GMT

Hello, I work on same drawings need replace the old block with a new standard blocks, I use the function REPLACE BLOCK, but somehow, the new standard blocks all turned 90 degrees, I have to manually change the rotation angle, whatever the original-90 to get correct looking. For example, original rotation angle is 279, I need change to 189; if original rotation angle is 120, I need change to 30. There 5 different kinds of blocks, all have same problems, so I try to get a lisp can automatically change block rotation back 90 degrees.

Thank so much in advance!

Bin

Re: Lisp for rotate Block with minus 90 deegree

cadffm — Thu, 13 Feb 2025 22:51:51 GMT

Hi,

>"somehow, the new standard blocks all turned 90 degrees"

Because the block content is drawn 90° rotated

If you have an old block with an error --> and the new block contains another arrow, rotated <==,

you have to rotate all blockreferences by 180° to match the old orientation.

Search for tools like "rotate bp" or rotate multiple objects

One sample search hit: Click!

Re: Lisp for rotate Block with minus 90 deegree

Bin2009 — Thu, 13 Feb 2025 23:04:05 GMT

Thank for your suggestion, but I shouldn't modify the new standard block, because it is standard. If I manually change the old blocks rotation angle, also will take long time.

Re: Lisp for rotate Block with minus 90 deegree

paullimapa — Thu, 13 Feb 2025 23:07:31 GMT

You should go to the source of the problem by talking to whoever created these new standard blocks.

Let them know that the original standard blocks were created using this angle.

Now the newly created standard blocks have changed in the original angle.

This problem needs to be fixed at the source and you should not have to deal with this conflict.

Re: Lisp for rotate Block with minus 90 deegree

Sea-Haven — Thu, 13 Feb 2025 23:13:05 GMT

Like @paullimapa it looks like the block definition is at 2 different angles depending on the dwg. Easiest way is use bedit and rotate the block and save block, all the blocks of that name will change direction.

Re: Lisp for rotate Block with minus 90 deegree

cadffm — Thu, 13 Feb 2025 23:17:55 GMT

Think about, the source issue can be on both sides.

If you have one standard block for a CAR and you have to replace all cars in all files, now and then, also in files from others/outside,

it is not the right way to edit the (new) standard CAR block 😄

But if someone created this new block for this drawing only, then it is. But I wouldn't call it "new standard block" 🤔

Re: Lisp for rotate Block with minus 90 deegree

Kent1Cooper — Fri, 14 Feb 2025 12:37:37 GMT

A starting point could be SpinText.lsp [attached], which rotates Text objects about each one's insertion point, by whatever amount of rotation you specify. It's for Text, but changing that to Blocks would be a simple matter.

But talk about selection options. I assume you would not want the Blocks equivalent of the all-Text-in-the-entire-drawing selection it offers. But it could be made, for example, to ask you to select one Block and it could find all others of the same name, rather than requiring you to pick them all yourself [but maybe the latter is what you want].

And questions arise: Does this ever involve dynamic Blocks? [That would make it more complicated for it to find all those of the same name as one you select.] Would there be some with differences in positive-negative on the X & Y scale factors? [That could rotate some effectively in the wrong direction if the rotation isn't 180°.]

Re: Lisp for rotate Block with minus 90 deegree

ronjonp — Sat, 15 Feb 2025 18:18:14 GMT

@Bin2009 Maybe this?

(defun c:br90 (/ s o) (if (setq s (ssget ":L" '((0 . "INSERT")))) (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))) (vla-put-rotation (setq o (vlax-ename->vla-object e)) (- (vla-get-rotation o) (/ pi 2.))) ) ) (princ) )

Re: Lisp for rotate Block with minus 90 deegree

Kent1Cooper — Sat, 15 Feb 2025 02:33:12 GMT

@ronjonp wrote:
(vla-put-rotation (vlax-ename->vla-object o) (- (vla-get-rotation o) (/ pi 2.)))

Should that line be more like this?

(vla-put-rotation (setq o (vlax-ename->vla-object e) (- (vla-get-rotation o) (/ pi 2.)))

[untested]

Re: Lisp for rotate Block with minus 90 deegree

ronjonp — Sat, 15 Feb 2025 18:18:40 GMT

@Kent1Cooper Oops .. updated above.

Re: Lisp for rotate Block with minus 90 deegree

komondormrex — Sun, 16 Feb 2025 10:27:09 GMT

@ronjonp

pi is real number, what for is (/ pi 2.)

Re: Lisp for rotate Block with minus 90 deegree

ronjonp — Mon, 17 Feb 2025 16:05:13 GMT

See if this sheds any light 🙂

(angtof "90") ;; 1.5708 (/ pi 2) ;; 1.5708

Re: Lisp for rotate Block with minus 90 deegree

pkenewell6347 — Mon, 17 Feb 2025 18:46:23 GMT

https://www.cadforum.cz/en/download.asp?fileID=2176

Re: Lisp for rotate Block with minus 90 deegree

Sea-Haven — Mon, 17 Feb 2025 23:33:13 GMT

Been discussed many times about divide in particular returning a real v's an integer and like @ronjonp I try to use a decimal in my numbers often just the decimal point rather than x.0, (/ 3 2) = 1 ?? (/ 3 2.) = 1.5 (/ 3. 2) = 1.5 I guess just a good habit to get used to.

Re: Lisp for rotate Block with minus 90 deegree

Bin2009 — Tue, 18 Feb 2025 02:18:23 GMT

Hello Kent,

Your lisp is work perfectly for the text!
My block is dynamic block without any text.

Thank you very much!

Bin

Re: Lisp for rotate Block with minus 90 deegree

Bin2009 — Tue, 18 Feb 2025 02:20:08 GMT

Hello Ronjonp.

Thank you so much for your lisp, somehow is not working properly, show some error when loading, I try to figure out why.

Best regards,

Bin

Re: Lisp for rotate Block with minus 90 deegree

Bin2009 — Tue, 18 Feb 2025 02:30:41 GMT

Hello Pkenewell,

Thank you so much, the resource you give me provided the lisp can rotate all the objects based on their own reference points, This is perfect for me. because all my blocks which need to be rotated, all setting on one layer, also that layer only have the blocks object, so I can isolate the layer, then use the lisp rotate all the blocks.

Highly appreciate!

Bin

Re: Lisp for rotate Block with minus 90 deegree

braudpat — Tue, 18 Feb 2025 14:47:10 GMT

Hello @Bin2009

I am using often these 2 Lisp routines :

BROT : "Relative" Rotation of Blocks

BSCA : "Relative" Scale of Blocks

AND I have exactly the same routines for TEXT / MTEXT : TROT & TSCA ...

Maybe these routines could help you !?

Bye, Pat

Re: Lisp for rotate Block with minus 90 deegree

komondormrex — Tue, 18 Feb 2025 14:21:09 GMT

actually i have meant decimal point) do not understand what direction you are lightening.

Re: Lisp for rotate Block with minus 90 deegree

ronjonp — Tue, 18 Feb 2025 15:23:02 GMT

@Bin2009 wrote:

Hello Ronjonp.

Thank you so much for your lisp, somehow is not working properly, show some error when loading, I try to figure out why.

Best regards,

Bin

Weird .. works fine here: