---

(defun c:zt()
  (setq pkt (getpoint "\npoint picken !\n")
xw (rtos (car pkt))
yw (rtos (cadr pkt))
zw (caddr pkt)
)
  ;(command "Text" pkt "" zw "")
  ;(command "text" "" (list (+ (car pkt) 0.3) (+ (cadr pkt) 0.3)) 0 zw)
  (command "text" pkt "1" "" zw)
  )

Hiho!
mein Versuch soll mit verdeutlichen, wie schwer es ist zu wissen, wann wird ein String und wann eine Liste benötigt ?

Die kleine Routine soll von einem gewählten Punkt die Z-koord als Text erzeugen. Mein Problem: wenn ich einen Linienpunkt picke dann wird der Text an gepickten Punkt gesetzt.
Bei ofang nearest (nächster Punkt)setzt es den Text aber falsch warum ?

Gruss cp

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

---

... entmake doch den Text ....

ansonsten : ich seh dein Problem nicht. Sorry

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

---

hi,
ich schließe mich Cadmium's Ausführung an,
aber kannst ja mal mit deaktiviertem Punktfang versuchen...

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

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."   (www.uni-leipzig.de/~rotheh/elefant.htm)

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

---

Mit "Bei ofang nearest (nächster Punkt)setzt es den Text aber falsch warum ?"
kann ich auch nicht viel anfangen, aber auf dein anderes Problem kann ich eingehen:

Du meinst wann in deiner Command-Anweisung ein Liste bzw. ein String oder sonstwas verlangt wird ?

• Strings sind IMMER möglich (jeder User kann die Befehle ja per Tastatur bedienen, also =String)
  
• Wenn Acad Koordinaten oder Zahlen erwartet, dann kann es auch auch Liste bzw. Zahl übergeben werden
    (und als String natürlich, sie P1.)
  
• Das Dein Text immer an den Pick-Punkt fliegt hast du ja selbst in der Command-Anweisung
  angegeben, wenn Acad dich fragt wo denn der Basispunkt sein soll dann sagst du "bei PKT" .
  

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Klar geht besser !
@cadmium: hast recht da bestand gar kein Problem - Funktion lief bereits

hier mit entmake:

(defun c:zt()
  (setq pkt (getpoint "\npoint picken !\n")
; xw (rtos (car pkt))
; yw (rtos (cadr pkt))
; zw (caddr pkt)
)
  (entmake (list '(0 . "text")
    '(100 . "acdbentity")
    '(100 . "acdbtext")
    (cons 10 pkt)
    '(40 . 0.5)
                    (cons 1 (rtos (caddr pkt) 2 3))
    (cons 50  0)
    '(41 . 1.0)
    '(51 . 0)
    '(7 . "iso")
)
  )
  )

Der erzeugte Text braucht kein z-koor haben, kann man die gleich noch auf Null stellen ?

Danke euch allen!

Gruss

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

---

SO ?
(list 10 xwert ywert 0.0)

xwert und ywert kannst du dir ja bereits besorgen.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

@cadffm:
danke
- das war nicht der letzte Streich, denn der nächste folgt sicher gleich...

PS.:
dank Eurer Hilfe gehts immer vorwärts - Prima

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