---

Hallo Zusammen,

ich habe ein Lisp zum automatischen erstellen von Bloecken.
Dieses Lisp funktioniert auf deutschem XP und deutschem ACAD
Es funkioniert auch auf tschechischem XP und deutschen ACAD
Es funkioniert aber nicht auf tschechischm XP mit tschechischem ACAD
Hier das Lisp:
(defun c:ba ()
  (setq ss (ssget))
  (setq ent1 (vl-prin1-to-string (cdr (assoc -1 (entget (ssname ss 0))))))
  (setq l (strlen ent1))
  (setq ent1 (strcat "A$_Block" (substr ent1 14 (- l 14))))
  (command "_-block" ent1 (setq p1 (getpoint)) ss "" "_-insert" ent1 p1 "" "" "")
  )

Wenn alles funktioniert wird ein Block mit dem Namen z.B. A$_Block7ed562b8
Das ist ein beliebiger eindeutiger Name
In dem tschechischen ACAD moechte das Lisp einen Block mit dem Namen
A$_Block: 7ed562b8 erstellen. Das scheitert aber weil ACAD meldet dass der Name unzulaessig ist.
An dem Dollar liegt es nicht sondern vermutlich an dem Doppelpunkt oder der Leerstelle. im deutschen ACAD wird mit dem gleichen Lisp kein Doppelpunkt und keine Leerstelle erzeugt.
Wie muss ich das lisp anpassen dass es auch auf tschechisch lauft ?

Danke und Gruss Wolfgang

------------------
"Früher war die Zukunft besser"
-Karl Valentin-

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

---

dann bring doch ein vl-string-translate rein, welches dir die Fehler verursachenden Zeichen ersetzt.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

guck dir mal an. was (substr ent1 14 (- l 14)))) bringt..
im deutschen "<Objektname:" wird im tscheischen sicher anders heißen und eine andere Stringlänge haben .. dh. legt den Wert nicht mit 14 fest sondern ermittel ihn vorher über (vl-string-search ":" oder so ...

------------------
  - 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

---

Hallo Holger, Hallo Thomas,

danke Euch beiden, das hoert sich richtig an, aber leider reichen meine Lisp Kenntnisse nicht aus um damit was anzufangen.

Geht es bitte etwas genauer?

Danke fuer die Muehe

Gruss Wolfgang

------------------
"Früher war die Zukunft besser"
-Karl Valentin-

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

---

Danke Rabbit,

entschuldigung dass ich mich jetzt erst melde, ich habe eben die Rückmeldung aus Tschechien bekommen dass es nicht funktioniert.
Ich werde mal genau nachfragen (Fehlermeldung...)

Danke und Gruß Wolfgang

------------------
"Früher war die Zukunft besser"
-Karl Valentin-

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

---

Alternative kann mann statt dieses geprnteten Entitynamens ja genau so gut den Objekthandle nehmen.

Code:

---

(defun c:ba2 ( / ss p1 ent1)
  (if (and (setq ss (ssget))
          (Setq p1 (getpoint "\nPkt?"))
      )
    (progn
      (setq ent1 (strcat "A$_Block" (cdr (assoc 5 (entget (ssname ss 0)))))); Handle
      (command "_-block" ent1 p1 ss "")
      (command "_-insert" ent1 p1 "" "" "")
    )
  )
) 

---

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

Udo Hübner

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

---

@alle,

Danke, jetzt leuft es, mit dem Ansatz CADmium
von 14 auf 16 geändert

(defun c:ba ()
  (setq ss (ssget))
  (setq ent1 (vl-prin1-to-string (cdr (assoc -1 (entget (ssname ss 0))))))
  (setq l (strlen ent1))
  (setq ent1 (strcat "A$_Block" (substr ent1 16 (- l 16))))
  (command "_-block" ent1 (setq p1 (getpoint)) ss "" "_-insert" ent1 p1 "" "" "")
  )

Auch der Code von Udo funktioniert. Danke
Wobei der automatische eindeutige Teil im Blocknamen nur 4 Stellen hat
und das zu wenig ist um zu sagen dass er einmalig ist.

Gruß Wolfgang

------------------
"Früher war die Zukunft besser"
-Karl Valentin-

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

---

Der Handle ist pro Zeichnung immer eindeutig! Je mehr Objekte, desto länger wird die Handle Nummer (Hex-Zahl).

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

Udo Hübner

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

---

Stimmt Udo,

ich hatte es immer nur mit 4 Linien getestet.

Danke und Gruß Wolfgang

------------------
"Früher war die Zukunft besser"
-Karl Valentin-

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