---

(defun c:zh ()
  (command "_-text"
(setq PKT (getpoint "\nPunkt wählen: ")) "" ""
(strcat (rtos (caddr PKT) 2 3)))
  )

Ich stosse hier auf das Problem, dass der Text in manchen Zeichnungen gar nicht erzeugt wird "unknown command" usw. Weiss einer woran das liegen kann?

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

---

Hallo Cadplayer,
versuche mal folgendes:

Code:

---

(defun c:zh ()
  (command "_.text"
(setq PKT (getpoint "\nPunkt wählen: ")) "" ""
    (rtos (caddr PKT) 2 3))
  )

---

PS: Das STRCAT war überflüssig.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

wenn im Textstil die Höhe 0 als vorgabe steht, wird die beim Text erzeugen abgefragt, sthet eine feste Höhe drin , wird die genommen .. du hast also mal ein "" zu viel drin

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

und dann ist noch zu beachten, dass je nach dem welcher Textstil aktuell ist, der Befehlsablauf für den Textbefehl unterschiedlich ist. Bei Textstilen mit vorgegebener Texthöhe entfällt diese Anfrage und man braucht ein Argument weniger.

Gruß
Thomas

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

---

Als Ergänzung
(if(/=(cdr(assoc 40(entget(tblobjname "STYLE"(getvar "TEXTSTYLE")))))0)
  (command "_-text"(setq PKT (getpoint "\nPunkt wählen: ")) ""  (rtos (caddr PKT) 2 3))
  (command "_-text"(setq PKT (getpoint "\nPunkt wählen: ")) "" ""(rtos (caddr PKT) 2 3)) 
) 

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

---

(defun c:zh ()
  (command "_.text" "s" "txt"
(setq PKT (getpoint "\nPunkt wählen: ")) "" ""
    (rtos (caddr PKT) 2 3))
  )

Danke so läuft es jetzt "stabiler"

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

---

Alles klar  .. und wenn es den Textstil "txt" nicht gibt hast du das nächste Problem ....

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

---

@cadmium
ja stimmt, wir hatten fast gleichzeitig gepostet

was macht prüft denn die Zeile genau?
(if(/=(cdr(assoc 40(entget(tblobjname "STYLE"(getvar "TEXTSTYLE")))))0)

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

---

na sie testet, ob die voreingestellte Texthöhe im aktuellen Textstil ungleich 0 ist und verzweigt dann anschließend in die entsprechend angepaßten commandaufrufe

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

---

Alternative:

Code:

---

(if(setq PKT (getpoint "\nPunkt wählen: "))
(entmake (LIST
                  '(0 . "TEXT")
                  (cons 8 (getvar"clayer"))
                  (CONS 10 PKT)
                  (cons 40 (getvar "textsize"))
                  '(50 . 0.0)
                  (CONS 1 (rtos (caddr PKT) 2 3))
                  ) ;_ end of LIST
                )
  )

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Prima - ich steh auf Alternativen

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

---

Hi,

wenn das so ist, machen wir's doch komplett:

Code:

---

(vlax-invoke-method
  (vlax-get-property
    (vlax-get-property
      (vlax-get-acad-object)
      'ActiveDocument
    )
    'ModelSpace
  )                                    ;Bereich für Text
  'AddText
  "Bin ein Text."                      ; Textstring
  (vlax-3d-point '(0.0 0.0 0.0))        ; Einfügepunkt
  3.5                                  ; Texthöhe
)

---

------------------
CADmaro.de

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

---

und wenn ich im Layout geklickt hab ?  sehr rudimentär  .. und das (vl-load-com) fehlt auch ...

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

---

Menschmenschmensch. 

Es geht doch um's Prinzip. Gibt so viele, die mit ActiveX-Code noch Schwierigkeiten haben. Eine komplette AddText-Funktion, die auch den aktuellen Bereich analysiert, lenkt den Blick vom Wesentlichen ab. 

------------------
CADmaro.de

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

---

und dennoch, es muß mal wieder gesagt sein: toll wie ihr dieses Forum unterstützt, echt klasse und: DANKE !

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

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