---

hallo,

der Text/Bemassung wird (Einstellung: auf Objekt ausgerichtetes BKS) auf dem Kopf geschrieben. Kann man das ab- oder einstellen ?

danke im voraus und Gruss
Sandra

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

---

Code:

---

(defun C:DIMMIRROR (/
;;local symbols
ename ent gripset i flag j
oldeko olderr ss
;;local functions
++ *lerror*
)
;;local error handler
(defun *lerror* (msg)
(if (member msg '("console break" "Function cancelled"))
(princ)
(princ (strcat "\nError " (itoa (getvar "ERRNO")) ": " msg))
) ;if
;;restore old error handler
(setq *error* olderr
olderr nil
)
(princ)
) ;*lerror*
;; ++ Increment counter &a .
;;;call: (++ 'a) <<--note the quote!
(defun ++ (&a)
(set &a (1+ (eval &a)))
) ;end of ++
;;support for noun-verb selection
;;save a selection set of any gripped objects
(setq gripset (cadr (ssgetfirst)))
;;start an UNDO group, which cancels grips
(command "._UNDO" "_GROUP")
;;install local *error* function
(setq olderr *error*
*error* *lerror*
)
;;if gripset exists
(if gripset
;;step through gripset and modify any DIMENSION entities found
(progn
(setq i 0
j 0
ss (ssadd)
)
(while (< i (sslength gripset))
(setq ename (ssname gripset i))
(if (= "DIMENSION" (cdr (assoc 0 (setq ent (entget ename)))))
(progn
(entmod (subst (cons 51 (- (cdr (assoc 51 ent)) PI))
(assoc 51 ent)
ent
)
)
(++ 'j)
) ;progn
) ;if
(++ 'i)
) ;while
(princ (strcat "\nMaßzahl bei " (itoa j) " Bemaßungen.")
)
;;nil ss & set flag to set up for the case of null gripset
(setq ss nil
flag T
)
) ;progn
;;otherwise prompt user to select DIMENSIONS to change
(progn
(prompt
"\nBemaßung(en) für den Spiegelvorgang auswählen: "
)
(setq ss (ssget '((0 . "DIMENSION"))))
) ;
) ;if
;;process all entities in the resulting selection set
(if ss
(progn
(setq i 0)
(while (< i (sslength ss))
(setq ent (entget (ssname ss i)))
(entmod (subst (cons 51 (- (cdr (assoc 51 ent)) PI))
(assoc 51 ent)
ent
)
)
(++ 'i)
) ;while
(princ (strcat "\nMaßzahl gespiegelt bei "
(itoa (sslength ss))
" Bemaßungen."
)
)
) ;progn
(if (null flag)
(princ "\nKeine gültige Bemaßung ausgewählt!")
)
) ;if
;;restore previous error function
(setq *error* olderr)
;;switch off CMDECHO while ending the UNDO group
(setq oldeko (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(command "._UNDO" "_END")
(setvar "CMDECHO" oldeko) ;restore old CMDECHO value
(princ) ;quiet exit
)

---

Dieses Lisp laden und Bemassung(en) auswählen und Enter.

------------------
MfG Proxy

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

---

Hallo,
BKS um 180°um z-Achse drehen

------------------

gruß
CADdog,
the dog formerly known as TR

AutoCAD spricht mit einem, aber viele hören nicht zu.

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

---

steht der text am bildschirm am kopf oder im BKS am kopf ?

sprich ist der text in richtung x geschrieben und die positive y richtung des bks zeigt in die selbe richtung wie aufrechter text ... ?
wenn ja dann -> dann bks drehen ...  wie im vorherigen beitrag

falls nicht schau mal in den textstil (format -> textstil) vielleicht hast du ein häkchen bei "auf dem kopf" gesetzt ...

------------------
www.plan-net.org

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

---

hallo,
danke für alle Antworten !

Text steht am Bildschirm und BKS auf dem Kopf, wenn ich dich richtig verstehe
der Text ist in Richtung Y auf dem Kopf geschrieben
Häckchen nein
wie dreht man denn das BKS um 180° in Z-Achse ? :-(

Gruss
Sandra

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

---

@Proxy geile sache das, hab ich schon ewgig gesucht.

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

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

---

Hallo Sandra,
das Bks kann folgendermaßen gedreht werden:
=> BKS => z => 180, wenn Deine Einheiten auf Dezimalgrad stehen

------------------
viele Grüße

Jörn

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

---

Hallo,

eins verstehe ich aber nicht, es wird doch immer so vermaßt wie das BKS ausgerichtet ist. Das ist doch normal so.Wenn du die Vermassung anders haben willst, darfst du das BKS nicht so ausrichten.Oder wie gesagt um z-Achse drehen; aber nur wegen der Vermassung?
oder liegt dein Plan in WK und möchtest einen Ausschnitt anders drehen?
Dann mußt du aber auch noch UCSFOLLOW auf 1 stellen und DRSICHT
machen.
Dann ist in diesem Zustand aber die Vermaßung OK :-))

------------------

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

---

es handelt sich dabei um einen Straßenbau-Lageplan, in der ich zB Einbauten ausgerichtet auf die Straßenführung bemasse (paralell). Dafür richte ich das BKS ganz oft aus.
Mit Z 180 funktioniert es jetzt richtig, danke !

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

---

Zitat:

---

Original erstellt von Sandra_:
es handelt sich dabei um einen Straßenbau-Lageplan, in der ich zB Einbauten ausgerichtet auf die Straßenführung bemasse (paralell). Dafür richte ich das BKS ganz oft aus.
Mit Z 180 funktioniert es jetzt richtig, danke !

---

das sehe ich abber die ausgerichtete Bamassung als besser an
_dimaligned
Dann brauchst du doch das BKS nicht zu drehen :-))

------------------

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

---

da gebe ich dir recht !
das kannte ich "noch" nicht

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

---

hallo Proxy, super LSP, U's unterwegs

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

---

Hi Proxy,
Danke für Dein Lisp - kann ich gut gebrauchen!
Gruß,
Roman

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