---

Hallo CAD.DE,
ich habe 2 sehr simple Fragen:

1.) Kennt jemand eine LISP-Routine die mir den Einfügepunkt eines
Blockes in eine Variable schreibt.

2.) Wie werden Ascii-Zeichen in eine Koordinate umgewandelt.

Gruss und Danke

Peter

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

---

Zu 1.)

Code:

---

(setq Punkt (cdr (assoc 10 (entget (car (entsel))))))

---

Zu 2.)

Was heisst ASCII-Zeichen? ABC? Oder doch 123?

------------------
Grüsse

Thomas

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

---

Hi ,
danke für die schnelle Antwort.
Ich bekomme die AsciiZeichen die einen Punkt beschreiben so her:

100,200

Gruss
Peter

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

---

Hallo Thomas, ich schon wieder,

mein Block heisst "Blechuebersicht".
Wie sieht dann die Programmzeile komplett aus.

Sorry, aber ich bin kein grosser LISPler - muss
nur eine Kleinigkeit in ein Miniprogramm einfügen.

Danke für deine Hilfe

Peter

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

---

Ja schön für - ihc bin aber auch kein großer Lispler... und Hellseher auch nicht:

Aus diesem Grunde erkläre mal was du meinst mit:

Zitat:

---

...mein Block heisst "Blechuebersicht".
Wie sieht dann die Programmzeile komplett aus....

---

und erkläre auch was du mit:

Zitat:

---

Ich bekomme die AsciiZeichen die einen Punkt beschreiben so her:

100,200

---

Wo bekommst du die so her? Vom Milchhof? Beim Fleischer?

------------------
Grüsse

Thomas

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

---

Hallo Thomas,

weder vom Fleischer noch vom Milchhof.

zu Prob2:
die Koordinate wird aus einer Datei gelesen und ist dann als String im LISP vorhanden. Blödsinnigerweise nannte ich das vorhin ASCII-Zeichen.
Diesen String möchte ich nun weiterbearbeiten und benötige den Wert des Strings als Punktepaar, sprich Koordinate.
Hoffentlich habe ich mich nun verständlicher ausgedrückt.

zu Prob1:
Ich hätte gerne die komplette Programmzeile für das Auslesen des Einfügepunktes eines Blockes (der den Namen "xyz" hat) wissen.

Gruss
Peter

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

---

Hallo Peter,
zu Prob 2:
versuche mal folgende Funktion einzubinden:

Code:

---

(defun JBf_string_trenzeichen->list (str str_trenn / list_str)
  (setq str (vl-string-left-trim str_trenn str)
str (vl-string-right-trim str_trenn str))
  (if (vl-string-search str_trenn str)
    (progn
      (while (vl-string-search str_trenn str)
(setq list_str (cons (substr str 1 (vl-string-search str_trenn str))list_str)

      str (vl-string-left-trim str_trenn(substr str(+(vl-string-search str_trenn str)(+ (strlen str_trenn)1))))))
      (if (/= str "")
(setq list_str (cons str list_str))))
    (setq list_str (cons str list_str)))
  (reverse list_str)

---

Wenn Du den Koordinatenstring "100,200" z.B. in der Variablen KOORD gespeichert hast, dann rufst Du die Funktion folgendermaßen auf:
(JBf_string_trenzeichen->list KOORD ",")
Als Rückgabe solltest Du dann (100 200)

zu Prob 1:
vielleicht solltest Du noch mal erklären, wie Du an die Blöcke herankommst. Wählst Du diese über SSGET aus?? Dann gehe ich davon aus, das Du n Blöcke mit dem Namen "xyz" hast und das Du eine Koordinatenliste zurückerhalten möchtest.

vielleicht so:

Code:

---

(defun koord ( / aws koord_liste n)
  (princ "\nBitte Blöcke \"xyz\" auswählen:")
  (if (setq aws(ssget (list (cons 0 "INSERT")(cons 2 "xyz"))))
    (progn
      (setq n 0)
    (repeat (sslength aws)
      (setq koord_liste (cons (cdr(assoc 10 (entget (ssname aws n))))koord_liste)
    n (+ n 1))))
    (alert "keine Blöcke ausgewählt."))
  koord_liste)

---

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

Jörn

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

---

Hi Jörn,

die Aktion "Block-Einfügepunkt ermitteln" ist Teil eines grossen Lisp-Programmes. Innerhalb dieses Programmes soll die Position eines bereits eingefügten Blockes mit dem (fixen) Namen "xyz" ermittelt werden. Dabei möchte ich den Block "xyz" nicht per Cursor wählen, sondern das Programm soll selbständig dieses Objekt wählen und die Position (Koordinaten) des Blockes "xyz" ermitteln und in eine Programmvariable schreiben.

Ich habe jetzt sehr ausführlich geschrieben. Vielleicht kommt es dann so verständlicher rüber.

Danke für Deine (Eure) Mühen

Peter

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

---

Hallo Peter,
na wenn es nur einen Block gibt, dann müßte folgendendes funktionieren:

Code:

---

(if (and
    (setq aws(ssget "_X"(list (cons 0 "INSERT")(cons 2 "xyz"))))
      (=(sslength aws)1))
(setq koord (cdr(assoc 10 (entget (ssname aws 0)))))
  (alert "kein Block \"xyz\" vorhanden oder mehr als nur einer!")
  )

---

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

Jörn

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

---

Zitat:

---

...Dabei möchte ich den Block "xyz" nicht per Cursor wählen...

---

Grundsätzlich ist zu unterscheiden, ob Du jetzt tatsächlich einen Block (= Blockdefinition) meinst - nur einmal vorhanden - oder Blockreferenzen (Typ "INSERT"). Die sind mit dem Cursor wählbar, allerdings kann es davon mehrere gleichnamige geben.
drum die Einschränkung von Jörn

Zitat:

---

...wenn es nur einen Block gibt, dann müßte folgendendes funktionieren:...

---

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

www.geopaint.at

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

---

Super,
es hatte so geklappt wie ich es wollte.
Herlichen Dank Björn 

Gruss
Peter

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

---

Hallo Zusammen,

ich möchte nochmals auf dieses Thema aus 200x zurück ommen.
Wie kann ich der Programmzeile:
(setq Punkt (cdr (assoc 10 (entget (car (entsel))))))

einen fixen Blocknamen zuweisen.

Gruß
Peter

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

---

Du willst ja den Einfügepunkt der Blockreferenz haben .. und da kann es ja mehrere eines Blockes geben .. also auch mehrere Einfügepunkte ...
(setq PUNKTLISTE nil)
(setq BLOCKNAME "TEST")
(if(setq AWS(ssget "_x" '(list '(0 . "INSERT")(cons 2 BLOCKNAME)(cons 410 (getvar "CTAB")))))
  (progn
    (setq INDEX -1)
    (repeat(sslength AWS)
      (setq Punktliste (cons (cdr(assoc 10 (entget(ssname AWS(setq INDEX(1+ INDEX)))))) PUNKTLISTE)
    )
  )
)

und wenn du sicher bist, das blloß 1 Insert existiert und du den Punkt haben willst noch
(setq PUNKT(car PUNKTLISTE))

P.S. alles ungetestet hier reingekloppt .. also auf Klammern usw. noch mal gucken

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Danke es hat geklappt - lasse.
Ich musste lediglich eine Klammer versetzen und ein Listenzeichen entfernen.

Gruß
Peter

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