topic Re: AutoCAD Command to reset Block Rotation angle to zero in AutoCAD Forum

AutoCAD Command to reset Block Rotation angle to zero

Anonymous — Tue, 20 Feb 2018 11:36:54 GMT

Hi All,

Please let me know AutoCAD command to reset the block rotation angle to zero.

Re: AutoCAD Command to reset Block Rotation angle to zero

john.p.addy — Tue, 20 Feb 2018 11:45:02 GMT

Is the block actually rotated at the 45 degree?

Re: AutoCAD Command to reset Block Rotation angle to zero

Anonymous — Tue, 20 Feb 2018 12:16:47 GMT

Thank you for your reply Sir,

Yes, Block has been rotate at 45 Degree.

Basically i am defining a AutoCAD script, where the block to rotate at specified angle and plot the window selection area, then again to reset the block rotation angle to zero for rotate to next angle value and plot.

Thank you..

Regards,

Harish

Re: AutoCAD Command to reset Block Rotation angle to zero

tramber — Tue, 20 Feb 2018 12:21:31 GMT

Change the value by clicking in that field with your mouse

Re: AutoCAD Command to reset Block Rotation angle to zero

tramber — Tue, 20 Feb 2018 12:24:27 GMT

You can also use the CHANGE command on a block insertion to redifine the angle but it would mean that you select, wich is quite some art in scripts.

Re: AutoCAD Command to reset Block Rotation angle to zero

john.p.addy — Tue, 20 Feb 2018 12:27:30 GMT

The only thing I can think of is to go into the actual block and rotate the block -45 degrees, or rotate the block -45 degrees

Re: AutoCAD Command to reset Block Rotation angle to zero

Kent1Cooper — Tue, 20 Feb 2018 14:25:07 GMT

@Anonymous wrote:

.... the block to rotate at specified angle and plot the window selection area, then again to reset the block rotation angle to zero for rotate to next angle value and plot.

....

You could simply do something like this:

Rotate the North Arrow

Plot {whatever that involves}

U ; [undo the Plot, which won't have any effect in the drawing]

U ; [undo the Rotate command]

Rotate the North Arrow for the next....

If that isn't viable for some reason, and if you have full AutoCAD and therefore AutoLisp capability, and if there is only one such Block in the drawing, you can just force it to be at 0 rotation:

(vl-load-com); if necessary

(vla-put-rotation (vlax-ename->vla-object (ssname (ssget "_X" '((2 . "NorthArrow"))) 0)) 0)

Re: AutoCAD Command to reset Block Rotation angle to zero

leeminardi — Tue, 20 Feb 2018 17:37:11 GMT

The following vlisp code uses the ALIGN command to reorient a 3D block so that its axes are parallel to the WCS. It "unrotates" the block.

(defun c:unrot (/ bdata bm xv yv pos spt2 tpt2 spt3 tpt3)
; rotates a block so that its axes
; are aligned to the WCS
; L. Minardi  2/20/2018  
  (setq bdata (nentsel))
  (setq bm (nth 2 bdata))
  (setq	xv  (nth 0 bm)
	yv  (nth 1 bm)
	pos (nth 3 bm)
  )
  (setq	spt2 (mapcar '+ pos xv)
	tpt2 (mapcar '+ pos '(1 0 0))
	spt3 (mapcar '+ pos yv)
	tpt3 (mapcar '+ pos '(0 1 0))
  )
  (command "align" pos "" pos pos spt2 tpt2 spt3 tpt3)
  (princ)
)