---

hi ich habe eine frage

ich habe viel kreise mit je einem dazugehörigen text. möchte die x,y daten per attributsextraktion auslesen, brauche ja dazu blöcke, kann ich automatisch blöcke erstellen ohne die texte neu einzugeben?

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

---

Von ACAD her geht da nichtŽs ,allerdings gibt es im Forum immer
Hilfen die da evtl taugen..

Objekt durch Block ersetzen
Beitrag von CADmium hier oder im Lispforum...

Wenn dann zufällig das Kreiszentrum auch den gewollten XY-Daten entsprechen
kannst du diese Blockreferenzen ja mit eattext auslesen...

Den Text als Attributwert hinzuzufügen, dazu brauchst du eine Funktion wozu
mir gerade nichts aus dem www einfällt..

(Funktion "Kopiere (M)Text/Attributwert..)

(Aber für die Koordinaten benotigt mman das ja erstmal nicht)

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

---

[edit] vorher auf _ucs _w umstellen [edit]

;=========================================================================
;******* setzt auf kreise im layer "deinlayer" einen block******** ********
;******* gmk@cad.de ******************************************************
;=========================================================================

(DEFUN c:gmk_knb ( /
aws
n
zl
ele
wahl
)

(SETQ aws (SSGET "X" (list (cons 0 "CIRCLE")(cons 8 "deinlayer")))
      n (SSLENGTH aws)
      zl 0
)
(WHILE (< zl n)
  (SETQ ele (ENTGET (SSNAME aws zl)))
  (COMMAND "_-insert" "deinblockname" (CDR(ASSOC 10 ele)) "1" "1" "0")
  (SETQ zl (+ 1 zl)) 
)
)

jetzt hast du zwar den block, aber der zugehörige text (ich nehme schwer an die punkthoehe, vermessungspunkt??) ist immer noch ohne bezug zum entsprechenden block. wenn die texte systematisch zum kreis/block angeordnet sind kann man das ganze über einen fangkreis oder relative koordinaten zusammenführen, wenn nicht --> handarbeit :-(( (kreis klicken, text klicken, in datei schreiben, schleife i=anzahl der punkte) oder koordinatenliste beim zulieferer anfordern.

ciao georg

[Diese Nachricht wurde von gmk am 17. Nov. 2004 editiert.]

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

---

Beim laden der lsp trat dieser fehler auf

Befehl: ; Fehler: Syntaxfehler

leider kann ich nicht programmieren...
aber mit diesem lsp wäre mir schon sehr geholfen

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

---

bzw. diese fehlermeldung

; Fehler: Fehlerhafter Argumenttyp: lselsetp nil

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

---

.... jetzt aber getestet (block muß vorhanden sein!)

; z.b. alle kreise auf layer 0 werden ersetzt durch block kr

(DEFUN c:gmk_knb ( /
aws
n
zl
)

(SETQ aws (SSGET "X" (list (cons 0 "CIRCLE")(cons 8 "0")))
      n (SSLENGTH aws)
      zl 0
)
(WHILE (< zl n)
(COMMAND "_-insert" "kr" (CDR(ASSOC 10 (ENTGET (SSNAME aws zl)))) 1 1 0)
(SETQ zl (+ 1 zl))
)
)

ciao georg

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

---

funktioniert leider nur zum teil, legt nicht über alle kreise einen block, meistens nur die hälfte

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

---

dann sind es keine kreise oder auf dem falschen layer.

oder:
wieviele kreise sind es?
es gab mal eine beschränkung für auswahlsätze auf 32767 elemente.
>>>>> hallo lisp-experten: gilt das noch?? <<<<<<

[edit] gilt offensichtlich nicht mehr, test mit 36100 kreisen ergibt 36100 blöcke [edit]

ciao georg

[Diese Nachricht wurde von gmk am 17. Nov. 2004 editiert.]

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