Forum:Lisp
Thema:x-koordinate - 1
Möchten Sie sich registrieren?
Wer darf antworten? Registrierte Benutzer können Beiträge verfassen.
Hinweise zur Registrierung Sie müssen registriert sein, um Beiträge oder Antworten auf Beiträge schreiben zu können.
Ihr Benutzername:
Ihr Kennwort:   Kennwort vergessen?
Anhang:    Datei(en) anhängen  <?>   Anhänge verwalten  <?>
Grafik für den Beitrag:                                                
                                                       
Ihre Antwort:

Fachbegriff
URL
Email
Fett
Kursiv
Durchgestr.
Liste
*
Bild
Zitat
Code

*HTML ist AUS
*UBB-Code ist AN
Smilies Legende
Netiquette

10 20 40

Optionen Smilies in diesem Beitrag deaktivieren.
Signatur anfügen: die Sie bei den Voreinstellungen angegeben haben.

Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A     A N S E H E N
joern bosse

Beiträge: 1680 / 6

Window 8.1
ACAD 2012-2020
CIVIL 2012 - 2020
BricsCAD V14-V20
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050

Hallo Mozi,
vielleicht ein kleines Grundgerüst, mußt Du Dir noch ein bißchen anpassen:

Code:

(defun c:test ( / aws pkt)
  (if(and(setq aws (ssget))(setq pkt (getpoint "\Punkt picken:")))
    (progn
      (setq n 0)
      (repeat (sslength aws)
(if (< (car(cdr(assoc 10 (entget (ssname aws n)))))(car pkt))
(command "_.move" (ssname aws n)"" '(0.0 0.0)'(1.0 0.0)))
(setq n (+ n 1))))))

Anmerkung: Die Abfrage, ob der X-Wert kleiner ist über den GC 10 mußt Du noch überdenken, wenn Du z.B. eine Linie hast ist der GC 10 nur der Anfangspunkt, wenn Du aber eine Block hast ist es der Basispunkt.

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

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