---

hai leute,

ich suche eine routine, die mir einen block um 90 grad dreht.
diese aufgabenstellung besteht bei uns, da sich im verlauf einer konstruktion die eingefügten blöcke oft ändern in der ausrichtung. es würde vollkommen ausreichen, das beim aufruf des befehls dieser eine block angepickt wird und um seinen einfügepunkt (basispunkt) um 90 grad gedreht wird.
wäre auch nicht schlecht, wenn das dan bei cadwiesel mit auftauchen würde...

------------------
hopethishelps

Yeti

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

wie wär's mit einem einfachen Befehl auf dem Werkzeugkasten?

^C^C_rotate \ bas @ 90

Gruß Gunnar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo Yeti,

ich hab mal ein programm geschrieben, das ähnliches kann.
hab jetzt kaum Zeit, hänge ich gegen mittag mal an.

bis dann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Yeti

Damit kannst Du einzelne Objekte oder auch mehrere um einen bestimmten Winkel drehen. Den Winkel mußt Du anpassen - bei mir steht jetzt "100" (gon). Suche die Zeile mit " ;**** Winkelwert **** ".
Am Ende der darauffolgenden Zeile gewünschten Wert einsetzen.

(defun c:rechts-um ()
  (osm0)
  (while
    (setq aws (ssget))
    (if (= 1 (sslength aws))
      (progn
        (setq objname (ssname aws 0))
        (setq ppkt (cdr (assoc 10 (entget objname))))
      )
      (progn
        (setq ppkt (getpoint "\nDrehpunkt: "))
        (if (not ppkt)
          (setq ppkt vorppkt)
        )
      )
    )
;**** Winkelwert ****
    (command "_rotate" aws "" ppkt "100")
    (setq vorppkt ppkt)
  )
  (osmz)
)
;---------------------------------------------------------------------(defun osm0 ()
  (setq osm (getvar "osmode"))
  (setvar "OSMODE" 0)
)
;---------------------------------------------------------------------(defun osmz ()
  (setvar "OSMODE" osm)
)
;---------------------------------------------------------------------

@ cadwiesel
Servus Martin
Wenn Du daran interessiert bist, kannst Du's natürlich bei Dir anbieten. (will Dich nicht zwangsbeglücken).

Gruß, Ernst

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hai,

das ging ja schnell!!! danke.

@gug: funzt net so, ich kenne ja zum teil nicht den basispunkt und wenn ich bei einem eingefügten hilfsdiesel diesen suche... deshalb sollte das tool ja auch den block-basispunkt verwenden. übrigens hängt das makro nach dem basispunkt anklicken. trotzdem danke für deine mühe.

@gerd: immer her damit, kannst ja hier anhängen als zip.

@geos: bei mir kommt (nach dem laden der lsp) beim ausführen folgende meldung:
"Befehl: rechts-um
; Fehler: no function definition: OSM0"
zu den gon - da 100 gon eigentlich 90° entsprechen sollten, wird das wohl nicht das hindernis sein. oder spielt da die voreinstellung von acad (angabe des winkels in grad) rein? ich kann dann ja deine zahl nicht einfach in 90 umwandeln oder?!

------------------
hopethishelps

Yeti

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hy ,

Was ACAD mit den 100gon / 90Grad macht hängt davon ab was
du in deinen Optionen als Winkel ACAD gesagt hast Gon oder Grad

mfg cw

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

noch ein nachtrag @geos:
ich habe beim appload folgende meldung beinahe übersehen:
"Befehl: _appload rechts_um.lsp erfolgreich geladen.
rechts_um.lsp erfolgreich geladen.
Befehl: ; Fehler: Überzählige rechte Klammer in Eingabe
Befehl: ; Fehler: Überzählige rechte Klammer in Eingabe"
da ich lisp 0-ahnung habe- läuft schon was beim laden schief?

ALLES VERGESSEN!!! habe eben 2 zeilenumbrüche in der lisp eingefügt, die wohl durchs ins-forum-reinkopieren gekommen sind. jetzt funzt es (mit der zahl 90) so wie gewünscht.
DANKE!
ach so, mit cadwiesel hatte ich eigentlich schon mal wegen einer makro-seite gesprochen (auch für lt geeignet). und ich schätze, auch solche "kleinen" tools -die den alltag doch wesentlich erleichtern- könnten da mit rein.

------------------
hopethishelps

Yeti

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP