---

Verwende ein kleines Unterprogramm zum Einsetzen von Blöcken mit einer frei zu wählenden Einsetzrichtung.
Funktioniert bei Blöcken ohne Attribut sowie bei Blöcken mit 1 oder mehreren Attributen.
Werde nach der Eingabe der Einsetzrichtung nach den einzelnen Attributwerten gefragt (Natürlich nur wenn der Block Attribute enthält).

Code:

---

(defun aufforderung ()
(setq OLDLAY (getvar "CLAYER"))
(setq p1 (getpoint "\nEinfügepunkt: "))
(setq wink (getangle p1 "\nEinsetzrichtung: \n"))
(setq wink (angtos wink 2 4))

(command "_.LAYER" "_SET" BL "") ; BL=Blocklayer wird im Aufruf definiert
(setq OMODE (getvar "OSMODE"))
(setvar "OSMODE" 0)
(command "_.INSERT" BN ; BN=Blockname wird im Aufruf definiert
  p1 ; Einfügepunkt
(* (scale) 0.001) ; Größe X
"" ; für Größe Y übernehmen
wink ; Drehung
);command

(setvar "OSMODE" OMODE)
(setvar "CLAYER" OLDLAY)
(princ) ; muss bleiben wegen Rückmeldung
)

---

Will ich dieses Unterprogramm jedoch so lange laufen lassen bis ich es mit der rechten Maustaste beim Einfügepunkt abbreche funktioniert das sobald der Block Attribute enthält nicht mehr - ich werde nur mehr nach den Einfügepunkten gefragt.
Was läuft da falsch.

Code:

---

defun aufforderung_unend ()

(defun *error* (msg)
  (if (or (/= msg "Funktion abgebrochen")
          (= msg "Beenden/Verlassen abbrechen")
        )
        (princ)
        (princ)
    )
)

(setq OLDLAY (getvar "CLAYER"))
(setq p1 (getpoint "\nEinfügepunkt: "))
(if (= p1 nil)(exit))

(setq wink (getangle p1 "\nEinsetzrichtung: \n"))
(setq wink (angtos wink 2 4))

(command "_.LAYER" "_SET" BL "") ; Blocklayer
(setq OMODE (getvar "OSMODE"))
(setvar "OSMODE" 0)
(command "_.INSERT" BN ; Blockname
  p1 ; Einfügepunkt
(* (scale) 0.001) ; Größe X
"" ; für Größe Y übernehmen
wink ; Drehung
);command

(setvar "OSMODE" OMODE)
(setvar "CLAYER" OLDLAY)

(princ) ; muss bleiben wegen Rückmeldung
(aufforderung_unend)
)

---

------------------
Grüße Bernd

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

---

Hallo Bernd,
hier nur eine Antwort auf Verdacht, ich habe Deinen Beitrag nur überflogen:
Zu Beginn die Systemvariable "ATTREQ" auf 0 stellen, dann werden keine Attributswerte abgefragt. Diese kannst Du dann später über ENTMOD ändern. Dann ist es auch egal, wieviele Attribute enthalten sind.

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

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

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

---

dein Commandaufruf
(command "_.INSERT" BN   p1 (* (scale) 0.001) "" wink )
hört nach dem Blockeinfügen auf .
Beim einmaligen Durchlauf deines Programms ist
- wenn ATTREQ auf 1 steht und der Block Attribute hat - der
command aufruf noch aktiv und du kannst die Attributwerte eingeben.
bei deinem Anendlichaufruf läuft das natürlich in einen Fehler...

Besser ist deinen Commandaufruf wie folgt abzuändern:
(command "_.INSERT" BN   p1 (* (scale) 0.001) "" wink )
(while (/=(getvar "CMDACTIVE")0)(command pause))

100% finde ich das aber alles nicht, weil zu Anwenderfehleranfällig ..

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

@CADmium

Funktioniert - Danke.

GibtŽs da auch noch eine Möglichkeit die Eingabeauffordrung anzuzeigen, weil jetzt ist ja nur eine Leerzeile da ohne irgend einen Text.

------------------
Grüße Bernd

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

---

attdia auf 1 ?

wenn alles im command läuft übergibt man ja die Attwerte gewöhnlich gleich mit und spart sich die Atttag-anzeige .... du willst da mischen ... deswegen meinte ich ja : suboptimal

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Ich verwende diesen Befehl zum Einfügen aller Blöcke mit einem Einfügewinkel diese haben manchmal kein Attribut, manchmal 1 oder mehr. Auf jedenfall ist die Eingabeaufforderung aber immer ein anderer Text - zB. Hausnummer, Straßenname, Baumumfang
Bei 2 Attributen zB. Blattnr. westlich, Blattnr. östlich

------------------
Grüße Bernd

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