Topic: witdh of mtext

[amc.dicsac]

Hello such lisp have this (I think this lisp public Leemac) amending witdh of mtext, the problem is that every time I return to select the same mtext to change the width this does not change again.

Code: [Select]

(defun c:test5 (/ i ss ent eLst joindatosxp)
(setq *datosxp* (cond ((getstring (strcat "\nSpecify width of mtext <" (setq *datosxp* (cond ( *datosxp* ) ( 0.75 ))) ">: "))) ( *datosxp* )))
(setq joindatosxp (strcat "{\\W" *datosxp* ";"))
(if (setq i -1 ss (ssget "_:L" '((0 . "MTEXT"))))
(while (setq ent (ssname ss (setq i (1+ i))))
(entmod
(subst (cons 1 (strcat joindatosxp (cdr (assoc 1 (setq eLst (entget ent)))) "}")) (assoc 1 eLst) eLst))))
(princ))

[ChrisCarlson]

I'm not going to troubleshoot that but

Code - Auto/Visual Lisp: [Select]

1. (defun c:WD (/ ss wd)
2.   ;; Change width of selected MText and MultiLeader objects
3.   ;; Alan J. Thompson, 11.05.09
4.   (vl-load-com)
5.   (if (and (setq ss (ssget "_:L" '((0 . "MTEXT,MULTILEADER"))))
6.            (setq wd (initget 4)
7.                  wd (cond ((getdist "\nWidth <0.0>: "))
8.                           (0.)
9.                     )
10.            )
11.       )
12.     (progn
13.       (vlax-for x (setq ss (vla-get-activeselectionset
14.                              (cond (*AcadDoc*)
15.                                    ((setq *AcadDoc* (vla-get-activedocument
16.                                                       (vlax-get-acad-object)
17.                                                     )
18.                                     )
19.                                    )
20.                              )
21.                            )
22.                   )
23.         (vl-catch-all-apply
24.           (function vlax-put-property)
25.           (list x
26.                 (cond ((eq (vla-get-objectname x) "AcDbMText") 'Width)
27.                       ((eq (vla-get-objectname x) "AcDbMLeader") 'TextWidth)
28.                 )
29.                 wd
30.           )
31.         )
32.       )
33.       (vla-delete ss)
34.     )
35.   )
36.   (princ)
37. )

[amc.dicsac]

=/

[ChrisCarlson]

As-is, the program does not run

Code: [Select]

Command: TEST5
Error: bad argument type: stringp 0.75
Based on this, the routine is wanting a string but you are passing something else.
http://www.lee-mac.com/errormessages.html

Looking at your code you are prompting the user to enter a width. You specify a string (getstring) but are entering a real (0.75).

[amc.dicsac]

Code: [Select]

  (defun c:test5 (/ i ss ent eLst joindatosxp)
  (setq *datosxp* (cond ((getreal (strcat "\nSpecify width of mtext <" (rtos (setq *datosxp* (cond ( *datosxp* ) ( 0.75 ))) 2 2) ">: "))) ( *datosxp* )))
  (setq joindatosxp (strcat "{\\W" (rtos *datosxp* 2 2) ";"))
  (if (setq i -1 ss (ssget "_:L" '((0 . "MTEXT"))))
  (while (setq ent (ssname ss (setq i (1+ i))))
  (entmod
  (subst (cons 1 (strcat joindatosxp (cdr (assoc 1 (setq eLst (entget ent)))) "}")) (assoc 1 eLst) eLst))))
  (princ))

[ronjonp]

Code: [Select]

  (defun c:test5 (/ i ss ent eLst joindatosxp)
  (setq *datosxp* (cond ((getreal (strcat "\nSpecify width of mtext <" (rtos (setq *datosxp* (cond ( *datosxp* ) ( 0.75 ))) 2 2) ">: "))) ( *datosxp* )))
  (setq joindatosxp (strcat "{\\W" (rtos *datosxp* 2 2) ";"))
  (if (setq i -1 ss (ssget "_:L" '((0 . "MTEXT"))))
  (while (setq ent (ssname ss (setq i (1+ i))))
  (entmod
  (subst (cons 1 (strcat joindatosxp (cdr (assoc 1 (setq eLst (entget ent)))) "}")) (assoc 1 eLst) eLst))))
  (princ))

This works for me .. but you may want to check if width has already been applied or you'll end up with a mess like this:
"{\\W6.00;{\\W3.00;{\\W2.00;{\\W0.75;TEST}}}}"


Maybe something like this will help ( although I think hard coded properties in mtext is    )

Code - Auto/Visual Lisp: [Select]

1. (defun c:test5 (/ elst ent i joindatosxp ss str)
2.   (setq *datosxp* (cond ((getreal (strcat "\nSpecify width of mtext <"
3.                                           (rtos (setq *datosxp* (cond (*datosxp*)
4.                                                                       (0.75)
5.                                                                 )
6.                                                 )
7.                                                 2
8.                                                 2
9.                                           )
10.                                           ">: "
11.                                   )
12.                          )
13.                         )
14.                         (*datosxp*)
15.                   )
16.   )
17.   (setq joindatosxp (strcat "{\\W" (rtos *datosxp* 2 2) ";"))
18.   (if (setq i  -1
19.             ss (ssget "_:L" '((0 . "MTEXT")))
20.       )
21.     (while (setq ent (ssname ss (setq i (1+ i))))
22.       (setq str (cdr (assoc 1 (setq elst (entget ent)))))
23.       (while (wcmatch str "{\\W*")
24.         (setq str (vl-string-right-trim "}" (substr str (+ 2 (vl-string-search ";" str)))))
25.       )
26.       (entmod (subst (cons 1 (strcat joindatosxp str "}")) (assoc 1 elst) elst))
27.     )
28.   )
29.   (princ)
30. )

[amc.dicsac]

Thank your code fix my problem thank you very much, good afternoon.

[ronjonp]

Glad to help