Rotate multiple blocks about the insertion point to global fixed point.

[GHarvey]

Hi GHarvey,

Thanks for your help. This works in principle although there appears to be a little problem in that each block rotates what appears to be an extra 90 degrees.....any ideas?

My code assumes that the arrow block points in the same direction as its rotation value; that is, insert it at zero rotation and it will point to the right. I guess that your block points 90 degrees from this. If this is the case, the following should fix the issue.

(defun c:pointat ( / ARRW-N ARRWS N N-PT NUM PTA)
  (vl-load-com)
  (if (setq arrws (ssget '((0 . "INSERT")))
	    ); setq
    (progn
      (setq num (sslength arrws)
	    pta (getpoint "\nPick the Target... ")
	    n 0
	    ); setq
      (while (< n num)
	(setq arrw-n (vlax-ename->vla-object (ssname arrws n))
	      n-pt (vlax-get arrw-n 'insertionpoint)
	      n (1+ n)
	      ); setq
	(vla-put-rotation arrw-n (- (angle n-pt pta) (/ pi 2.0)))
	); while
      ); progn
    (prompt "\nNo blocks selected. ")
    ); if
  (princ)
  ); defun

[peter]

That puzzle looks like too much fun so I have to throw in this grread version.

(It rotates the blocks dynamically)



P-

*** (I fixed the ending error mentioned below see new attachment for arwx2.lsp)***

[Tharwat]

(It rotates the blocks dynamically)

Hi,

The code throw an error when a user pick a point to end the process , and as you know all that because of feed in of the while function .

[feargt]

Hi Peter,

I'm glad the puzzle was entertaining for you. Although when I tested your lisp nothing happened. I tested it on the drawing attached, and also on my drawing where I changed the block name fron arx to the name of my block. End result was as follows.

Command: arwx2

Command:

There was no request for any user input and nothing changed on the screen graphically........Am I missing something????

Thanks
no request for user input or target

[feargt]

Hi GHarvey,

Thanks for taking the time to optimise the code. Works a charm.

Thanks!

[heinz.dober]

Would it work if I ever want to go drehn 90 degrees.

Würde das auch gehn wenn ich immer um 90 Grad drehn will.

Danke

[feargt]

Hi Heinz,

Was meinen Sie genau? Meinen Sie ob es alle blöcke um 90 Grad drehen kann egal welche drehung sie jezt haben?

[heinz.dober]

I'd love to
when I press the Tab key
the object will always be rotated by 90 degrees.

Ich würde das gerne machen
wenn ich die Tab Taste drücke
das das Objekt immer um 90 Grad gedreht wird.

Hintergrund ist der, ich will das Objekt kopieren oder schieben, und während kopieren oder schieben das Objekt mit der Tab Taste drehnen können.

Danke

[feargt]

Hi Heinz,

haben Sie die Express tools geladen?

folgende lisp ist einfach 2 makros die die Express befehl Moroco verwenden. Sie werden das Objekt um 90 Grad drehen (nach kopieren oder schieben).

[code]
(defun c:md (/ )
(command "_mocoro" Pause "" Pause "m" Pause "r" "90" "")
)

(defun c:cd (/ )
(command "_mocoro" Pause "" Pause "c" Pause "" "r" "90" "")
)
[code]

Wenn das ist nicht was Sie brauchen dann bitte eine neue Post starten.

[heinz.dober]

Nein das ist es nicht, aber so ähnlich.

(defun c:cd (/ )
(command "_mocoro" Pause "" Pause "c" Pause "" "r" Pause "m" Pause "")
)

Danke