Carriage return in lisp-create

robertbon · 发表于 2022-7-5 18:39:02

Hello,

I have the following lisp which displays the coordinates of a selected point with a leader:

(defun c:xy ()(setq pt (getpoint " Pick Point: "))(setq x (rtos (car pt)))(setq y (rtos (cadr pt)));(setq z (rtos (caddr pt)))(setq ptcoord (strcat x "mE, " y "mN"))(command "QLEADER" pt pause "" "" ptcoord ""))

This give me:

"123.45mE, 678.90mN"

But I would like:

"123.45mE
678.90mN"

How do I amend the strcat line so it uses a carriage return?

Thanks,

Rob

Tharwat · 发表于 2022-7-5 18:42:28

copy

(setq ptcoord (strcat x "mE, \n" y "mN"))

robertbon · 发表于 2022-7-5 18:48:03

Thank you!

Tharwat · 发表于 2022-7-5 18:50:36

You're welcome .

A few modification if you'd like .

copy

(defun c:xy (/ pt) (while (setq pt (getpoint "\n Pick Point : "))   (command "_.QLEADER" "_none" pt "_none" pause "" ""            (strcat (rtos (car pt)) "mE, \n" (rtos (cadr pt)) "mN") "") ) (princ))

robertbon · 发表于 2022-7-5 18:54:20

I'd like very much, thanks again.

Is there any way to make the text in the Mtext right-justified when it is created or would I have to do that manually?

Tharwat · 发表于 2022-7-5 18:58:06

Does it mean that you always place the text on the left hand side ?

Cause if you place the text on the right side hand with right-justified property of the Mtext , you'd have irregular shape of the Leader .

robertbon · 发表于 2022-7-5 18:59:03

I have been using the xy routine above (post 4) with great success, thank you Tharwat.

Would somebody be kind enough to help me to enhance this routine?

I would like to be able to have it so that it gives the coordinates of the currently selected UCS but creates the text square to the world system. Is this possible?

Tharwat · 发表于 2022-7-5 19:03:21

Happy to hear that .

Can you give an example ( or a drawing ) ?

cwake · 发表于 2022-7-5 19:07:14

This is a little lazy of me, but I need to get to bed . There are better ways, perhaps Tharwat might help you with one of them.

This takes advantage of the fact that a QLEADER is made up of two entities and the MTEXT is created last.

copy

(defun c:xy ( / el pt rot ) (setq rot (cons 50 (- (apply 'atan (cdr (reverse (getvar "UCSXDIR"))))))) (while (setq pt (getpoint "\n Pick Point : "))   (command "_.QLEADER" "_none" pt "_none" pause "" ""            (strcat (rtos (car pt)) "mE, [url="file://\\P"]\\P[/url]" (rtos (cadr pt)) "mN") "")   (entmod (subst rot (assoc 50 (setq el (entget (entlast)))) el))   ) (princ) )

Oh, and I did change the "\n" to "\\P" in the string. Change it back if you want. It just seems to me that most (not all) of the functions floating around the web that extract formatting strings remember "\\P" and forget "\n".

alanjt · 发表于 2022-7-5 19:09:50

That's because \n will yield a soft return (shift + enter), whereas \\P is an actual hard carriage return.

[编程交流] Carriage return in lisp-create

发表回复

精选推荐