---

Guten Morgen

Ich schreibe ein Makro welches Blöcke einfügt.Nun möchte ich, dass sich das BKS um die Länge des Blocks in X-Achse schiebt, so dass man beim nächsten Block den Enfügepunkt wahlweise mit der Eingabetase auf 0,0,0 einfügen kann. (Sollte in der Befehlszeile in eckiger Klammer stehen)

1) Wie sage ich dem Programm, dass es eine eckige Kalammer mit dem Vorschlag 0,0,0 machen soll?

2) Wie schiebe ich das BKS in X richtung um 600 Einheiten?

Hier mein Anfang:
^C^C_Filedia;0;Ortho;ein;Osmode;4;-layer;neu;"A";se;"A";Fa;T;0,127,255;"A";plot;P;^C^C_-insert;"C:/B.dwg";   \1;1;\Ortho;aus;_ucs;_ob;letztes;_ucs;   @0,0,600 filedia;1;^C^C$I=Block einfügen$I=*

Meiner Ansicht nach fehlt bei den    ein paar Zeichen  
Aber welche?

Mfg

Alex

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

---

Hallo Alex,
erst einmal solltest Du versuchen, englische  Befehle (mit Unterstrich) und deutsche nicht zu mischen - geht zwar, ist aber ein bischen gebastelt. HIER findest Du die englischen Übersetzungen.
zu den 2 fraglichen Stellen:
1: eine Vorgabe geht mit Diesel nicht, da musst Du auf Lisp zurückgreifen: (if (setq p (getpoint "[0,0,0)]:")) p '(0 0 0))
2: die Option zum versetzten des Ursprungs im BKS ist "_origin" ("ursprung"), gefolgt von dem neuen 0-Punkt, also ...;_ucs;_origin;600,0,0;;...

[EDIT]die X-Koordinate ist 600, nicht die Z-Koordinate[/EDIT]

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

       http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 25. Feb. 2011 editiert.]

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

---

Vielen Dank

Das BKS ist nun genau da wo ich es haben möchte. Punkt 2) ist somit gelöst.

Nun zu Punkt 1)
Wenn ich das Lisp mit Anführungszeichen in das Makro schreibe kommt folgende Fehlermeldung:
Einfügepunkt angeben oder [Basispunkt/Faktor/X/Y/Z/Drehen]: "(if (setq p
(getpoint "[0,0,0)]:")) p '(0 0 0))"*Abbruch*

Auch ohne Anführungszeichen geht es leider nicht. Es wird der Einfügepunkt verlangt.

Hier der neueste Stand ^C^C_Filedia;0;Ortho;_on;Osmode;4;-layer;_new;"A";se;"A";_Color;T;0,127,255;"A";plot;P;^C^C_-insert;"C:/B.dwg";"(if (setq p (getpoint "[0,0,0)]:")) p '(0 0 0))"\1;1;'Osmode;0;\Ortho;_off;_ucs;_object;_last;_ucs;_origin;1000,0,0;filedia;1;^C^C$I=Einfügen_B$I=*^P

3) Am ende des Befehls möchte ich, dass sich das Bildmenü wider öffnet.
Wo soll das ^P stehen? Oder muss es ein * sein um den Befehl wieder aufzurufen?

Vielen Dank auch für den Tipp mit den englischen Befehlen. Ich werde auch dieses gebrauchen: (getcname"Löschen")

Viele Grüsse und ein schönes Wochenende

Alex

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

---

Hallo Alex,
Du musst den Lisp-Teil noch "abschicken", also so:
...^C^C_-insert;"C:/B.dwg";(if (setq p (getpoint "[0,0,0)]:")) p '(0 0 0));1;1;0;.....

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Guten Morgen

Vielen 1000 Dank für das Lisp.
Wie kann ich jetzt noch einbauen, dass Osmode 0 (Objektfang aus) ist, wenn man Eingabe drückt um den vorgeschlagen Einfügepunkt 0,0,0 zu bestätigen?

Der Objektfang sollte aber an sein (Osmode 4), wenn man einen Enfügepunkt von Hand auswählt.

Besten Dank.

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

---

Da müsstest Du den Punkt vorher abfragen und dann dem Einfügebefehl übergeben ...
probier mal das:

Code:

---

^c^c(progn(setvar "Osmode" 4)(if (setq p (getpoint "<0,0,0>:")) p (setq p '(0 0 0)))(setvar "Osmode" 0)(command "insert" "C:/B.dwg" p 1 1 0 ? ? ? ...)(setq p nil))

---

Die "?" stehen für ev. fixe Attributseingaben, ansonsten weglassen.

------------------
Schöne Grüße
Ernst

www.geopaint.at

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