---

Hallo,

ich habe hier eine kleine Lispelei,
die mit einem Buttonmakro aufrufe und mir dann einen Pfeil mit einer Durchmesserangabe schreibt.

;; --------------------------------------------------------------------------------------------------- ;;
(defun c:1_1-D_linksunten (/ Abbruch Pkt Text Oldecho)
  (setq OLDECHO (getvar "CMDECHO"))
  (setvar "CMDECHO" 0) ; Bildschirmausgabe bei "COMMAND" aus

  (while (not TEXT)
    (setq TEXT (getstring "Durchmesser : "))
  )
  (setq TEXT (strcat "%%c" TEXT)) ;Text mit Durchmesserzeichen versehen

  (while (not PKT)
    (setq PKT (getpoint "\nStartpunkt : "))
  )
  (command ".leader" PKT (mapcar '+ '(-10 -10 0) pkt) "")
 
  (command TEXT "")
  (setvar "CMDECHO" Oldecho)
  (princ)
)
;; --------------------------------------------------------------------------------------------------- ;;

^C^Cdimassoc;2;-dimstyle;h;DIN1-1;graphbld;-layer;neu;W-02_01-BEM-DIN1-1;se;W-02_01-BEM-DIN1-1;fa;4;;lt;Continuous;;ls;0.18;;;^C^C1_1-D_linksunten

Wie bekomme ich es hin, daß jetzt kein Durchmesser angezeigt wird, sondern ein Schweisszeichen?

Ist das irgendwie machbar?

Mfg Alpschorsch 

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

---

In (strcat "%%c" TEXT)
einfach das "%%c" gegen das Schweißzeichen tauschen...
Nur: liegt dir das den als Schriftzeichen vor !? hmm

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

---

Hi cadffm,

das wäre ja zu schön, wenn es so einfach ist!
Ne, ich kenn das Schriftzeichen nicht!
Was muß ich den eintragen?

Mfg

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

---

Hallo Alpschorch,

das Durchmesserzeichen ist als Schriftzeichen möglich, Schweißzeichen sind mir als solches unbekannt. -> So ist es nicht möglich.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!                          Autodesk User Group Central Europe
AutoLISP-Programmierung für AutoCAD              AUGCE Manager Deutschland
Da weiß man, wann man's hat!
                     

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

---

Ich hab es mir fast gedacht!

Ich fummel noch an einer Lösung mit Symbolen und an im Textstil integrieren.
Tip von AsSchu!
Hab das aber noch nicht alles verstanden!

Gibt es noch andere Lösungen, die für Normalsterbliche machbar sind?
Gibt es da vielleicht schon irgendwo etwas?

Immer wieder Blöcke einfügen und platzieren, kann ja keine Lösung sein!

Mfg Alpschorsch

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

---

Wenn du TrueType-Schriften verwendest wäre eine Möglichkeit das Ding mit seinem Uni-Code einzufügen.

z.B.: Schriftart Arial
text = "Das ist das Zeichen \U+06E9"
\U+06E9 ist das Zeichen "arabisches Sajdah"

schau mal in der Zeichentabelle nach, ob du da ein Schweißzeichen findest. (wie schaut denn das eigentlich aus ?)

Allerdings ist halt die Verwendung von Truetypeschriftarten ja nicht unbedingt empfehlenswert

------------------
WWW.FFZELL.AT.TC

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

---

zeichen.jpg

irgendwie ist mein Anhang verloren gegangen

------------------
WWW.FFZELL.AT.TC

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

---

SCHWEISSZEICHENNACHDIN1912.dwg.txt

Hi,

hier sind ein paar Schweisszeichen, als Beispiel wie ich das meine!
Die Könnte man über Werkzeugpaletten einfügen!

Schöner wäre es nur mit einem Pfeil, denn man "ziehen" könnte, dann muß man nich timmer nachfummeln!

Mfg

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