Topic: Text Dynamic

[amc.dicsac]

Hi.

I have this code that inserts a text using grread function to which I want to add the option to rotate and resize but I have no idea how to do it would appreciate the help.

Thanks

Code - Auto/Visual Lisp: [Select]

1. (defun c:xaa (/ potencia prefijo pt)
2. (setvar "cmdecho" 0)
3. (setq potencia (strcase (getstring T "\nIngresa potencia monofásica: ")))
4. (setq prefijo (*AX_mtext* (strcat potencia "\\P" "1Ø/220V")))
5. (while
6.   (eq (car (setq pt (grread t 15 0))) 5)
7.   (redraw)
8. (entmod (subst (cons 10 (cadr pt)) (assoc 10 (entget prefijo)) (entget prefijo))))
9. (setvar "cmdecho" 1)
10. (princ))
11.  
12. (defun *AX_mtext* (s)
13.    (entmakex
14.       (list (cons 0   "MTEXT")        
15.             (cons 100 "AcDbEntity")        
16.             (cons 100 "AcDbMText")  
17.             (list 10 0. 0. 0.)
18.             (list 11 0. 0. 0.)
19.             (cons 71 1)
20.             (cons 40 0.2)
21.             (cons  1 s)
22.             (cons  7 "0-DEU-ROMANS")
23.  
24.       )
25.    )
26. )
27.  

[danallen]

in the mode of teaching to fish:

• run your code to create sample text
• copy text 1 or 10 units to right, modify with rotation you want
• run code below QED to list entity data on both texts, compare the value than changed other than position (group 10)
• see if you can add to your code to modify rotation
• do again with scale

Code - Auto/Visual Lisp: [Select]

1. (defun c:QED () (foreach x (entget (car (entsel)))(print x))(princ))