check mark

[k005]

Hello

How can I print the checkmark as text when I click on a point?

* as layer : It should be "ONAY" and it should be color number 100.
* font style name "onay" font : windings , sign : ü

sign height : textsize * 2

I attached the file.

[pbejse]

---

@k005 wrote:

How can I print the checkmark

---

You have a choice of three Marks here

Better yet,  take all of them.

[k005]

@pbejse 

none

🙂

[pbejse]

---

@k005 wrote:

none

---

Oh Bummer, I was so sure you will at least pick one of the three 😊

[k005]

@pbejse 

well then. my choice: Mark Wahlberg

and Max Payne

😃

[hak_vz · Accepted solution]

---

@k005 wrote:

@pbejse 

well then. my choice: Mark Wahlberg

and Max Payne

😃

---

Marky Mark is not of help. Try this instead.

(defun c:checkmark ( / pt *error* oldstyle)
	(defun *error* ()
		(setq oldstyle (getvar 'Textstyle))
		(princ)
	)
	(setq oldstyle (getvar 'Textstyle))
	(setvar 'Textstyle "Onay")
	(while (setq pt (getpoint "\nSelect check mark point >"))
		(entmake
			(list
				(cons 0 "TEXT")
				(cons 8 "Onay")
				(cons 100 "AcDbText")
				(cons 10 (trans pt 1 (trans '(0 0 1) 1 0 T)))
				(cons 40 (* 2 (getvar 'Textsize)))
				(cons 1 "\U+00FC")
				(cons 7 "Onay")
				(cons 62 100)
				(cons 50(angle '(0 0 0) (trans (getvar "UCSXDIR") 0 (trans '(0 0 1) 1 0 T))))
				(cons 100 "AcDbText")
				(cons 210 (trans '(0 0 1) 1 0 T))
			)
		) 
	)
(setvar 'Textstyle oldstyle)	
(princ)
)

[k005]

@hak_vz 

too many arguments

----------------------------------

sorry.!  Thank you very much, it's ok. 🤗