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