---

Hi!

Ich habe ein Tool womit sich Texte in Attribute umwandeln lassen. Meine Frage ist, ob das auch in der Form geht, dass der Text durch ein Attribut in einen Block eingefügt werden kann?
Hier das besagte Lisp.
(defun c:txt2att ( / el i ss st ) (vl-load-com)
 
  (if (setq ss (ssget "_:L" '((0 . "TEXT"))))
    (repeat (setq i (sslength ss))
      (setq el (entget (ssname ss (setq i (1- i))))
            st (vl-string-translate " " "_" (cdr (assoc 1 el)))
      )
      (if
        (entmakex
          (append '((0 . "ATTDEF"))
            (vl-remove-if '(lambda ( pair ) (member (car pair) '(0 100 73))) el)
            (list
              (cons 70  0)
              (cons 74 (cdr (assoc 73 el)))
              (cons  2 st)
              (cons  3 st)
            )
          )
        )
        (entdel (cdr (assoc -1 el)))
      )
    )
  )
  (princ)
)

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

---

Selbst wenn ich die "Aufgabenstellung" nicht verstehe (interpretieren kann man aber viel) so
kann die Frage dennoch bereits mit JA beantwortet werden.

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Also die Frage anders formuliert gibt es ein Lisp bei dem ein bestehender Text in ein Attribut umgewandelt und anschliessend das Attribut in einen Block eingefügt wird ?
Das bedeutet ich habe einen Text und brauche als Endprodukt einen Block mit Attribut, dessen Inhalt aus dem Text hervorgeht.

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

---

Wenn das die einzige Vorgabe wäre: JA - Ich suche aber nicht danach, es war aber hier schon im Forum54 oder Forum145 , da bin ich sicher.

Viel mehr wie eine "praktische" Blockdefinition mit mind.1 Attributdefinition braucht man dazu ja nicht:
(defun c:einfachertest ()
(if (not(tblobjname "BLOCK" "MEINBLOCK"))(alert"MEINBLOCK ist nicht definiert"))
(setq n 0)(setvar "ATTDIA" 0)(setvar "ATTREQ" 1)
(repeat (sslength(setq aws (ssget '((0 . "*TEXT,ATTDEF")))))
(setq OBJ (entget (ssname aws n)))
(command "_.-INSERT" "MEINBLOCK" (cdr(assoc 10 OBJ)) 1 1 0 (cdr(assoc 1 OBJ)))
(entdel (ssname aws n))
(setq n (1+ n))
)
)

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Untitled3.jpg

Besten Dank

Weiss jemand warum manchmal die Grips im Block fehlen?

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

---

Zitat:

---

Original erstellt von cadplayer:
Besten Dank

Weiss jemand warum manchmal die Grips im Block fehlen?

---

Könnte an der SysVar GRIPBLOCK liegen.

Gruß
Thomas

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

---

misc.jpg

Danke für die Antwort
Es war eine andere Einstellung (preset yes siehe Bild)

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

---

block.jpg

Nein doch nicht... Warum wird der Grip in obigen Attribut nicht angezeigt

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

---

Da wird wohl bei der Attributsdefinition die Eigenschaft "Position sperren" aktiv sein. http://exchange.autodesk.com/autocadmep/deu/online-help/browse#WS1a9193826455f5ffa23ce210c4a30acaf-5142.htm

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Super danke

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

---

nochmal nachgefragt
1)Frage

in der Zeile:
(command "_.-INSERT" "MEINBLOCK" (cdr(assoc 10 OBJ)) 1 1 0 (cdr(assoc 1 OBJ)))

werden die Parameter für den Block bestimmt. Wenn jetzt der Text (eine Zahl) in GC 1 mit 3 Nachkommastellen angegeben wird, wie kann ich das Ergebnis nur mit 2 Nachkommastellen ausführen.

GC 1 ergibt "12.345" -> ist ein Textstring, den ich in eine Zahl umwandeln müsste, um auf 2 Kommastellen aufzurunden ->anschliessend wieder in einen Textstring umwandeln
ist der Gedankengang richtig ?

2) Frage
Welche Zeile löscht eigentlich den "original"Text (ich würde ihn gern erhalten lassen)

[Diese Nachricht wurde von cadplayer am 08. Jun. 2011 editiert.]

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

---

1)
(rtos(atof (cdr(assoc 1 OBJ)))2 2)

2)
(entdel..

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

nett... danke

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