---

Guten Morgen,

ich habe eine Frage.

Ich habe eine Funktion geschrieben in der nach Eingabe von einem Einfügepunkt und anschließender Eingabe von Längen,Höhen etc. eine Anzahl von Elemente (Linien Punkte und Maße) berechnet und gezeichnet werden.
Nun möchte ich aber den Einfügepunkt erst am Ende setzen. (Die einzufügenden Elemente sollen am Fadenkreuz „hängen“).
Ich habe keinen Schimmer wie das funktionieren könnte.

Kurzes Beispiel.: IST

1. Einfügepunkt angeben
2. Längen Höhen Text etc. eingeben.
3. Berechnen/Zeichnen der Elemente
4. Fertig.

SOLL:
1. Längen Höhen Text etc. eingeben.
2. Berechnen/Zeichnen der Elemente
3. Einfügepunkt abfragen (Elemente sollten am Fadenkreuz „hängen)

Es wäre nett wenn mir jemand auf die „Sprünge“ halfen kann....

Gruß
dschu

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

---

Hallo Dschu,

ein Hilfskonstrukt wäre:
Die Elemente im Punkt 0,0 einfügen und dann den Schieben-Befehl aufrufen. Das geht aber nur, wenn das Schieben wirklich als letztes vom Programm bewerkstelligt werden soll.
Dann kannst du den Schieben- Befehl im Programm unvollständig beenden.
(command "_.move" "L" "" "0,0")
In dieser Zeile fehlt der Zielpunkt. Sollten noch weitere Befehle in der Lisp-Datei folgen, laufen die auf einen Fehler.

Was anderes fällt mir im Moment nicht ein. Vielleicht hilft's dir ja.

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night

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

---

Hallo Holger,

danke für den Tip; ich habe auch gleich die Befehle
"cutclip" und "pasteclip" ausprobiert. Es funktioniert.

Ist aber nicht so wie ich's mir vorstelle. Die Elemente sollten drehbar, verschiebbar und sogar evtl. gespiegelt werden.

Kennt jemand eine Möglichkeit innerhalb einer Zeichnung aus den Elementen so eine Art internes/en "Makro"/"Block" zu erstellen und diesen dann auszuschneiden etc. ? Du weißt schon die Eierlegendewollmilchsau.

Falls jemand noch eine Idee hat bitte Melden.

Ansonsten noch einen schönen Tag

Gruß
dirk (dschu)

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

---

Hallo,

hier mal ein kleines Beispiel in Lisp,
wie so etwas machen könnte.

Ich hoffe es hilft die weiter.

Gruß Helmut

(defun c:merk( / ab aw)
  ;letztes Element merken
  (setq ab (entlast))
  ;neue Elemente zeichnen
  (command "kreis" (list 50 50) 50)
  (command "kreis" (list 50 50) 25)
  (command "rechteck" (list 0 0) (list 100 100))
  ;wenn schon Elemente in der Zeichnung vorhanden sind,
  ;dann auf erstes neues Element
  (if ab(setq ab (entnext ab)))
  ;Auswahlsatz erzeugen
  (setq aw(ssadd))
  ;wenn schon Elemente in der Zeichnung waren,
  ;dann Auswahlsatz mit alle neuen Elementen erstellen
  (cond (ab
(while  ab
  (setq aw (ssadd ab aw)
ab (entnext ab))
        )
)
;wenn Zeichnung leer war, dann alles auswählen
('T (setq aw (ssget "X")))
  )
  ;Auswahlsatz verschieben
  (command "_move" aw "" (list 0 0) pause)
  (setq aw 'nil)
)

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

---

Dank auch an Helmut,

es funktioniert gut.

Gruß dirk

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