---

Habe einen Plan indem alle Höhen mit Komma geschrieben sind.
(ca 150)
Leider verstehen meine anderen Anwendungen wie zum Beispiel"dummen Text auf z-koo setzten " die Zahlen nicht als Hohenwert.
Wer kann mir sagen wie ich solche Zahlen problemlos in eine Zahl mit Punkt umwandeln kann.
Bsp..: 443,123 muss sein 443.123
Kann ich in eine LSP eine Zeile einfügen damit diese dann auch diese Werte als Höhentext versteht?
Wäre für Hilfe dankbar.

------------------
Gruß vom Bauvermesser;

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

---

Hilft "Suchen & Ersetzen" da nicht weiter? Wie und wo liegen die Zahlen vor? Als Attribute in einem Block? Da könnte ATTOUT und ATTIN weiterhelfen.

------------------
Viele Grüße Lutz

Glück Auf!

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

---

Es ist eben nur ein einfacher dummer Text, kein Block. Dumme Frage: wo finde ich im ACAD 2005 "Suche ersetzen" ?

------------------
Gruß vom Bauvermesser;

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

---

ansonsten den code ähnlich in deinen einbauen :

(setq TEXTSTR "44,321")

(if(distof(setq DUMMY(vl-string-translate "," "." TEXTSTR)))
  (setq TEXTSTR DUMMY)
)

------------------
Also ich finde Unities gut ...
---------------------------------------
  - 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

---

... und da ich dieses auch andersherum hin und wieder brauche habe ich mir gleich zwei kleine Funktionen dafür gemacht.

Code:

---

; Zeichenkette Zahl mit Dezimaltrenner Punkt
(defun dtp(wert) (setq wert (vl-string-translate "," "." wert)))

; Zeichenkette Zahl mit Dezimaltrenner Komma
(defun dtk(wert) (setq wert (vl-string-translate "." "," wert)))

---

HTH

Gruß
Thomas

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

---

Zitat:

---

Original erstellt von Bauvermesser:
Es ist eben nur ein einfacher dummer Text, kein Block. Dumme Frage: wo finde ich im ACAD 2005 "Suche ersetzen" ?

---

Also der Befehl heißt FIND oder _find. Aber in Welchem WK oder Menü?

------------------
Ciao
J-SC
... geht's vielleicht doch?

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

---

Danke für euer Hinweise ,
habe zwei Versuche unternommen ohne Erfolg.
Einmal mit einer eigenständigen lsp wie hier:
(defun c:kommazupunkt ()
  (setvar "OSMODE" 64)                  ; basispunkt
    (if(setq as(ssget '((0 . "TEXT"))))
      (progn
    (if(distof(setq DUMMY(vl-string-translate "," "." TEXTSTR)))
    (setq TEXTSTR DUMMY)
  )

oder mit dem Einbau in die zutreffende LSP
wie hier:
(defun c:z-txt ( )
;;  (setvar "OSMODE" 0)
  (setvar "OSMODE" 64)                  ; basispunkt
;;-------------------------
    (if(distof(setq DUMMY(vl-string-translate "," "." TEXTSTR)))
    (setq TEXTSTR DUMMY)
)
;;-------------------------
  (if(setq as(ssget '((0 . "TEXT"))))
      (progn
      (repeat (sslength as)
          (setq OBJ (ssname as 0))
          (setq DATA (entget OBJ))
          (if(and(setq Z(distof (cdr (assoc 1 DATA))2))
                (setq X(car (cdr(assoc 10 DATA))))
                (setq Y(cadr (cdr(assoc 10 DATA))))
            )
    (command "_point" (list X Y Z))
;;  (command "_CIRCLE" (list X Y Z) "0.20")
          )             
;;          (setq as (ssdel OBJ as))
        )    )    )    )

in beiden Fällen keinen Erfolg, könnt Ihr euch das bitte  nochmal ansehen. Oder stehen sie nur an falscher Stelle.

------------------
Gruß vom Bauvermesser;

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

---

nur beim überfliegen
schaut es aus, als ob du den Auswahlsatz und nicht den entsprechenden String verwurschten willst...
Du musst direkt den String vom Attribut, Text, Mtext etc. angehen (bei dir schauts nach Text aus - 0 . text), ein wenig tiefer ans Objekte musste da sicher noch gehen
entmod oder vla... und den String im Objekt umschreiben

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
-Lots of irritating superfluous parentheses!-

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

---

So langsam könnte man bei dir ja auch mal eine "Weiterentwicklung"  in Sachen Lisp erwarten ..  ... egal .. ich hab dir mal die Zeile richtiger positioniert und hoffe, alle Klammern stimmen...

(defun c:z-txt ( )
  (setvar "OSMODE" 64)                  ; basispunkt
  (if(setq as(ssget '((0 . "TEXT"))))
      (progn
      (repeat (sslength as)
          (setq OBJ (ssname as 0))
          (setq DATA (entget OBJ))
          (if(and(or(setq Z(distof (cdr (assoc 1 DATA))2))
                    (setq Z(distof(setq DUMMY(vl-string-translate "," "." (cdr (assoc 1 DATA))))))
                ) 
                (setq X(car (cdr(assoc 10 DATA))))
                (setq Y(cadr (cdr(assoc 10 DATA))))
            )
    (command "_point" (list X Y Z))
;;  (command "_CIRCLE" (list X Y Z) "0.20")
          )             
;;          (setq as (ssdel OBJ as))
        )    )    )    )

------------------
Also ich finde Unities gut ...
---------------------------------------
  - 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 allen , läuft .
Nur mein ' OSMODE 64' war falsch,  scheint im Nachhinein logisch.
(defun c:z-txt ( )
  (if(setq as(ssget '((0 . "TEXT"))))
      (progn
      (repeat (sslength as)
          (setq OBJ (ssname as 0))
          (setq DATA (entget OBJ))
          (if(and(or(setq Z(distof (cdr (assoc 1 DATA))2))
                    (setq Z(distof(setq DUMMY(vl-string-translate "," "." (cdr (assoc 1 DATA))))))
                )
                (setq X(car (cdr(assoc 10 DATA))))
                (setq Y(cadr (cdr(assoc 10 DATA))))
            )
    (command "_point" (list X Y Z))
;;  (command "_CIRCLE" (list X Y Z) "0.20")
          )           
          (setq as (ssdel OBJ as))
        )    )    )    )

------------------
Gruß vom Bauvermesser;

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