---

Hallo,

da meine Lisp kenntnisse mangelhaft sin und ich sonst nichts gefunden habe folgende Frage:

Ich habe einen Wblock mit einer länge von y = 1000 mit dem Attributwert 1000.
Jetzt möchte ich den Block in y-Richtung ändern, z.B auf 650.
Nun sollte ein neuer block mit dem attributwert 650 erstellt werden.
Komfortabel wäre eine Abfrage auf welchen y-Wert gändert werden muss.

Hoffe ich habe mich einigermaßen verständlich ausgedrückt. Werde weitere Fragen gerne beantworten.

------------------
Gruss
Wolli

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

---

1. In der Zeichnung gibt es bloß Blöcke!
Füge ich eine *dwg in meine aktuelle Zeichnung ein, dann wird daraus ein Block ( außer bei * als Blocknamenbeginn für die ganz genauen).
2. Was ich dann in der Zeichnung bzw. am Cursor hängend einfüge wird  zur Blockreferenz , und die kann u. a. skaliert sein.

3. Wenn ich dich richtig verstehe , könnten folgende Zeilen als Ansatz ( und als nichts weiter  )dienen:
(defun A ()
  (setvar "attreq" 1) ;Attribute anfordern
  (setvar "attdia" 0) ; ..aber nur in der Befehlszeile

  (setq BLOCKNAME "TESTblock") ; bzw. (setq BLOCKNAME "C:\\TESTblock.dwg")
  (setq ALT_LAENGE 1000)
  (setq NEU_LAENGE (getint "Neue Länge : "))
  (setq SKALIERUNG (/ NEU_LAENGE (* ALT_LAENGE 1.0)))     
  (command "_-insert" BLOCKNAME "X" SKALIERUNG "Y" 1 "Z" 1 pause pause NEU_LAENGE)
)

Die letzte Zeile übernimmt das Einfügen , das Skalieren und das Attributwert setzen. Einfügepunkt und Blockreferenzdrehung sind noch wählbar.
P.S. Die ganzen setq's dienen erstmal nur der Verständlichkeit..
------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 27. Feb. 2004 editiert.]

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

---

Hi,

sieht so aus, als daß sich daraus was machen lässt.
Werde es ausprobieren. Danke

------------------
Gruss
Wolli

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