---

Hallo,

Hab folgendes Problem:

Nachfolgenden Code hab ich hier irgendwo gefunden. Dieser gibt die Bildschirmkoordinaten aus.
Diese Koordinaten will ich im nächsten Code darunter verwenden der folgendes machen soll.

1) Gruppe ausschalten
2) Automatisch einen Auswahlsatz bilden aus dem aktuellen Bilschirmausschnitt und zwar mit ssget "_C" pt1 pt2
3) Wenn die Bemaßung  auf dem Layer Bemaßung_universal gefunden wird ändere den Layer im aktuellen Auswahlsatz auf Layer Sockel_Bemaßung, Wenn kein Layer Bemaßung_universal
gefunden wird mache nichts.
4) Gruppe einschalten
5) Alles regenerieren

Nun mein Problem mit ssget "_c" pt1 pt2 will einfach nicht funktionieren. Hab schon alles mögliche versucht.
Ich möchte einfach zwei "Klicks" sparen, die ich mit ssget alleine machen müßte.
Wenn ich das Lisp mit ssget und zwei "Klicks" laufen lasse funktioniert alles wunderbar.
mit ssget "_x" will ich nicht verwenden, da es mir dann alle Maße nehmen würde. Ich will aber nur die im aktuellen Fenster sichtbaren ändern.

Bitte um Hilfe

lg. Martin 

(defun vis_bks (/ view_w view_h pt1 pt2);;aktuelle Bildschirmkoordinaten ausgeben
  (setq view_h (getvar "viewsize"))
  (setq view_w (* (/ view_h (cadr (getvar "screensize"))) (car (getvar "screensize"))))
  (setq pt1 (list (- (car (getvar "viewctr")) (/ view_w 2.0)) (- (cadr (getvar "viewctr")) (/ view_h 2.0))))
  (setq pt2 (list (+ (car (getvar "viewctr")) (/ view_w 2.0)) (+ (cadr (getvar "viewctr")) (/ view_h 2.0))))
  (list pt1 pt2)
  )

(Defun c:bemae (/ )
(setvar "pickstyle" 0)
(command "_change" (ssget '((0 . "DIMENSION") (8 . "Bemaßung_universal"))) "" "_P" "la" "Sockel_Bemaßung" "")
(Command "_UnIsolateObjects")
(command "regenall")
)

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

---

Hallo Martin,
bei mir hat es so funktioniert:

Code:

---

(Defun c:bemae ( / PT1 PT2)
(setvar "pickstyle" 0)
  (setq pt1 (vis_bks)
        pt2 (cadr pt1)
        pt1 (car pt1))
(command "_change"
  (ssget "_C" pt1 pt2 '((0 . "DIMENSION") (8 . "Bemaßung_universal"))) "" "_P" "la" "Sockel_Bemaßung" "")
(Command "_UnIsolateObjects")
(command "regenall")
)

---

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

Jörn
http://www.bosse-engineering.com

Orthogonalvermassung Youtube

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

---

Hallo Jörn,

Das hat mir gefehlt!    

    (setq pt1 (vis_bks)
        pt2 (cadr pt1)
        pt1 (car pt1))

Toll wäre wenn du mir diese Zeilen erklären könntest damit ich es verstehen kann.

Danke nochmals! Jetzt funktioniert es bei mir auch.  

lg. Martin

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

---

Hallo Martin,
die Funktion "vis_bks" gibt in einer Liste die beiden Punktkoordinaten Pt1 und Pt2 zurück. Diese Liste speicher ich in Pt1, dann weise ich das 2. Element von Pt1 mit CADR Pt2 zu und das 1. Element mit CAR Pt1.

Schwierig das zu beschreiben, aber so ungefähr. Eventuell solltest Du das mit der VLIDE-Umgebung einfach mal im Debug-Modus durchlaufen lassen, dann kannst Du die Werte der Variablen zu jeder Zeit überwachen, dann wird es wohl automatisch klarer:
http://www.bosse-engineering.com/JB_Data/Bosse-engineering/090501_VisualLISP-Editor.pdf

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

Jörn
http://www.bosse-engineering.com

Orthogonalvermassung Youtube

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

---

Danke Jörn für die hilfreiche Info.

lg. Martin

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